(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. 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[ 25442, 635]*) (*NotebookOutlinePosition[ 26401, 670]*) (* CellTagsIndexPosition[ 26328, 664]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Model obr\[AAcute]cen\[EAcute]ho kyvadla", "Section"], Cell[TextData[{ "Petr Bedn\[AAcute]\:0159, Katedra elektroenergetiky, \[CapitalCHacek]VUT \ FEL\n", StyleBox["bednarp@feld.cvut.cz\n", FontSlant->"Italic"] }], "Text"], Cell[TextData[{ "Zadan\[EAcute] hodnoty: ", StyleBox["m", FontSlant->"Italic"], " - hmotnost kyvadla, ", StyleBox["M", FontSlant->"Italic"], " - hmotnost voz\[IAcute]ku, ", StyleBox["L", FontSlant->"Italic"], " - d\[EAcute]lka kyvadla, ", StyleBox["g", FontSlant->"Italic"], " - gravita\[CHacek]n\[IAcute] zrychlen\[IAcute]" }], "Text"], Cell[BoxData[ \(\(zadani = {m \[Rule] 2, M \[Rule] 6, L \[Rule] 1, g \[Rule] 9.81};\)\)], "Input"], Cell[GraphicsData["Metafile", "\<\ CF5dJ6E]HGAYHf4PEfU^I6mgLb15CDHPAVmbKF5d0@0001hd0@0006`00000000000000381002]0000 00000000001j9@00AQD00215CDH00040=1h008@0000;0000000000000000000000@0000300100@00 l0000000000000000000003R1020Z@<0AP00090700241`00AdA9@`4008000`000C5F2`00001/1`00 0@090003]P<000`09P0000007@0002H63`0_04e7F4Tj86=bIF5dIF@PHWTPCFUSLVmWLV5VN2`PBFiS ;R1=IgQWLVDPMS4^<30000@000030@P01@0000/2000000D0000<0P400@05000030:30Vd41`000?`2 0000000000040000;@4000P0003j0P000000000000040000;@4100L0000K11`2R0;>0Nd11`000?`2 003oool000040000;@4200L0000H13D28P810^d11`0001P4=@:80P42E0870000o0810000000000@0 000]0@<0200002D30P1]03@2>P8d0PP0000U0`80>P8d0PP4=08500000P41000020000?X20`000000 000000@0000]0@@0200002D30P0j0P00>P:10PD000060@8000040000;@4000P0003j0PD00@000000 00040000;@4500h0000T0`D0J`0K0V/0=09_03@2K`0K0V/06`8>000090<500H46`8613@22P@d0PX4 6`8611/2100002d10`040000;@4100P0000U0`80n@490@;C0CT2e04k0]@1>`;C0C`2 d`4l0]81c@4B01`0003k0QSl00000000T0400002000005=iKF9_K01n@0000P8d0UL0000T0000VP0009T0000H0@00V@000080000j0S@220@d0Q80000<00000@0002H0000L0000 100000<00000000000000000000U0000300000@0001G0000900009X000000000VP000:d000020000 >P8003X2P@8C000030000080000U000030000040000U0000300000P0081F0000<00001d0002B0000 7P0009T000050000J`0K0V/0=09_03@2K`0K0V/06`9F0000<00001L1002B0000604009T000050000 1P@K0PH4=08:13@22P@K0PH46`8U0000300000D0080U000030000080001G0000900007`000020000 R@0000D000020000n@4900;C0CT2d`4i0]@1 >`;D0C/2d`4l0]<1?0;B0Ld14P1B0000L04000D0000Ho?oo0000000000000000T040000000800000 D`1i06d0HP1_06`00000000000000000000000000000000000000000000000000000000000000000 000000000000000040000000000000000000000000000000200000<0002LlA8000000<]4nGN`KQP0 cH_eMnP95@0gT?Eg4@000000002hKQP0@0000000002X0AD0Z04E0400001L0AD0000003Sc4P1h0AD0 85XM0?oooomh0AD0000E08Rg70000000c@PE5@34f7LE000065XM08Rg702X0AD00000000000000000 4?XL09Sb701K@1Un4P00000000040000h[3`4P000000e?4B0?28nWN87?EgooooofAf00P0000000000:P15@2X0AD0 @00005`15@000000>?:c6WhB0000T00007ca4P01P000W?4B0000003;A?Ug N;LL0h00000@@1b06T0H@1/0200@`150000000000000000000000000000 0000000000000000000000000000000000000000701K@1UnkT0IOP008G/40000NmLJOVGG6Wk?225k O0PM07@87@10LAP0Z?4B0?cF6WhZ0000c`PQNoT1003[00002P800?`0001TMP0800000000002X0AD0 Z04E0400001L0AD0000003Sc4P1h0AD085XM0?oooomh0AD0000E08Rg70000000c@PE5@34f7LE0000 65XM08Rg702X0AD000000000000000004?XL09Sb701K@1UnkT0IOP008G/40000NmLJOVGG6Wk?225k O0PM07@87@10LAP02j`JOP`0000U0000@74H0>3a4P0000X0e:dJOP`0001TMP08000002D0000<0000 200005@0001D0000K@0003X0001b0000A`000040000UN`M1XTd7@I81003F00000@0004`000000000 00000000003ooooooooooe00001h00005@0002D0000<00001`000580001`0@002@000>Soool00000 00000000002@0@000000kP0000110780J@1Q06`0801304D000000000000000000000000000000000 00000000000000000000000000000000000L05]06Gk^@1Un000QN`@0001keaYnIMLJO/l88G]l21d0 M0PM09ca4P000000bdCiMgRg703=RoEgj0HE03N@mGL8mQ`0P;LL082g7000000000000:P15@2X0AD0 @00005`15@000000>?P000840001700000@0002Ek1d6RC@M1/`400=H000030000C00000000000000000000?oooooooooo E00002`0801i06D0300000/0000E00009@0000`0000700009@0000`000090000E00005@000220000 @@0008D0001700000@0002Ek1d6RC@M1gP400?0000010000C00000000000000000000?oooooooooo D00006<0KP0<00009@0000`0000700009@0000`000080000E00005@0001i0000C0000880001I0000 0@0002Ek1d6RC@M1_P4001P100010000C00000000000000000000?ooooooooooD00006d0000S0000 9@0000`0000700009@0000`000080000E00005@0002d0000O@000;d0002:00000@0002Ek1d6RC@M1 U`8000;@0BD0000<00000`0002D0000<00002000P2/0000H0000>@800<80001=0P00 kP0002D0000<00001`0002D0000<000020000180000<00000P0005@0001D0000VP0003D0002P0000 @P000040000UN`M1XTd7@CT2003200000@0004`00000000000000000003ooooooooooe00001<0000 5`0002L0000H00002P000000003oool0000002D0000<00002P0002P0000<00000@0002P0000<0000 0`0002H0000L00000`0000000000000000000000000U0000300000<0000X0000300000@0000X0000 30000080001B0000L0400080000D00002@00000000000000_08000000>h10P8RD`1i07<0M01U06d0 000000000000000000000000000000000000000000000000000000000000000000000000701K@1Un 0P00000000040000NmLJOP80000@000030000:T4002LlA8000000<]4nGMh]a`0cH_eMnP65@0gT?Eg A_TL082g7020]a`000000000002X0AD0Z04E00@0000P0000000003Sc4P1h0AD085X100005@1dl180 000E06Sa4P3`R?YgR1ceMooooolgT?Egbf3WM`005@000000gV3WMhH8<>`hZA`08=0LOYSb701K@1Un 0P0000000014lA80NmLJO]Sb4P09B>UgR3;XMooooooNH>MgbNTIOSRY7010LAP0>:TL0100002`lA80 fkLJOR3@77iTMP08000002D0000<00000P0002P0000<00001@0002P0000<00001P0002P0000<0000 2@0002P0000<00001`0002P0000<0000200002D0000<00001`00P2D0000<00000000P300000<0000 3`00P2D0000<00003@00P4/0000@0000000000D0000X0000300000<0000X000030000080000X0000 300000X0000>000050000000000@00005000 \>"], "Text", TextAlignment->Center, TextJustification->0, ImageSize->{271.875, 154.375}, ImageMargins->{{81.25, 0}, {0, 23.875}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Obr.", FontWeight->"Bold"], " Obr\[AAcute]cen\[EAcute] kyvadlo\n" }], "Text", TextAlignment->Center, TextJustification->0], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`X\_0\)]], "- po\[CHacek]\[AAcute]te\[CHacek]n\[IAcute] poloha voz\[IAcute]ku, ", Cell[BoxData[ \(TraditionalForm\`\[CurlyPhi]\_0\)]], "- po\[CHacek]\[AAcute]te\[CHacek]n\[IAcute] v\[YAcute]chylka kyvadla, ", Cell[BoxData[ \(TraditionalForm\`X\_k\)]], "- po\:017eadovan\[AAcute] poloha voz\[IAcute]ku" }], "Text"], Cell[BoxData[ \(\(rizeni = {\[Alpha] \[Rule] 3, X0 \[Rule] \(-0.15\), \[CurlyPhi]0 \[Rule] \(-0.05\), Xk \[Rule] 0.15};\)\)], "Input"], Cell[TextData[{ "\nS\[IAcute]ly ", Cell[BoxData[ \(TraditionalForm\`F\_x\)]], " a ", Cell[BoxData[ \(TraditionalForm\`F\_y\)]], " p\:016fsob\[IAcute]c\[IAcute] na kyvadlo" }], "Text"], Cell[BoxData[{ \(\(rce1 = Fx \[Equal] m\[Times]\(xc''\)[t];\)\), "\[IndentingNewLine]", \(\(rce2 = Fy - m\[Times]g \[Equal] m\[Times]\(yc''\)[t];\)\)}], "Input"], Cell[TextData[{ "Linearizace ", Cell[BoxData[ \(TraditionalForm\`sin(\[CurlyPhi]) \[Rule] \[CurlyPhi]\)]], ", ", Cell[BoxData[ \(TraditionalForm\`cos(\[CurlyPhi]) \[Rule] 1\)]] }], "Text"], Cell[BoxData[ \(\(rce3 = \(1\/2\) Fy\[Times]L\[Times]\[CurlyPhi][t] - \(1\/2\) Fx\[Times]L \[Equal] J\[Times]\(\[CurlyPhi]''\)[t];\)\)], "Input"], Cell[TextData[{ "Moment setrva\[CHacek]nosti ", StyleBox["J", FontSlant->"Italic"] }], "Text", PageBreakAbove->True], Cell[BoxData[ \(\(J = \(m\[Times]L\^2\)\/12;\)\)], "Input"], Cell[TextData[{ "S\[IAcute]ly p\:016fsob\[IAcute]c\[IAcute] na voz\[IAcute]k, ", Cell[BoxData[ \(TraditionalForm\`f\_x\)]], " hnac\[IAcute] s\[IAcute]la" }], "Text"], Cell[BoxData[ \(\(rce4 = fx - Fx \[Equal] M\[Times]\(X''\)[t];\)\)], "Input"], Cell["Poloha t\:011b\:017ei\[SHacek]t\:011b kyvadla", "Text"], Cell[BoxData[{ \(\(xc[t_] = X[t] + \(1\/2\) L\[Times]\[CurlyPhi][t];\)\), "\[IndentingNewLine]", \(\(yc[t_] = \(1\/2\) L;\)\)}], "Input"], Cell["\:0158e\[SHacek]en\[EAcute] diferenci\[AAcute]ln\[IAcute] rovnice", \ "Text"], Cell[BoxData[{ \(\(rce = Eliminate[{rce1, rce2, rce3, rce4}, {Fx, Fy}] // Simplify;\)\), "\[IndentingNewLine]", \(rce[\([1]\)]\), "\[IndentingNewLine]", \(rce[\([2]\)]\)}], "Input"], Cell[CellGroupData[{ Cell["Stavov\[YAcute] model", "Subsection", PageBreakAbove->True], Cell[TextData[{ Cell[BoxData[ \(TraditionalForm\`x' = A . x + B . u\)]], "\n", Cell[BoxData[ \(TraditionalForm\`y = C . x\)]], "\n\n", StyleBox["x", FontSlant->"Italic"], " - stavov\[EAcute] veli\[CHacek]iny (", StyleBox["x", FontSlant->"Italic"], ",", StyleBox[" x'", FontSlant->"Italic"], ",", " ", StyleBox["\[CurlyPhi]", FontSlant->"Italic"], ", ", StyleBox["\[CurlyPhi]'", FontSlant->"Italic"], ")\n", StyleBox["u", FontSlant->"Italic"], " - ak\[CHacek]n\[IAcute] veli\[CHacek]ina (", StyleBox["fx", FontSlant->"Italic"], ")\n", StyleBox["y", FontSlant->"Italic"], " - v\[YAcute]stup (x, ", StyleBox["\[CurlyPhi]", FontSlant->"Italic"], ")" }], "Text"], Cell[BoxData[{ \(\(x = {{X[t]}, {\(X'\)[t]}, {\[CurlyPhi][t]}, {\(\[CurlyPhi]'\)[ t]}};\)\), "\[IndentingNewLine]", \(\(u = {{fx}};\)\), "\[IndentingNewLine]", \(\(y = {{X[t]}, {\[CurlyPhi][t]}};\)\)}], "Input"], Cell["\<\ \:017d\[AAcute]dan\[AAcute] poloha voz\[IAcute]ku s kyvadlem\ \>", "Text"], Cell[BoxData[ \(\(xzad = {{Xk}, {0}, {0}, {0}} /. rizeni;\)\)], "Input"], Cell[CellGroupData[{ Cell[TextData[{ "Ur\[CHacek]en\[IAcute] matice ", StyleBox["A", FontWeight->"Bold"] }], "Subsubsection"], Cell[BoxData[ \(\(A = Table[a[i, j], {i, Length[x]}, {j, Length[x]}];\)\)], "Input"], Cell[BoxData[ \(xdos = \(Solve[ Eliminate[rce, \(\[CurlyPhi]''\)[t]], \(X''\)[t]]\)[\([1, 1]\)]\)], "Input"], Cell[BoxData[ \(\[CurlyPhi]dos = \(Solve[ Eliminate[rce, \(X''\)[t]], \(\[CurlyPhi]''\)[t]]\)[\([1, 1]\)]\)], "Input"], Cell[BoxData[ \(\(Dxt = D[x, t] /. {xdos, \[CurlyPhi]dos};\)\)], "Input"], Cell[BoxData[{ \(\(Table[ Solve[Coefficient[\((\((A . x - Dxt)\))\)[\([i]\)], x[\([j]\)]] \[Equal] 0, a[i, j]], {i, Length[x]}, {j, Length[x]}] // Flatten;\)\), "\[IndentingNewLine]", \(\(A = A //. %;\)\), "\[IndentingNewLine]", \(A // MatrixForm\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ur\[CHacek]en\[IAcute] matice ", StyleBox["B", FontWeight->"Bold"] }], "Subsubsection", PageBreakAbove->True], Cell[BoxData[ \(\(B = Table[b[i, j], {i, Length[x]}, {j, Length[u]}];\)\)], "Input"], Cell[BoxData[{ \(\(Table[ Solve[Coefficient[\((\((B . u - Dxt)\))\)[\([j]\)], u[\([i]\)]] \[Equal] 0, b[j, i]], {i, Length[u]}, {j, Length[x]}] // Flatten;\)\), "\[IndentingNewLine]", \(\(B = B //. %;\)\), "\[IndentingNewLine]", \(B // MatrixForm\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Ur\[CHacek]en\[IAcute] matice ", StyleBox["C", FontWeight->"Bold"] }], "Subsubsection"], Cell[BoxData[ \(\(Cc = Table[c[i, j], {i, Length[y]}, {j, Length[x]}];\)\)], "Input"], Cell[BoxData[{ \(\(Table[ Solve[\(Coefficient[\((Cc . x - y)\)[\([i]\)], x[\([j]\)]]\)[\([1]\)] \[Equal] 0], {i, Length[y]}, {j, Length[x]}] // Flatten;\)\), "\[IndentingNewLine]", \(\(Cc = Cc //. %;\)\), "\[IndentingNewLine]", \(Cc // MatrixForm\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Matice \:0159iditelnosti ", StyleBox["R", FontWeight->"Bold"] }], "Subsubsection"], Cell[BoxData[{ \(\(R = Transpose[ Flatten[Table[ Transpose[MatrixPower[A, i - 1] . B], {i, Length[A]}], 1]];\)\), "\[IndentingNewLine]", \(R // MatrixForm\)}], "Input"], Cell[BoxData[ \(MatrixRank[R]\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Stavov\[AAcute] zp\:011btn\[AAcute] vazba ", StyleBox["K", FontWeight->"Bold"], " (Ackermannova formule)" }], "Subsubsection"], Cell[BoxData[{ \(\(Ii = IdentityMatrix[4];\)\), "\[IndentingNewLine]", \(Ii // MatrixForm\)}], "Input"], Cell[TextData[{ "Po\:017eadovan\[AAcute] dynamika ", Cell[BoxData[ \(TraditionalForm\`M(A)\)]] }], "Text"], Cell[BoxData[ \(\(M[A_] = MatrixPower[A + \[Alpha]\[Times]Ii, 5];\)\)], "Input"], Cell["Ackermannova formule", "Text"], Cell[BoxData[ \(\(K = {{0, 0, 0, 1}} . Inverse[R] . M[A];\)\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:0158e\[SHacek]en\[IAcute] regulace s pou\:017eit\[IAcute]m stavov\[EAcute] \ zp\:011btn\[EAcute] vazby\ \>", "Subsection", PageBreakAbove->True], Cell[BoxData[{ \(<< Graphics`Colors`\), "\n", \(ClearAll[\[CurlyPhi], fx]\)}], "Input"], Cell[TextData[{ "Stavov\[YAcute] vektor ", Cell[BoxData[ \(TraditionalForm\`x\_0\)]], " v \[CHacek]ase ", Cell[BoxData[ \(TraditionalForm\`t\_0\)]] }], "Text"], Cell[BoxData[ \(\(x0 = {{X0}, {0}, {\[CurlyPhi]0}, {0}};\)\)], "Input"], Cell[TextData[{ "\:0158e\[SHacek]en\[IAcute] rovnice ", Cell[BoxData[ \(TraditionalForm\`x' = A . x + B . u\)]], " pro ", Cell[BoxData[ \(TraditionalForm\`u = \(-K . x\)\)]], " (pro po\:017eadovan\[YAcute] stav ", Cell[BoxData[ \(TraditionalForm\`x = \([0\ 0\ 0\ 0]\)\^T\)]], ")\n", Cell[BoxData[ \(TraditionalForm\`x(t) = e\^\(\([A - B . K]\) . t\) . x\_0\)]], "\n\nPro kone\[CHacek]n\[YAcute] stav v hodnot\:011b ", Cell[BoxData[ \(TraditionalForm\`X\_k\)]], " (", Cell[BoxData[ \(TraditionalForm\`x\_k = \([X\_k\ 0\ 0\ 0]\)\^T\)]], ") bude ", Cell[BoxData[ \(TraditionalForm\`u = K . \((x\_k - x)\)\)]], "\n", Cell[BoxData[ \(TraditionalForm\`x(t) = e\^\(\([A - B . K]\) . t\) . \((x\_0 + \([A - B . K]\)\^\(-1\) . B . K . x\_k)\) - \([A - B . K]\)\^\(-1\) . B . K . x\_k\)]], "\n\nPro v\[YAcute]stup ", StyleBox["y", FontSlant->"Italic"], "\n", Cell[BoxData[ \(TraditionalForm\`y(t) = C . \(x(t)\)\)]] }], "Text"], Cell[BoxData[{ \(\(reseni = \(Cc . \((MatrixExp[ Evaluate[\((A - B . K)\) /. zadani]\[Times]t] . \((x0 + Inverse[A - B . K] . B . K . xzad)\) - Inverse[A - B . K] . B . K . xzad)\) /. zadani\) /. rizeni;\)\), "\[IndentingNewLine]", \(\(Xvysl[t_] = reseni[\([1]\)] /. rizeni;\)\), "\[IndentingNewLine]", \(\(\[CurlyPhi]vysl[t_] = reseni[\([2]\)] /. rizeni;\)\), "\[IndentingNewLine]", \(\(fxres[ t_] = \(\(K . \((xzad - x)\) /. zadani\) /. rizeni\) /. {X \[Rule] Xvysl, \[CurlyPhi] \[Rule] \[CurlyPhi]vysl} // Flatten;\)\)}], "Input"], Cell[BoxData[ \(\(SetOptions[Plot, AspectRatio \[Rule] .25, DisplayFunction \[Rule] Identity, PlotPoints \[Rule] 200, AxesLabel \[Rule] {"\", None}, AxesOrigin \[Rule] {0, 0}];\)\)], "Input"], Cell[BoxData[{ \(\(tmax = 20;\)\), "\[IndentingNewLine]", \(\(grafx = Plot[{Xvysl[t], Xk /. rizeni}, {t, 0, tmax}, PlotRange \[Rule] All, PlotStyle \[Rule] {{ForestGreen, Thickness[ .004]}, {Black, Dashing[{ .01, .01}]}}, PlotLabel \[Rule] "\"];\)\), "\[IndentingNewLine]", \(\(graff = Plot[fxres[t], {t, 0, tmax}, PlotRange \[Rule] All, PlotStyle \[Rule] {Red, Thickness[ .004]}, PlotLabel \[Rule] \*"\"\<\!\(f\_x\) (N)\>\""];\)\), "\ \[IndentingNewLine]", \(\(graf\[CurlyPhi] = Plot[Evaluate[\[CurlyPhi]vysl[t]], {t, 0, tmax}, PlotRange \[Rule] All, PlotStyle \[Rule] {RoyalBlue, Thickness[ .004]}, PlotLabel \[Rule] "\<\[CurlyPhi] (-)\>"];\)\)}], "Input"], Cell[BoxData[ \(\(Show[GraphicsArray[{{grafx}, {graff}, {graf\[CurlyPhi]}}], DisplayFunction \[Rule] $DisplayFunction, ImageSize \[Rule] 500];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Grafick\[EAcute] zn\[AAcute]zorn\:011bn\[IAcute] pohybu voz\[IAcute]ku\ \>", "Subsection", PageBreakAbove->True], Cell["<"S5.25.1"], Cell[BoxData[{ \(\(ani = Table[Graphics[{Line[{{\(-1\), 0}, {1, 0}}], Line[{{\(-1\), \(- .05\)}, {\(-1\), .05}}], Line[{{0, \(- .05\)}, {0, .05}}], Line[{{1, \(- .05\)}, {1, .05}}], Line[{{\(Xvysl[t]\)[\([1]\)], .1}, {\(Xvysl[t]\)[\([1]\)] + Sin[\(\[CurlyPhi]vysl[t]\)[\([1]\)]], .1 + Cos[\(\[CurlyPhi]vysl[t]\)[\([1]\)]]}}], Rectangle[{\(Xvysl[t]\)[\([1]\)] - .06, .02}, {\(Xvysl[ t]\)[\([1]\)] + .06, .1}], Circle[{\(Xvysl[t]\)[\([1]\)] - .035, .02}, .02], Circle[{\(Xvysl[t]\)[\([1]\)] + .035, .02}, .02], Rectangle[{\(-1\), \(- .4\)}, {\(-1\) + 2 t/tmax, \(- .3\)}], Line[{{\(-1\), \(- .4\)}, {1, \(- .4\)}, {1, \(- .3\)}, \ {\(-1\), \(- .3\)}}], Text["\<0:\>" <> ToString[IntegerPart[t]], {\(- .8\), \(- .2\)}, {\(-1\), 0}], Text[ ToString[ Round[100*\(Re[ Xvysl[t]]\)[\([1]\)]]] <> "\< cm\>", {0, \(- \ .2\)}, {0, 0}], Text[ToString[ .1* Round[10*\(180\/\[Pi]\) \(Re[\[CurlyPhi]vysl[ t]]\)[\([1]\)]]] <> "\<\[Degree]\>", {0.8, \ \(- .2\)}, {1, 0}]}, PlotRange \[Rule] {{\(-1.1\), 1.1}, {\(- .6\), 1.2}}, AspectRatio \[Rule] Automatic, ImageSize \[Rule] 300], {t, 0, tmax, .1}];\)\), "\[IndentingNewLine]", \(ShowAnimation[Table[ani[\([i]\)], {i, Length[ani]}]]\)}], "Input"] }, Open ]] }, Open ]] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, ScreenStyleEnvironment->"Working", PrintingStyleEnvironment->"Working", WindowToolbars->"EditBar", WindowSize->{1016, 649}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, 1}, Magnification->1.5, StyleDefinitions -> "Default.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->{ "S5.25.1"->{ Cell[23718, 599, 61, 1, 40, "Input", CellTags->"S5.25.1"]} } *) (*CellTagsIndex CellTagsIndex->{ {"S5.25.1", 26233, 657} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 59, 0, 109, "Section"], Cell[1838, 55, 175, 5, 99, "Text"], Cell[2016, 62, 370, 14, 47, "Text"], Cell[2389, 78, 113, 2, 42, "Input"], Cell[2505, 82, 10692, 136, 289, 10534, 131, "GraphicsData", "Metafile", \ "Text"], Cell[13200, 220, 160, 6, 73, "Text"], Cell[13363, 228, 391, 10, 47, "Text"], Cell[13757, 240, 160, 3, 42, "Input"], Cell[13920, 245, 205, 8, 71, "Text"], Cell[14128, 255, 170, 2, 67, "Input"], Cell[14301, 259, 208, 7, 46, "Text"], Cell[14512, 268, 175, 3, 61, "Input"], Cell[14690, 273, 126, 5, 46, "Text", PageBreakAbove->True], Cell[14819, 280, 63, 1, 65, "Input"], Cell[14885, 283, 177, 5, 46, "Text"], Cell[15065, 290, 81, 1, 41, "Input"], Cell[15149, 293, 61, 0, 46, "Text"], Cell[15213, 295, 155, 3, 112, "Input"], Cell[15371, 300, 83, 1, 47, "Text"], Cell[15457, 303, 215, 5, 92, "Input"], Cell[CellGroupData[{ Cell[15697, 312, 67, 1, 56, "Subsection", PageBreakAbove->True], Cell[15767, 315, 751, 35, 162, "Text"], Cell[16521, 352, 239, 4, 92, "Input"], Cell[16763, 358, 84, 2, 46, "Text"], Cell[16850, 362, 76, 1, 41, "Input"], Cell[CellGroupData[{ Cell[16951, 367, 112, 4, 40, "Subsubsection"], Cell[17066, 373, 88, 1, 41, "Input"], Cell[17157, 376, 133, 3, 41, "Input"], Cell[17293, 381, 143, 3, 41, "Input"], Cell[17439, 386, 77, 1, 41, "Input"], Cell[17519, 389, 314, 6, 118, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[17870, 400, 136, 5, 40, "Subsubsection", PageBreakAbove->True], Cell[18009, 407, 88, 1, 41, "Input"], Cell[18100, 410, 314, 6, 118, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[18451, 421, 112, 4, 40, "Subsubsection"], Cell[18566, 427, 89, 1, 41, "Input"], Cell[18658, 430, 316, 6, 118, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[19011, 441, 107, 4, 40, "Subsubsection"], Cell[19121, 447, 223, 6, 92, "Input"], Cell[19347, 455, 46, 1, 41, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[19430, 461, 153, 5, 40, "Subsubsection"], Cell[19586, 468, 112, 2, 67, "Input"], Cell[19701, 472, 116, 4, 46, "Text"], Cell[19820, 478, 84, 1, 41, "Input"], Cell[19907, 481, 36, 0, 46, "Text"], Cell[19946, 483, 76, 1, 41, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20071, 490, 158, 4, 56, "Subsection", PageBreakAbove->True], Cell[20232, 496, 96, 2, 67, "Input"], Cell[20331, 500, 179, 7, 46, "Text"], Cell[20513, 509, 75, 1, 41, "Input"], Cell[20591, 512, 1043, 33, 207, "Text"], Cell[21637, 547, 691, 13, 170, "Input"], Cell[22331, 562, 231, 4, 67, "Input"], Cell[22565, 568, 807, 16, 221, "Input"], Cell[23375, 586, 179, 3, 67, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[23591, 594, 124, 3, 56, "Subsection", PageBreakAbove->True], Cell[23718, 599, 61, 1, 40, "Input", CellTags->"S5.25.1"], Cell[23782, 602, 1632, 29, 461, "Input"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)