(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     29352,        864]*)
(*NotebookOutlinePosition[     30028,        888]*)
(*  CellTagsIndexPosition[     29984,        884]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["\<\
Formulation of finite element matrices for a 1d elastic \
isoparametric 3-node quadratic element\
\>", "Title",
  FontSize->24],

Cell[BoxData[
    \(Clear["\<Global`*\>"]; Off[General::spell, General::spell1];\)], "Input",\

  FontSize->24],

Cell["Shape functions and derivatives", "Subtitle",
  FontSize->24],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(\[Phi]\_1\  = \ \(1\/2\) \[Xi]\ \((\[Xi] - 
              1)\);\)\), "\[IndentingNewLine]", 
    \(\(\[Phi]\_2\  = \ 1 - \[Xi]\^2;\)\), "\[IndentingNewLine]", 
    \(\(\[Phi]\_3\  = \ \(1\/2\) \[Xi]\ \((\[Xi] + 
              1)\);\)\), "\[IndentingNewLine]", 
    \(\(\[CapitalPhi]\  = \ 
        Table[\[Phi]\_i, {i, 3}];\)\), "\[IndentingNewLine]", 
    \(Plot[Evaluate[\[CapitalPhi]], {\[Xi], \(-1\), 1}]\)}], "Input",
  FontSize->24],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.476191 0.0801155 0.523203 [
[.02381 .06762 -6 -9 ]
[.02381 .06762 6 0 ]
[.2619 .06762 -12 -9 ]
[.2619 .06762 12 0 ]
[.7381 .06762 -9 -9 ]
[.7381 .06762 9 0 ]
[.97619 .06762 -3 -9 ]
[.97619 .06762 3 0 ]
[.4875 .18476 -18 -4.5 ]
[.4875 .18476 0 4.5 ]
[.4875 .2894 -18 -4.5 ]
[.4875 .2894 0 4.5 ]
[.4875 .39404 -18 -4.5 ]
[.4875 .39404 0 4.5 ]
[.4875 .49868 -18 -4.5 ]
[.4875 .49868 0 4.5 ]
[.4875 .60332 -6 -4.5 ]
[.4875 .60332 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 .08012 m
.02381 .08637 L
s
[(-1)] .02381 .06762 0 1 Mshowa
.2619 .08012 m
.2619 .08637 L
s
[(-0.5)] .2619 .06762 0 1 Mshowa
.7381 .08012 m
.7381 .08637 L
s
[(0.5)] .7381 .06762 0 1 Mshowa
.97619 .08012 m
.97619 .08637 L
s
[(1)] .97619 .06762 0 1 Mshowa
.125 Mabswid
.07143 .08012 m
.07143 .08387 L
s
.11905 .08012 m
.11905 .08387 L
s
.16667 .08012 m
.16667 .08387 L
s
.21429 .08012 m
.21429 .08387 L
s
.30952 .08012 m
.30952 .08387 L
s
.35714 .08012 m
.35714 .08387 L
s
.40476 .08012 m
.40476 .08387 L
s
.45238 .08012 m
.45238 .08387 L
s
.54762 .08012 m
.54762 .08387 L
s
.59524 .08012 m
.59524 .08387 L
s
.64286 .08012 m
.64286 .08387 L
s
.69048 .08012 m
.69048 .08387 L
s
.78571 .08012 m
.78571 .08387 L
s
.83333 .08012 m
.83333 .08387 L
s
.88095 .08012 m
.88095 .08387 L
s
.92857 .08012 m
.92857 .08387 L
s
.25 Mabswid
0 .08012 m
1 .08012 L
s
.5 .18476 m
.50625 .18476 L
s
[(0.2)] .4875 .18476 1 0 Mshowa
.5 .2894 m
.50625 .2894 L
s
[(0.4)] .4875 .2894 1 0 Mshowa
.5 .39404 m
.50625 .39404 L
s
[(0.6)] .4875 .39404 1 0 Mshowa
.5 .49868 m
.50625 .49868 L
s
[(0.8)] .4875 .49868 1 0 Mshowa
.5 .60332 m
.50625 .60332 L
s
[(1)] .4875 .60332 1 0 Mshowa
.125 Mabswid
.5 .10628 m
.50375 .10628 L
s
.5 .13244 m
.50375 .13244 L
s
.5 .1586 m
.50375 .1586 L
s
.5 .21092 m
.50375 .21092 L
s
.5 .23708 m
.50375 .23708 L
s
.5 .26324 m
.50375 .26324 L
s
.5 .31556 m
.50375 .31556 L
s
.5 .34172 m
.50375 .34172 L
s
.5 .36788 m
.50375 .36788 L
s
.5 .4202 m
.50375 .4202 L
s
.5 .44636 m
.50375 .44636 L
s
.5 .47252 m
.50375 .47252 L
s
.5 .52484 m
.50375 .52484 L
s
.5 .551 m
.50375 .551 L
s
.5 .57716 m
.50375 .57716 L
s
.5 .05396 m
.50375 .05396 L
s
.5 .0278 m
.50375 .0278 L
s
.5 .00164 m
.50375 .00164 L
s
.25 Mabswid
.5 0 m
.5 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .60332 m
.06244 .54137 L
.10458 .47773 L
.14415 .42169 L
.18221 .37121 L
.22272 .32115 L
.26171 .27653 L
.30316 .23296 L
.34309 .19472 L
.3815 .16142 L
.42237 .12972 L
.46172 .10284 L
.49955 .08036 L
.53984 .06006 L
.57861 .04406 L
.61984 .03085 L
.64043 .02572 L
.65954 .02183 L
.67803 .01888 L
.68829 .01758 L
.69774 .01659 L
.70802 .01576 L
.71343 .01542 L
.71915 .01513 L
.72412 .01494 L
.72651 .01487 L
.72876 .01482 L
.73004 .01479 L
.73143 .01477 L
.73258 .01475 L
.73386 .01474 L
.73452 .01473 L
.73523 .01472 L
.73599 .01472 L
.73669 .01472 L
.73736 .01472 L
.73806 .01472 L
.73932 .01472 L
.74055 .01472 L
.74125 .01473 L
.74189 .01473 L
.74307 .01474 L
.74432 .01476 L
.74648 .0148 L
.74886 .01485 L
.75413 .01501 L
.75906 .01522 L
.76792 .01574 L
.77743 .0165 L
.78756 .01754 L
Mistroke
.7986 .01894 L
.8187 .02221 L
.83842 .02633 L
.8594 .03169 L
.90104 .04534 L
.94115 .06228 L
.97619 .08012 L
Mfstroke
.02381 .08012 m
.06244 .16157 L
.10458 .24255 L
.14415 .31115 L
.18221 .3703 L
.22272 .42592 L
.26171 .4723 L
.30316 .51392 L
.34309 .54651 L
.3815 .57092 L
.40095 .58068 L
.42237 .58941 L
.44268 .59574 L
.45178 .59795 L
.46172 .59994 L
.4671 .60082 L
.4721 .60152 L
.47727 .60213 L
.48196 .60257 L
.48658 .6029 L
.4887 .60302 L
.49093 .60313 L
.49332 .60322 L
.49438 .60325 L
.49552 .60327 L
.49675 .60329 L
.49789 .60331 L
.49859 .60331 L
.49925 .60332 L
.50049 .60332 L
.50163 .60331 L
.50286 .6033 L
.50401 .60328 L
.50508 .60326 L
.50754 .60319 L
.51014 .60308 L
.51268 .60295 L
.51504 .6028 L
.5204 .60236 L
.5293 .60134 L
.53882 .59984 L
.54906 .59777 L
.56016 .59497 L
.58032 .58844 L
.60019 .58016 L
.62123 .56941 L
.65912 .5449 L
.69946 .51152 L
.73829 .47231 L
.77956 .42299 L
Mistroke
.81932 .36805 L
.85757 .30832 L
.89827 .23734 L
.93745 .16179 L
.97619 .08012 L
Mfstroke
.02381 .08012 m
.06244 .06061 L
.10458 .04327 L
.14415 .03071 L
.18221 .02204 L
.20178 .01889 L
.21267 .01751 L
.22272 .01649 L
.23293 .01568 L
.23832 .01536 L
.24402 .01508 L
.24641 .01499 L
.24897 .01491 L
.25119 .01485 L
.25361 .01479 L
.25507 .01477 L
.25643 .01475 L
.25773 .01474 L
.2584 .01473 L
.25912 .01472 L
.25983 .01472 L
.26048 .01472 L
.26176 .01472 L
.26293 .01472 L
.26416 .01472 L
.26538 .01473 L
.26607 .01474 L
.26671 .01474 L
.26912 .01478 L
.27131 .01482 L
.27364 .01487 L
.27847 .01503 L
.2838 .01527 L
.29326 .01585 L
.30213 .01658 L
.32232 .01893 L
.34082 .0219 L
.38045 .03093 L
.41855 .04302 L
.45911 .05958 L
.49816 .07911 L
.53966 .10372 L
.57964 .13118 L
.61811 .16109 L
.65902 .19665 L
.69843 .23455 L
.73632 .27436 L
.77666 .3204 L
.81548 .36825 L
.85676 .42294 L
Mistroke
.89652 .47933 L
.93476 .53702 L
.97546 .60211 L
.97619 .60332 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40n007h00OSooo0P00Sooo002?
ool00`00ooooo`2>ool008ooo`03003ooooo08koo`00Sooo00<00?ooool0S_oo000ooolJ000fool0
0`00ooooo`0eoolI0010ool003Ooo`P001[oo`H0033oo`03003ooooo02koo`L001Woo`L003Woo`00
<_oo1@00:?oo1P00:_oo00<00?ooool0:?oo1P009ooo1P00<ooo000/ool6000cool6000Tool00`00
ooooo`0Rool6000cool5000^ool002Soo`@003ooo`@0023oo`8001ooo`@003koo`<002_oo`009Ooo
0`00Aooo0`007Ooo00<00?ooool06ooo0`00AOoo0`00:?oo000Sool2001=ool2000Kool00`00oooo
o`0Hool3001;ool3000Uool0023oo`<0057oo`<001Soo`03003ooooo01Goo`<0057oo`<002;oo`00
2?oo10004Ooo0`009ooo0P001?oo00<00?ooool00_oo0`008_oo0`005Ooo00<00?ooool04_oo0`00
9Ooo0P001?oo00<00?ooool00_oo0`009?oo0`005?oo10001ooo000:ool00`00ooooo`0>ool2000Y
ool01000ooooo`002ooo00<00?ooool08_oo0P004ooo00<00?ooool04?oo0P009ooo00@00?ooool0
00_oo`03003ooooo02Coo`<001?oo`03003ooooo00Koo`002_oo00<00?ooool02ooo0`00:ooo00@0
0?ooool000_oo`03003ooooo02Coo`80017oo`03003ooooo00koo`8002Woo`04003ooooo000;ool0
0`00ooooo`0Wool3000@ool00`00ooooo`06ool000;oo`@000Coo`03003ooooo00Woo`8002Soo`@0
00;oo`04003ooooo0008ool3000Yool2000?ool2000=ool2000[ool01000ooooo`002?oo0`00;Ooo
0P003_oo00<00?ooool01_oo000:ool00`00ooooo`07ool2000`ool01000ooooo`002?oo00<00?oo
ool0:ooo0P003Ooo00<00?ooool02_oo0P00;Ooo00@00?ooool000Soo`03003ooooo02ooo`<000_o
o`03003ooooo00Koo`002?oo0`001_oo0`00<_oo00@00?ooool000Soo`03003ooooo02goo`<000[o
o`03003ooooo00Soo`8002ooo`04003ooooo0008ool00`00ooooo`0bool20007ool30008ool000[o
o`03003ooooo00;oo`8003Koo`8000Woo`@002ooo`8000Soo`03003ooooo00Koo`8003;oo`8000Wo
o`@003?oo`8000Ooo`03003ooooo00Koo`003Ooo0P00N?oo0P001_oo00<00?ooool01?oo0P00N?oo
0P003_oo000;ool2001lool20004ool00`00ooooo`02ool2001lool2000<ool000Woo`80083oo`80
00;oo`03003ooooo0080083oo`8000[oo`00o`0080000Ooo0007ool00`00ooooo`0;ool00`00oooo
o`0:ool00`00ooooo`0;ool00`00ooooo`0:ool00`00ooooo`0;ool00`00ooooo`0;ool00`00oooo
o`0:ool00`00ooooo`0;ool00`00ooooo`0:ool00`00ooooo`0;ool2000<ool00`00ooooo`0:ool0
0`00ooooo`0;ool00`00ooooo`0:ool00`00ooooo`0;ool00`00ooooo`0;ool00`00ooooo`0:ool0
0`00ooooo`0;ool00`00ooooo`0:ool00`00ooooo`0;ool00`00ooooo`06ool000Ooo`8000coo`03
003ooooo00[oo`03003ooooo00_oo`03003ooooo00[oo`03003ooooo00_oo`03003ooooo00_oo`03
003ooooo00[oo`03003ooooo00_oo`03003ooooo00[oo`03003ooooo00Woo`<00003ool0000000[o
o`03003ooooo00[oo`03003ooooo00_oo`03003ooooo00[oo`03003ooooo00_oo`03003ooooo00_o
o`03003ooooo00[oo`03003ooooo00_oo`03003ooooo00[oo`03003ooooo00[oo`8000Soo`002?oo
00<00?ooool0P?oo0P000_oo00D00?ooooooo`0008;oo`03003ooooo00Ooo`002Ooo00<00?ooool0
OOoo0P001?oo00<00?ooool00_oo0P00Oooo00<00?ooool02?oo0009ool00`00ooooo`1kool20006
ool00`00ooooo`04ool2001mool00`00ooooo`08ool000[oo`03003ooooo07Soo`8000Soo`03003o
oooo00Koo`8007[oo`03003ooooo00Woo`002_oo00<00?ooool0Mooo00<00?ooool02?oo00<00?oo
ool02?oo00<00?ooool0Mooo00<00?ooool02Ooo000;ool00`00ooooo`1dool2000;ool2000:ool2
001fool00`00ooooo`0:ool000_oo`03003ooooo07?oo`03003ooooo00_oo`03003ooooo00_oo`03
003ooooo07?oo`03003ooooo00[oo`003?oo00<00?ooool0LOoo00<00?ooool03?oo00<00?ooool0
3?oo0P00L_oo00<00?ooool02ooo000<ool00`00ooooo`1_ool2000?ool00`00ooooo`0>ool00`00
ooooo`1_ool00`00ooooo`0;ool000coo`03003ooooo06koo`03003ooooo00ooo`03003ooooo00oo
o`8006ooo`03003ooooo00_oo`003Ooo00<00?ooool0K?oo00<00?ooool04?oo00<00?ooool04Ooo
00<00?ooool0Jooo00<00?ooool03?oo000=ool00`00ooooo`1Zool2000Cool00`00ooooo`0Bool2
001[ool00`00ooooo`0<ool000koo`03003ooooo06Soo`03003ooooo01?oo`8001Goo`03003ooooo
06Ooo`03003ooooo00goo`003_oo00<00?ooool0I_oo0P005_oo00<00?ooool05Ooo00<00?ooool0
I_oo00<00?ooool03Ooo000?ool00`00ooooo`1Tool00`00ooooo`0Fool00`00ooooo`0Fool2001U
ool00`00ooooo`0>ool000ooo`03003ooooo06?oo`03003ooooo01Ooo`03003ooooo01Soo`03003o
oooo06;oo`03003ooooo00koo`004?oo00<00?ooool0H?oo0P006_oo00<00?ooool06Ooo00<00?oo
ool0H?oo00<00?ooool03ooo000@ool00`00ooooo`1Oool00`00ooooo`0Jool00`00ooooo`0Jool0
0`00ooooo`1Oool00`00ooooo`0?ool0017oo`03003ooooo05goo`03003ooooo01_oo`03003ooooo
01_oo`03003ooooo05goo`03003ooooo013oo`004Ooo00<00?ooool0Fooo0P007_oo00<00?ooool0
7?oo0P00GOoo00<00?ooool04?oo000Bool00`00ooooo`1Iool00`00ooooo`0Nool2000Oool00`00
ooooo`1Iool00`00ooooo`0Aool001;oo`03003ooooo05Soo`03003ooooo01ooo`03003ooooo01oo
o`03003ooooo05Soo`03003ooooo017oo`004ooo00<00?ooool0E_oo00<00?ooool08?oo00<00?oo
ool08?oo00<00?ooool0E_oo00<00?ooool04_oo000Cool00`00ooooo`1Dool2000Sool00`00oooo
o`0Qool00`00ooooo`1Eool00`00ooooo`0Bool001Coo`03003ooooo05;oo`03003ooooo02?oo`03
003ooooo02;oo`03003ooooo05?oo`03003ooooo01?oo`005?oo00<00?ooool0DOoo00<00?ooool0
4?oo0P001?oo00<00?ooool00_oo10001Ooo00<00?ooool08ooo00<00?ooool0D_oo00<00?ooool0
4ooo000Eool00`00ooooo`1?ool00`00ooooo`0@ool01000ooooo`002?oo00<00?ooool01_oo00<0
0?ooool09?oo0P00DOoo00<00?ooool05?oo000Eool00`00ooooo`1>ool00`00ooooo`0Aool01000
ooooo`002Ooo00<00?ooool01Ooo0`009_oo00<00?ooool0C_oo00<00?ooool05?oo000Fool00`00
ooooo`1;ool2000Dool01000ooooo`002_oo00<00?ooool01?oo00<00?ooool09ooo00<00?ooool0
C?oo00<00?ooool05Ooo000Fool00`00ooooo`1:ool00`00ooooo`0Dool01000ooooo`002ooo00<0
0?ooool00ooo00<00?ooool0:?oo00<00?ooool0Booo00<00?ooool05Ooo000Gool00`00ooooo`18
ool00`00ooooo`0Eool01000ooooo`002?oo00@00?ooool000Goo`03003ooooo02Woo`03003ooooo
04Woo`03003ooooo01Koo`005ooo00<00?ooool0Aooo00<00?ooool05ooo0P002_oo0P001_oo00<0
0?ooool0:_oo00<00?ooool0B?oo00<00?ooool05_oo000Hool00`00ooooo`15ool00`00ooooo`0/
ool00`00ooooo`0[ool00`00ooooo`16ool00`00ooooo`0Gool001Soo`03003ooooo04Coo`03003o
oooo02goo`03003ooooo02coo`03003ooooo04Goo`03003ooooo01Ooo`006Ooo00<00?ooool0@_oo
00<00?ooool0;_oo00<00?ooool0;Ooo00<00?ooool0@ooo00<00?ooool06?oo000Iool00`00oooo
o`11ool00`00ooooo`0_ool2000_ool00`00ooooo`12ool00`00ooooo`0Hool001[oo`03003ooooo
03ooo`03003ooooo033oo`03003ooooo02ooo`03003ooooo043oo`03003ooooo01Woo`006_oo00<0
0?ooool0?_oo00<00?ooool0<Ooo00<00?ooool0<?oo0P00@?oo00<00?ooool06Ooo000Kool00`00
ooooo`0lool00`00ooooo`0bool00`00ooooo`0bool00`00ooooo`0lool00`00ooooo`0Jool001_o
o`03003ooooo03_oo`03003ooooo03?oo`03003ooooo03?oo`03003ooooo03_oo`03003ooooo01[o
o`007?oo00<00?ooool0>Ooo00<00?ooool0=?oo00<00?ooool0=?oo00<00?ooool0>Ooo00<00?oo
ool06ooo000Lool00`00ooooo`0hool00`00ooooo`0eool00`00ooooo`0eool00`00ooooo`0hool0
0`00ooooo`0Kool001goo`03003ooooo03Koo`03003ooooo03Koo`8003Ooo`03003ooooo03Koo`03
003ooooo01coo`007Ooo00<00?ooool0=Ooo00<00?ooool0=ooo00<00?ooool0=ooo00<00?ooool0
=?oo00<00?ooool07Ooo000Nool00`00ooooo`0cool00`00ooooo`0hool00`00ooooo`0hool00`00
ooooo`0cool00`00ooooo`0Mool001ooo`03003ooooo037oo`03003ooooo03Woo`03003ooooo03Wo
o`03003ooooo037oo`03003ooooo01koo`007ooo00<00?ooool0<?oo00<00?ooool0>_oo00<00?oo
ool0>_oo00<00?ooool0<?oo00<00?ooool07_oo000Pool00`00ooooo`0^ool00`00ooooo`0kool0
0`00ooooo`0kool00`00ooooo`0^ool00`00ooooo`0Oool0023oo`03003ooooo02koo`03003ooooo
03_oo`03003ooooo03coo`03003ooooo02goo`03003ooooo01ooo`008Ooo00<00?ooool0;?oo00<0
0?ooool0??oo00<00?ooool0?Ooo00<00?ooool0:ooo00<00?ooool08?oo000Qool00`00ooooo`0[
ool00`00ooooo`0mool2000oool00`00ooooo`0Yool00`00ooooo`0Qool002;oo`03003ooooo02Wo
o`03003ooooo03koo`03003ooooo03ooo`03003ooooo02Soo`03003ooooo027oo`008ooo00<00?oo
ool09ooo00<00?ooool0?ooo00<00?ooool0@?oo00<00?ooool09_oo00<00?ooool08_oo000Sool0
0`00ooooo`0Vool00`00ooooo`10ool00`00ooooo`11ool00`00ooooo`0Uool00`00ooooo`0Rool0
02Coo`03003ooooo02Coo`03003ooooo047oo`03003ooooo04;oo`03003ooooo02?oo`03003ooooo
02?oo`009?oo00<00?ooool08ooo00<00?ooool0;_oo0P001?oo00<00?ooool01?oo00<00?ooool0
1?oo00<00?ooool0@ooo00<00?ooool08_oo00<00?ooool08ooo000Uool00`00ooooo`0Qool00`00
ooooo`0^ool01000ooooo`002_oo00<00?ooool01?oo00<00?ooool0A?oo00<00?ooool08?oo00<0
0?ooool09?oo000Vool00`00ooooo`0Oool00`00ooooo`0_ool01000ooooo`001ooo1@001Ooo0`00
A?oo00<00?ooool07ooo00<00?ooool09Ooo000Vool00`00ooooo`0Nool00`00ooooo`0`ool01000
ooooo`001ooo00@00?ooool000Koo`03003ooooo04Goo`03003ooooo01koo`03003ooooo02Goo`00
9ooo00<00?ooool07?oo00<00?ooool0<Ooo00@00?ooool000Soo`03003oo`0000Koo`03003ooooo
04Koo`03003ooooo01coo`03003ooooo02Koo`009ooo00<00?ooool07?oo00<00?ooool0<Ooo00@0
0?ooool000Woo`8000Koo`03003ooooo04Ooo`03003ooooo01_oo`03003ooooo02Koo`00:?oo00<0
0?ooool06_oo00<00?ooool0<ooo0P002ooo00<00?ooool01?oo00<00?ooool0B?oo00<00?ooool0
6Ooo00<00?ooool09ooo000Xool00`00ooooo`0Iool00`00ooooo`18ool00`00ooooo`19ool00`00
ooooo`0Hool00`00ooooo`0Wool002Woo`03003ooooo01Ooo`03003ooooo04Woo`03003ooooo04Wo
o`03003ooooo01Ooo`03003ooooo02Soo`00:_oo00<00?ooool05Ooo00<00?ooool0B_oo00<00?oo
ool0B_oo00<00?ooool05Ooo00<00?ooool0:Ooo000Zool00`00ooooo`0Dool00`00ooooo`1;ool2
001<ool00`00ooooo`0Dool00`00ooooo`0Yool002_oo`03003ooooo01;oo`03003ooooo04coo`03
003ooooo04coo`03003ooooo01;oo`03003ooooo02[oo`00;?oo00<00?ooool04?oo00<00?ooool0
COoo00<00?ooool0COoo00<00?ooool04?oo00<00?ooool0:ooo000/ool00`00ooooo`0?ool00`00
ooooo`1>ool00`00ooooo`1>ool00`00ooooo`0?ool00`00ooooo`0[ool002goo`03003ooooo00ko
o`03003ooooo04koo`03003ooooo04koo`03003ooooo00koo`03003ooooo02coo`00;_oo00<00?oo
ool03?oo00<00?ooool0Cooo00<00?ooool0Cooo00<00?ooool03?oo00<00?ooool0;Ooo000^ool0
0`00ooooo`0;ool00`00ooooo`1@ool00`00ooooo`1@ool00`00ooooo`0;ool00`00ooooo`0]ool0
02ooo`03003ooooo00Woo`03003ooooo057oo`8005;oo`03003ooooo00Woo`03003ooooo02koo`00
;ooo00<00?ooool02?oo00<00?ooool0D_oo00<00?ooool0DOoo00<00?ooool02Ooo00<00?ooool0
;_oo000`ool00`00ooooo`07ool00`00ooooo`1Bool00`00ooooo`1Bool00`00ooooo`07ool00`00
ooooo`0_ool0037oo`03003ooooo00Goo`03003ooooo05?oo`03003ooooo05?oo`03003ooooo00Go
o`03003ooooo033oo`00<Ooo00<00?ooool01?oo00<00?ooool0E?oo00<00?ooool0E?oo00<00?oo
ool01?oo00<00?ooool0<?oo000bool00`00ooooo`02ool00`00ooooo`1Eool00`00ooooo`1Eool0
0`00ooooo`02ool00`00ooooo`0aool003?oo`04003ooooo001Hool00`00ooooo`1Eool01@00oooo
oooo0000=?oo000cool01000ooooo`00F?oo00<00?ooool0E_oo00@00?ooool003Coo`00=?oo0P00
FOoo0P00F?oo0P00=Ooo000dool2001Iool00`00ooooo`1Gool2000eool003?oo`03003oo`0005Wo
o`03003ooooo05Ooo`03003oo`0003Coo`00<_oo00D00?ooooooo`0005Soo`03003ooooo05Koo`04
003ooooo000dool003;oo`03003ooooo00;oo`03003ooooo05Goo`03003ooooo05Goo`03003ooooo
00;oo`03003ooooo037oo`00<Ooo00<00?ooool01?oo00<00?ooool0@?oo0P001?oo00<00?ooool0
0ooo0P001_oo00<00?ooool0E?oo00<00?ooool01?oo00<00?ooool0<?oo000`ool00`00ooooo`05
ool00`00ooooo`0oool01000ooooo`002?oo00@00?ooool000Goo`03003ooooo05Coo`03003ooooo
00Goo`03003ooooo02ooo`00;ooo00<00?ooool01ooo00<00?ooool0?_oo00@00?ooool000Soo`04
003ooooo0005ool3001Cool00`00ooooo`07ool00`00ooooo`0^ool002ooo`03003ooooo00Soo`03
003ooooo03goo`04003ooooo0008ool30006ool00`00ooooo`1Bool00`00ooooo`08ool00`00oooo
o`0^ool002koo`03003ooooo00[oo`03003ooooo03coo`04003ooooo0008ool00`00ooooo`06ool0
0`00ooooo`1Aool00`00ooooo`0:ool00`00ooooo`0]ool002goo`03003ooooo00_oo`03003ooooo
03coo`04003ooooo0008ool00`00ooooo`06ool00`00ooooo`1Aool00`00ooooo`0;ool00`00oooo
o`0/ool002coo`03003ooooo00goo`03003ooooo03coo`8000[oo`<000Goo`03003ooooo053oo`03
003ooooo00goo`03003ooooo02_oo`00:ooo00<00?ooool03ooo00<00?ooool0Cooo00<00?ooool0
Cooo00<00?ooool03ooo00<00?ooool0:_oo000[ool00`00ooooo`0@ool00`00ooooo`1>ool00`00
ooooo`1>ool00`00ooooo`0@ool00`00ooooo`0Zool002[oo`03003ooooo017oo`03003ooooo04ko
o`03003ooooo04koo`03003ooooo017oo`03003ooooo02Woo`00:Ooo00<00?ooool04ooo00<00?oo
ool0COoo0P00C_oo00<00?ooool04ooo00<00?ooool0:?oo000Xool00`00ooooo`0Eool00`00oooo
o`1<ool00`00ooooo`1<ool00`00ooooo`0Eool00`00ooooo`0Wool002Soo`03003ooooo01Koo`03
003ooooo04_oo`03003ooooo04_oo`03003ooooo01Koo`03003ooooo02Ooo`009ooo00<00?ooool0
6?oo00<00?ooool0B_oo00<00?ooool0Booo00<00?ooool05ooo00<00?ooool09_oo000Vool00`00
ooooo`0Iool00`00ooooo`1:ool00`00ooooo`1:ool00`00ooooo`0Iool00`00ooooo`0Uool002Ko
o`03003ooooo01[oo`03003ooooo04Woo`03003ooooo04Woo`03003ooooo01[oo`03003ooooo02Go
o`009Ooo00<00?ooool07?oo00<00?ooool0B?oo00<00?ooool0B?oo00<00?ooool07?oo00<00?oo
ool09?oo000Tool00`00ooooo`0Nool00`00ooooo`17ool20018ool00`00ooooo`0Nool00`00oooo
o`0Sool002Coo`03003ooooo01koo`03003ooooo04Ooo`03003ooooo04Ooo`03003ooooo01koo`03
003ooooo02?oo`008ooo00<00?ooool08?oo00<00?ooool0A_oo00<00?ooool0A_oo00<00?ooool0
8?oo00<00?ooool08_oo000Rool00`00ooooo`0Rool00`00ooooo`15ool00`00ooooo`15ool00`00
ooooo`0Qool00`00ooooo`0Rool0027oo`03003ooooo02Coo`03003ooooo04Coo`03003ooooo04Co
o`03003ooooo02?oo`03003ooooo027oo`008Ooo00<00?ooool09Ooo00<00?ooool0@ooo00<00?oo
ool0@ooo00<00?ooool09Ooo00<00?ooool08?oo000Pool00`00ooooo`0Vool00`00ooooo`13ool0
0`00ooooo`13ool00`00ooooo`0Uool00`00ooooo`0Pool001ooo`03003ooooo02Soo`03003ooooo
04;oo`03003ooooo04;oo`03003ooooo02Ooo`03003ooooo01ooo`007ooo00<00?ooool0:Ooo00<0
0?ooool0@Ooo0P00@_oo00<00?ooool0:Ooo00<00?ooool07_oo000Nool00`00ooooo`0[ool00`00
ooooo`10ool00`00ooooo`10ool00`00ooooo`0Zool00`00ooooo`0Nool001goo`03003ooooo02go
o`03003ooooo03ooo`03003ooooo03ooo`03003ooooo02coo`03003ooooo01goo`007Ooo00<00?oo
ool0;_oo00<00?ooool0?_oo00<00?ooool0?_oo00<00?ooool0;_oo00<00?ooool07?oo000Lool0
0`00ooooo`0`ool00`00ooooo`0mool00`00ooooo`0mool00`00ooooo`0_ool00`00ooooo`0Lool0
01_oo`03003ooooo03;oo`03003ooooo02Soo`8000Coo`03003ooooo00?oo`8000Koo`03003ooooo
03coo`03003ooooo037oo`03003ooooo01_oo`006ooo00<00?ooool0<ooo0P009ooo00@00?ooool0
00Soo`04003ooooo0005ool00`00ooooo`0kool00`00ooooo`0cool00`00ooooo`0Jool001[oo`03
003ooooo03Koo`03003ooooo02Coo`04003ooooo0008ool01000ooooo`001Ooo0`00>_oo00<00?oo
ool0=?oo00<00?ooool06_oo000Iool00`00ooooo`0hool00`00ooooo`0Sool01000ooooo`002Ooo
0P001_oo00<00?ooool0>Ooo00<00?ooool0=_oo00<00?ooool06Ooo000Iool00`00ooooo`0iool0
0`00ooooo`0Rool01000ooooo`002?oo00@00?ooool000Goo`03003ooooo03Soo`03003ooooo03So
o`03003ooooo01Soo`006?oo00<00?ooool0>ooo00<00?ooool08Ooo00@00?ooool000Soo`04003o
oooo0005ool00`00ooooo`0gool00`00ooooo`0iool00`00ooooo`0Hool001Ooo`03003ooooo03go
o`03003ooooo027oo`8000[oo`8000Koo`03003ooooo03Koo`03003ooooo03_oo`03003ooooo01Oo
o`005ooo00<00?ooool0?_oo00<00?ooool0=?oo00<00?ooool0=?oo0P00?ooo00<00?ooool05_oo
000Fool00`00ooooo`10ool00`00ooooo`0cool00`00ooooo`0cool00`00ooooo`10ool00`00oooo
o`0Eool001Goo`03003ooooo04;oo`03003ooooo03;oo`03003ooooo03;oo`03003ooooo047oo`03
003ooooo01Goo`005Ooo00<00?ooool0@ooo00<00?ooool0<Ooo0P00<Ooo0P00AOoo00<00?ooool0
5?oo000Dool00`00ooooo`15ool2000aool00`00ooooo`0_ool00`00ooooo`16ool00`00ooooo`0C
ool001?oo`03003ooooo04Soo`03003ooooo02koo`03003ooooo02koo`03003ooooo04Ooo`03003o
oooo01?oo`004ooo00<00?ooool0BOoo00<00?ooool0;Ooo00<00?ooool0;?oo0P00Booo00<00?oo
ool04_oo000Bool00`00ooooo`1;ool00`00ooooo`0/ool00`00ooooo`0[ool00`00ooooo`1<ool0
0`00ooooo`0Aool0017oo`03003ooooo04goo`03003ooooo02_oo`03003ooooo02[oo`03003ooooo
04goo`03003ooooo017oo`004Ooo00<00?ooool0C_oo00<00?ooool0:_oo00<00?ooool0:?oo0P00
DOoo00<00?ooool04?oo000@ool00`00ooooo`1@ool2000Zool2000Xool00`00ooooo`1Bool00`00
ooooo`0?ool0013oo`03003ooooo05;oo`03003ooooo02Ooo`03003ooooo02Goo`8005Goo`03003o
oooo00ooo`003ooo00<00?ooool0E?oo0P009ooo00<00?ooool09?oo00<00?ooool0E_oo00<00?oo
ool03_oo000>ool00`00ooooo`1Gool2000Uool00`00ooooo`0Sool00`00ooooo`1Gool00`00oooo
o`0>ool000koo`03003ooooo05Woo`03003ooooo02;oo`03003ooooo027oo`8005_oo`03003ooooo
00goo`003Ooo00<00?ooool0Fooo0P008_oo00<00?ooool07ooo0P00G_oo00<00?ooool03?oo000=
ool00`00ooooo`1Mool00`00ooooo`0Oool00`00ooooo`0Mool2001Pool00`00ooooo`0<ool000co
o`03003ooooo05ooo`8001ooo`03003ooooo01_oo`8006?oo`03003ooooo00_oo`002ooo00<00?oo
ool0H_oo0P007Ooo0P006_oo0P00I_oo00<00?ooool02_oo000;ool00`00ooooo`1Tool3000Jool0
0`00ooooo`0Gool2001Xool00`00ooooo`0:ool000[oo`03003ooooo06Soo`<001Ooo`03003ooooo
01Goo`8006_oo`03003ooooo00Woo`002Ooo00<00?ooool0K?oo0`005?oo00<00?ooool04ooo0P00
KOoo00<00?ooool02Ooo0009ool00`00ooooo`1_ool3000Aool00`00ooooo`0@ool3001`ool00`00
ooooo`08ool000Soo`03003ooooo07?oo`D000?oo`@000Goo`03003ooooo00[oo`H007Coo`03003o
oooo00Ooo`002?oo00<00?ooool0N?oo1P001_oo00<00?ooool01?oo1P00N_oo00<00?ooool01ooo
0007ool00`00ooooo`1nool>0021ool00`00ooooo`06ool008Soo`03003ooooo00Coo`03003ooooo
08koo`00R?oo00<00?ooool01?oo00<00?ooool0S_oo0026ool30006ool00`00ooooo`2>ool008So
o`03003ooooo00Coo`03003ooooo08koo`00\
\>"],
  ImageRangeCache->{{{0, 287}, {176.938, 0}} -> {-1.05437, -0.153131, \
0.00734749, 0.00668729}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell["Element displacement interpolation matrix", "Subtitle",
  FontSize->24],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{"H", " ", "=", " ", 
      RowBox[{"(", GridBox[{
            {\(\[Phi]\_1\), \(\[Phi]\_2\), \(\[Phi]\_3\)}
            }], ")"}]}]], "Input",
  FontSize->24],

Cell[BoxData[
    \({{1\/2\ \((\(-1\) + \[Xi])\)\ \[Xi], 1 - \[Xi]\^2, 
        1\/2\ \[Xi]\ \((1 + \[Xi])\)}}\)], "Output"]
}, Open  ]],

Cell["\<\
Element nodal displacement vector and dispacement \
interpolation\
\>", "Subtitle",
  FontSize->24],

Cell[CellGroupData[{

Cell[BoxData[{
    \(Un\  = \ Table[U\_a, {a, 3}]\), "\n", 
    \(ue\  = \ H . Un\)}], "Input",
  FontSize->24],

Cell[BoxData[
    \({U\_1, U\_2, U\_3}\)], "Output"],

Cell[BoxData[
    \({1\/2\ \((\(-1\) + \[Xi])\)\ \[Xi]\ U\_1 + \((1 - \[Xi]\^2)\)\ U\_2 + 
        1\/2\ \[Xi]\ \((1 + \[Xi])\)\ U\_3}\)], "Output"]
}, Open  ]],

Cell["\<\
Nodal coordinates and element coordinates interpolation (mapping)\
\
\>", "Subtitle",
  FontSize->24],

Cell[CellGroupData[{

Cell[BoxData[{
    \(Xn\  = \ Table[X\_a, {a, 3}]\), "\[IndentingNewLine]", 
    \(xe\  = \ H . Xn\)}], "Input",
  FontSize->24],

Cell[BoxData[
    \({X\_1, X\_2, X\_3}\)], "Output"],

Cell[BoxData[
    \({1\/2\ \((\(-1\) + \[Xi])\)\ \[Xi]\ X\_1 + \((1 - \[Xi]\^2)\)\ X\_2 + 
        1\/2\ \[Xi]\ \((1 + \[Xi])\)\ X\_3}\)], "Output"]
}, Open  ]],

Cell["Jacobian", "Subtitle",
  FontSize->24],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(dxd\[Xi]\  = \ \[PartialD]\_\[Xi] xe[\([1]\)] // 
          Simplify;\)\), "\[IndentingNewLine]", 
    \(d\[Xi]dx\  = \ 1\/dxd\[Xi]\)}], "Input",
  FontSize->24],

Cell[BoxData[
    \(2\/\(\((\(-1\) + 2\ \[Xi])\)\ X\_1 - 4\ \[Xi]\ X\_2 + \((1 + 2\ \
\[Xi])\)\ X\_3\)\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
  FontSize->24],

Cell[BoxData[
    \({{1\/2\ \((\(-1\) + \[Xi])\) + \[Xi]\/2, \(-2\)\ \[Xi], \[Xi]\/2 + \(1 \
+ \[Xi]\)\/2}}\)], "Output"]
}, Open  ]],

Cell[TextData[{
  "Element strain-operator matrix :\n\t\[Epsilon] = ",
  Cell[BoxData[
      \(TraditionalForm\`\[PartialD]\_x 
          u\  = \ \(\[PartialD]\_\[Xi] 
              u\ \[PartialD]\_x \[Xi]\  = \ \(\(\[PartialD]\_\[Xi]\)\((H . 
                Ue)\)\(\ \)\)\)\)]],
  Cell[BoxData[
      \(TraditionalForm\`\(\(\ \)\(\(\[PartialD]\_x\)\(\[Xi]\)\(\ \)\)\)\)]],
  "=",
  Cell[BoxData[
      \(TraditionalForm\`\(\(\ \)\(\(\[PartialD]\_\[Xi] 
          H\)\(.\)\(Ue\)\(\ \ \)\)\)\)]],
  Cell[BoxData[
      \(TraditionalForm\`\[PartialD]\_x \[Xi]\)]],
  " -> B = ",
  Cell[BoxData[
      \(TraditionalForm\`\(\(\ \)\(\(\[PartialD]\_\[Xi]\)\(H\)\(\ \)\)\)\)]],
  Cell[BoxData[
      \(TraditionalForm\`\[PartialD]\_x \[Xi]\)]]
}], "Subtitle",
  FontSize->24],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(dHd\[Xi]\  = \ \[PartialD]\_\[Xi] H;\)\), "\[IndentingNewLine]", 
    \(B\  = \ dHd\[Xi]\ d\[Xi]dx // Simplify\), "\[IndentingNewLine]", 
    \(Dimensions[B]\)}], "Input",
  FontSize->24],

Cell[BoxData[
    \({{\(\(-1\) + 2\ \[Xi]\)\/\(\((\(-1\) + 2\ \[Xi])\)\ X\_1 - 4\ \[Xi]\ \
X\_2 + \((1 + 2\ \[Xi])\)\ X\_3\), \(-\(\(4\ \[Xi]\)\/\(\((\(-1\) + 
                      2\ \[Xi])\)\ X\_1 - 
                4\ \[Xi]\ X\_2 + \((1 + 
                      2\ \[Xi])\)\ X\_3\)\)\), \(1 + 2\ \[Xi]\)\/\(\((\(-1\) \
+ 2\ \[Xi])\)\ X\_1 - 4\ \[Xi]\ X\_2 + \((1 + 2\ \[Xi])\)\ X\_3\)}}\)], \
"Output"],

Cell[BoxData[
    \({1, 3}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(values\  = \ {X\_1 \[Rule] \(-1\), \ X\_2 \[Rule] 0, \ 
        X\_3 \[Rule] 1}\), "\[IndentingNewLine]", 
    \(\(B\  /. \ values // Simplify\) // MatrixForm\)}], "Input",
  FontSize->24],

Cell[BoxData[
    \({X\_1 \[Rule] \(-1\), X\_2 \[Rule] 0, X\_3 \[Rule] 1}\)], "Output"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(-\(1\/2\)\) + \[Xi]\), \(\(-2\)\ \[Xi]\), \(1\/2 + \[Xi]\)}
            }], "\[NoBreak]", ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell["Stiffness matrix", "Subtitle",
  FontSize->24],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(values\  = \ {X\_1 \[Rule] 0, \ X\_2 \[Rule] L/2, \ 
          X\_3 \[Rule] L};\)\), "\[IndentingNewLine]", 
    \(\(integrand\  = \ 
        dxd\[Xi]\ EA\ Transpose[B] . B\ \  /. \ values // 
          Simplify;\)\), "\[IndentingNewLine]", 
    \(\(K\  = \ 
        Integrate[integrand\ , {\[Xi], \(-1\), 1}] // 
          Simplify;\)\), "\[IndentingNewLine]", 
    \(MatrixForm[K]\)}], "Input",
  FontSize->24],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(7\ EA\)\/\(3\ L\)\), \(-\(\(8\ EA\)\/\(3\ L\)\)\), \(EA\/\(3\
\ L\)\)},
            {\(-\(\(8\ EA\)\/\(3\ L\)\)\), \(\(16\ EA\)\/\(3\ L\)\), \(-\(\(8\
\ EA\)\/\(3\ L\)\)\)},
            {\(EA\/\(3\ L\)\), \(-\(\(8\ EA\)\/\(3\ L\)\)\), \(\(7\ EA\)\/\(3\
\ L\)\)}
            }], "\[NoBreak]", ")"}],
      (MatrixForm[ #]&)]], "Output",
  FontSize->34]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Det[K] // Simplify\)], "Input",
  FontSize->24],

Cell[BoxData[
    \(0\)], "Output"]
}, Open  ]],

Cell["Force vector", "Subtitle"],

Cell[CellGroupData[{

Cell[BoxData[
    \(R\  = \ 
      Integrate[\ dxd\[Xi]\ q0\ H, {\[Xi], \(-1\), 1}]\  /. \ 
        values\)], "Input"],

Cell[BoxData[
    \({{\(L\ q0\)\/6, \(2\ L\ q0\)\/3, \(L\ q0\)\/6}}\)], "Output"]
}, Open  ]]
},
FrontEndVersion->"4.0 for X",
ScreenRectangle->{{0, 1600}, {0, 1200}},
WindowSize->{1091, 945},
WindowMargins->{{169, Automatic}, {Automatic, 0}},
StyleDefinitions -> "DemoText.nb"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 137, 4, 70, "Title"],
Cell[1857, 55, 111, 3, 48, "Input"],
Cell[1971, 60, 67, 1, 47, "Subtitle"],

Cell[CellGroupData[{
Cell[2063, 65, 461, 9, 237, "Input"],
Cell[2527, 76, 21294, 578, 194, 5461, 378, "GraphicsData", "PostScript", \
"Graphics"],
Cell[23824, 656, 130, 3, 47, "Output"]
}, Open  ]],
Cell[23969, 662, 77, 1, 47, "Subtitle"],

Cell[CellGroupData[{
Cell[24071, 667, 184, 5, 49, "Input"],
Cell[24258, 674, 124, 2, 64, "Output"]
}, Open  ]],
Cell[24397, 679, 109, 4, 47, "Subtitle"],

Cell[CellGroupData[{
Cell[24531, 687, 111, 3, 78, "Input"],
Cell[24645, 692, 52, 1, 47, "Output"],
Cell[24700, 695, 148, 2, 64, "Output"]
}, Open  ]],
Cell[24863, 700, 111, 4, 47, "Subtitle"],

Cell[CellGroupData[{
Cell[24999, 708, 128, 3, 78, "Input"],
Cell[25130, 713, 52, 1, 47, "Output"],
Cell[25185, 716, 148, 2, 64, "Output"]
}, Open  ]],
Cell[25348, 721, 44, 1, 47, "Subtitle"],

Cell[CellGroupData[{
Cell[25417, 726, 184, 4, 115, "Input"],
Cell[25604, 732, 116, 2, 66, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[25757, 739, 42, 1, 48, "Input"],
Cell[25802, 742, 121, 2, 64, "Output"]
}, Open  ]],
Cell[25938, 747, 769, 21, 79, "Subtitle"],

Cell[CellGroupData[{
Cell[26732, 772, 210, 4, 109, "Input"],
Cell[26945, 778, 406, 7, 66, "Output"],
Cell[27354, 787, 40, 1, 47, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[27431, 793, 209, 4, 78, "Input"],
Cell[27643, 799, 87, 1, 47, "Output"],
Cell[27733, 802, 219, 5, 53, "Output"]
}, Open  ]],
Cell[27967, 810, 52, 1, 47, "Subtitle"],

Cell[CellGroupData[{
Cell[28044, 815, 435, 10, 138, "Input"],
Cell[28482, 827, 437, 11, 175, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[28956, 843, 67, 2, 48, "Input"],
Cell[29026, 847, 35, 1, 47, "Output"]
}, Open  ]],
Cell[29076, 851, 32, 0, 41, "Subtitle"],

Cell[CellGroupData[{
Cell[29133, 855, 119, 3, 37, "Input"],
Cell[29255, 860, 81, 1, 64, "Output"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)