> <\body> <\input|4) >> kill(all); <\output> \; ) >> <\input|1) >> batchload("cinematica5.mac"); <\output> ) >> <\input|2) >> cg : [x,z] ; <\output> \; ) >x,z> <\input|3) >> \; \; <\input|4) >> m1 : [particula,[x,0,z],m] ; <\output> \; ) >,x,0,z,m> <\input|4) >> sex1 : [segmento,[0,0,0],[15,0,0]]; <\output> \; ) >,0,0,0,15,0,0> <\input|5) >> sey1 : [segmento,[0,0,0],[0,4,0]]; <\output> \; ) >,0,0,0,0,4,0> <\input|6) >> sez1 : [segmento,[0,0,0],[0,0,4]]; <\output> \; ) >,0,0,0,0,0,4> <\input|7) >> sistema : [m1,sex1,sey1,sez1] ; <\output> \; ) >,x,0,z,m,,0,0,0,15,0,0,,0,0,0,0,4,0,,0,0,0,0,0,4> <\input|8) >> T : fT(sistema); <\output> \; ) >+m*|2>> <\input|9) >> V : fV(sistema); <\output> \; ) >g*m*z> <\input|10) >> L : T - V ; <\output> \; ) >+m*|2>-g*m*z> <\input|11) >> ecua : ec_lag(); <\output> \; ) >m*,m*+g*m> <\input|12) >> m : 1 $ g : 9.8 $ <\input|14) >> fG([1,2]); <\output> <\errput> Xlib: \ extension "XFree86-DRI" missing on display ":0.0". ) >> <\input|15) >> odeoctave(ecua,cg,[0,0,10,10],[0,2,100])$ <\output> dim3 = 100 dim31 = 99 nvar = 2 var = \; \ x\ \ z\ \; fid = { \ \ id = 3 \ \ name = kk5 \ \ mode = w \ \ arch = native \ \ status = 1 } ans = 3 ans = 1089 ans = 10 ans = 2 ans = 0 fid = { \ \ id = 3 \ \ name = kk5 \ \ mode = w \ \ arch = native \ \ status = 1 } ans = 7 ans = 23 ans = 2 ans = 7 ans = 22 ans = 2 ans = 8 ans = 23 ans = 2 ans = 8 ans = 23 ans = 2 ans = 0 <\input|16) >> \; <\output> \; ) >0> <\input|17) >> \; \; <\input|32) >> openplot_curves([x,z]); <\output> ) >0> <\input|17) >> anim2()$ <\output> 598 606 607 608 608 608 608 608 608 608 608 608 608 608 608 608 608 608 607 608 608 608 608 608 608 608 608 608 608 608 607 608 608 608 608 608 608 608 608 608 617 608 608 608 617 608 617 606 606 606 607 608 609 609 609 609 609 609 609 609 609 609 609 609 609 609 609 608 609 609 609 609 609 609 609 609 609 609 609 608 609 609 609 609 609 609 609 609 609 609 609 609 609 609 609 609 608 607 607 <\errput> Xlib: \ extension "XFree86-DRI" missing on display ":0.0". <\input|18) >> \; <\input|18) >> kill(all); <\output> ) >> <\input|1) >> batchload("cinematica5.mac"); <\output> ) >> <\textput> <\input|2) >> cg : [alfa] ; <\output> \; ) >> <\input|3) >> xp : [0,l*sin(alfa),-l*cos(alfa)] ; <\output> \; ) >0,sin *l,-cos *l> <\input|4) >> m1 : [particula,xp,m]; <\output> \; ) >,0,sin *l,-cos *l,m> <\input|5) >> se1 : [segmento,[0,0,0],xp]; <\output> \; ) >,0,0,0,0,sin *l,-cos *l> <\input|6) >> sistema : [m1,se1] ; <\output> \; ) >,0,sin *l,-cos *l,m,,0,0,0,0,sin *l,-cos *l> <\input|7) >> T : fT(sistema); <\output> \; ) >sin +cos **l*m|2>> <\input|8) >> V : fV(sistema); <\output> \; ) >-cos *g*l*m> <\input|9) >> L : T-V; <\output> \; ) >sin +cos **l*m|2>+cos *g*l*m> <\input|10) >> ecua : ec_lag(); <\output> \; ) >sin +cos **l*m+sin *g*l*m> <\input|11) >> g : 9.8 $ m : 1 $ l: 5 $ <\input|14) >> fG([0.]); <\output> <\errput> Xlib: \ extension "XFree86-DRI" missing on display ":0.0". ) >> <\input|15) >> kill(alfa,alfa1); <\output> \; ) >> <\textput> \; <\input|16) >> odeoctave(ecua,cg,[1.4,0],[0,5.25,80]); <\output> dim3 = 80 dim31 = 79 nvar = 1 var = \ alfa\ fid = { \ \ id = 3 \ \ name = kk5 \ \ mode = w \ \ arch = native \ \ status = 1 } ans = 3 ans = 869 ans = 10 ans = 2 ans = 0 fid = { \ \ id = 3 \ \ name = kk5 \ \ mode = w \ \ arch = native \ \ status = 1 } ans = 10 ans = 22 ans = 2 ans = 11 ans = 23 ans = 2 ans = 0 ) >> <\input|17) >> \; <\output> \; ) >0> <\input|18) >> \; \; <\input|31) >> openplot_curves([alfa1]); <\output> ) >0> <\input|19) >> anim2(); <\output> 426 423 426 425 426 427 428 428 426 428 427 428 428 428 428 428 424 428 426 429 431 431 433 433 432 431 433 432 431 432 432 433 430 431 431 433 431 426 428 431 430 431 430 432 428 431 432 433 433 433 432 433 432 433 432 431 431 427 426 426 426 428 425 428 428 427 427 428 428 425 427 426 425 425 428 426 424 426 424 <\errput> Xlib: \ extension "XFree86-DRI" missing on display ":0.0". ) >> <\input|20) >> \; \; > <\textput> <\section> \; Péndulo con una varilla <\input|3) >> cg : [y] ; <\output> \; ) >y> <\input|18) >> xg : [0,sin(y)/2,-cos(y)/2]; <\output> \; ) >0,,-> <\input|19) >> r1 : rota(y,1); <\output> \; ) >||>|||>|||>>>>> <\input|20) >> va : [varilla,xg,r1,m,1]; <\output> \; ) >,0,,-,||>|||>|||>>>>,m,1> <\input|21) >> sistema : [va]; <\output> \; ) >,0,,-,||>|||>|||>>>>,m,1> <\input|22) >> fG([%Pi/4]); <\output> ) >> <\input|23) >> T : fT(sistema); <\output> \; ) >|6>> <\input|24) >> V : fV(sistema); <\output> \; ) >-> <\input|25) >> L : T-V ; <\output> \; ) >|6>+> <\input|26) >> ecua : ec_lag(); <\output> \; ) >|3>+> <\input|27) >> g : 10 $ m : 10 $ <\input|29) >> kill(y,y1); <\output> \; ) >> <\input|30) >> odeoctave(ecua,cg,[1.4,0],[0,1.9,100]); \; <\input|31) >> openplot_curves([y,y1]); <\output> ) >0> <\input|32) >> anim2()$ <\input|33) >> \; \; > \; <\textput> \; <\input|3) >> cg : [y] ; <\output> \; ) >y> <\input|18) >> h : 8 ; ang : 3.1416/4 ; ra : 1.0 ; <\output> \; ) >8> \; ) >0.7854> \; ) >1.0> <\input|21) >> se1 : [segmento,[0,0,0],[0,h/tan(ang),0]]; <\output> \; ) >,0,0,0,0,7.999970614413143,0> <\input|22) >> se2 : [segmento,[0,h/tan(ang),0],[0,h/tan(ang),h]]; <\output> \; ) >,0,7.999970614413143,0,0,7.999970614413143,8> <\input|23) >> se3 : [segmento,[0,0,0],[0,h/tan(ang),h]]; <\output> \; ) >,0,0,0,0,7.999970614413143,8> <\input|24) >> xg : [0,y*cos(ang)-ra*sin(ang),y*sin(ang)+ra*cos(ang)]; <\output> \; ) >0,0.70710548251124*y-0.70710807985947,0.70710807985947*y+0.70710548251124> <\input|25) >> rot1 : rota(%Pi/2,2); <\output> \; ) >||>|||>|||>>>>> <\input|26) >> rot2 : rota(-y/ra,1); <\output> \; ) >||>|||>|||>>>>> <\input|27) >> rottot : rot2 . rot1 ; <\output> \; ) >||>|||>|||>>>>> <\input|28) >> aro1 : [disco,xg,rottot,m,ra]; <\output> \; ) >,0,0.70710548251124*y-0.70710807985947,0.70710807985947*y+0.70710548251124,||>|||>|||>>>>,m,1.0> <\input|29) >> sistema : [se1,se2,se3,aro1] ; <\output> \; ) >,0,0,0,0,7.999970614413143,0,,0,7.999970614413143,0,0,7.999970614413143,8,,0,0,0,0,7.999970614413143,8,,0,0.70710548251124*y-0.70710807985947,0.70710807985947*y+0.70710548251124,||>|||>|||>>>>,m,1.0> <\input|30) >> fG([0.3]); <\output> ) >> <\input|31) >> T : fT(sistema); <\output> \; ) >|4>> <\input|32) >> V : fV(sistema); <\output> \; ) >> <\input|33) >> L : T-V; <\output> \; ) >|4>-> <\input|34) >> ecua : ec_lag(); <\output> \; ) >|2>+> <\input|35) >> m : 10 $ \ g : 10 $ <\input|37) >> \; \; <\input|34) >> odeoctave(ecua,cg,[0,10],[0,4,100]); <\output> \; ) >> <\input|38) >> openplot_curves([y]); <\output> ) >0> <\input|39) >> anim2(); \; <\textput> \; <\input|40) >> cg : [y,z] ; <\output> \; ) >y,z> <\input|18) >> var2 : [varilla,[0,0,-l2/2],rota(0,1),m2,l2]; <\output> \; ) >,0,0,-|2>,||>|||>|||>>>>,,> <\input|19) >> subs2 : [subsistema,[0,0,-l1],rota(z,1),[var2]]; <\output> \; ) >,0,0,-,||>|||>|||>>>>,,0,0,-|2>,||>|||>|||>>>>,,> <\input|20) >> var1 : [varilla,[0,0,-l1/2],rota(0,1),m1,l1]; <\output> \; ) >,0,0,-|2>,||>|||>|||>>>>,,> <\input|21) >> subs1 : [subsistema,[0,0,0],rota(y,1),[var1,subs2]]; <\output> \; ) >,0,0,0,||>|||>|||>>>>,,0,0,-|2>,||>|||>|||>>>>,,,,0,0,-,||>|||>|||>>>>,,0,0,-|2>,||>|||>|||>>>>,,> <\input|22) >> sistema : [subs1] ; <\output> \; ) >,0,0,0,||>|||>|||>>>>,,0,0,-|2>,||>|||>|||>>>>,,,,0,0,-,||>|||>|||>>>>,,0,0,-|2>,||>|||>|||>>>>,,> <\input|23) >> T : fT(sistema); <\output> \; ) >**+3*****cos z+2****+3*****cos z++3**+**|6>> <\input|24) >> V : fV(sistema); <\output> \; ) >**sin y*sin z-g***cos y*cos z+-2*g**-g***cos y|2>> <\input|25) >> L : T-V; <\output> \; ) >**+3*****cos z+2****+3*****cos z++3**+**|6>-**sin y*sin z-g***cos y*cos z+-2*g**-g***cos y|2>> <\input|26) >> ecua : ec_lag(); <\output> \; ) >3****cos z+2***-3****sin z*-6*****sin z*+6*****cos z+2*+3**+**|6>+**cos y*sin z+g***sin y*cos z--2*g**-g***sin y|2>,**-3*****sin z*+3*****cos z+2***|6>-****sin z*-3*****sin z|6>+**cos y*sin z+g***sin y*cos z|2>> <\input|27) >> m1 : 10 $ m2 : 10 $ g : 9.8 $ l1 : 10 $ l2 : 10 $ <\input|32) >> odeoctave(ecua,cg,[0,0,1,1],[0,8,200]); \; <\input|33) >> openplot_curves([y,z]); <\output> ) >0> <\input|34) >> anim2(); \; <\input|35) >> \; > \; <\initial> <\collection> <\references> <\collection> > > > > > > > > <\auxiliary> <\collection> <\associate|toc> |math-font-series||Tiro parabólico.> |.>>>>|> |math-font-series||Péndulo simple> |.>>>>|> <\with|font-series||math-font-series|> \; >.>>>>>>>|math-font-series||> |.>>>>|> >|||font-series|||>>>Péndulo con una varilla |.>>>>|> |math-font-series||> |.>>>>|> |math-font-series||Disco rodando sobre un plano inclinado> |.>>>>|> |math-font-series||Péndulo doble> |.>>>>|>