> <\body> <\session|maxima|default> <\unfolded-io> 17) > <|unfolded-io> cg : [x,z] ; <|unfolded-io> ) >x,z> <\unfolded-io> 18) > <|unfolded-io> m1 : [particula,[x,0,z],m] ; <|unfolded-io> ) >,x,0,z,10> <\unfolded-io> 19) > <|unfolded-io> sex1 : [segmento,[0,0,0],[15,0,0]]; <|unfolded-io> ) >,0,0,0,15,0,0> <\unfolded-io> 20) > <|unfolded-io> sey1 : [segmento,[0,0,0],[0,4,0]]; <|unfolded-io> ) >,0,0,0,0,4,0> <\unfolded-io> 21) > <|unfolded-io> sez1 : [segmento,[0,0,0],[0,0,4]]; <|unfolded-io> ) >,0,0,0,0,0,4> <\unfolded-io> 22) > <|unfolded-io> sistema : [m1,sex1,sey1,sez1] ; <|unfolded-io> ) >,x,0,z,10,,0,0,0,15,0,0,,0,0,0,0,4,0,,0,0,0,0,0,4> <\unfolded-io> 14) > <|unfolded-io> m : 1; <|unfolded-io> ) >1> <\unfolded-io> 15) > <|unfolded-io> g : 9.8; <|unfolded-io> ) >9.800000000000001> <\unfolded-io> 16) > <|unfolded-io> fG([1,2]); <|unfolded-io> ) >> \; <\session|maxima|default> <\textput> <\unfolded-io> 25) > <|unfolded-io> cg : [alfa] ; <|unfolded-io> ) >> <\unfolded-io> 26) > <|unfolded-io> xp : [0,l*sin(alfa),-l*cos(alfa)] ; <|unfolded-io> ) >0,sin *l,-cos *l> <\unfolded-io> 27) > <|unfolded-io> m1 : [particula,xp,m]; <|unfolded-io> ) >,0,sin *l,-cos *l,10> <\unfolded-io> 28) > <|unfolded-io> se1 : [segmento,[0,0,0],xp]; <|unfolded-io> ) >,0,0,0,0,sin *l,-cos *l> <\unfolded-io> 29) > <|unfolded-io> sistema : [m1,se1] ; <|unfolded-io> ) >,0,sin *l,-cos *l,10,,0,0,0,0,sin *l,-cos *l> \; <\unfolded-io> 30) > <|unfolded-io> g : 9.8; <|unfolded-io> ) >9.800000000000001> <\unfolded-io> 31) > <|unfolded-io> m :1 ; <|unfolded-io> ) >1> <\unfolded-io> 32) > <|unfolded-io> l :5 ; <|unfolded-io> ) >5> <\unfolded-io> 33) > <|unfolded-io> fG([0.]); <|unfolded-io> ) >> \; <\textput> <\section> \; Péndulo con una varilla <\unfolded-io> 3) > <|unfolded-io> cg : [y] ; <|unfolded-io> ) >y> <\unfolded-io> 4) > <|unfolded-io> xg : [0,sin(y)/2,-cos(y)/2]; <|unfolded-io> ) >0,y|2>,-y|2>> <\unfolded-io> 5) > <|unfolded-io> r1 : rota(y,1); <|unfolded-io> ) >||>||y>|y>>||y>|y>>>>>> <\unfolded-io> 6) > <|unfolded-io> va : [varilla,xg,r1,m,1]; <|unfolded-io> ) >,0,y|2>,-y|2>,||>||y>|y>>||y>|y>>>>>,m,1> <\unfolded-io> 7) > <|unfolded-io> sistema : [va]; <|unfolded-io> ) >,0,y|2>,-y|2>,||>||y>|y>>||y>|y>>>>>,m,1> <\unfolded-io> 8) > <|unfolded-io> fG([%pi/4]); <|unfolded-io> ) >> <\unfolded-io> 13) > <|unfolded-io> g : 10; <|unfolded-io> ) >10> <\unfolded-io> 14) > <|unfolded-io> m : 10; <|unfolded-io> ) >10> \; <\textput> <\session|maxima|default> \; <\unfolded-io> 9) > <|unfolded-io> cg : [y] ; <|unfolded-io> ) >y> <\unfolded-io> 10) > <|unfolded-io> h : 8 ; <|unfolded-io> ) >8> <\unfolded-io> 11) > <|unfolded-io> \ ang : 3.1416/4; <|unfolded-io> ) >0.7854> <\unfolded-io> 12) > <|unfolded-io> ra : 1 ; <|unfolded-io> ) >1> <\unfolded-io> 13) > <|unfolded-io> se1 : [segmento,[0,0,0],[0,h/tan(ang),0]]; <|unfolded-io> ) >,0,0,0,0,7.999970614413143,0> <\unfolded-io> 14) > <|unfolded-io> se2 : [segmento,[0,h/tan(ang),0],[0,h/tan(ang),h]]; <|unfolded-io> ) >,0,7.999970614413143,0,0,7.999970614413143,8> <\unfolded-io> 15) > <|unfolded-io> se3 : [segmento,[0,0,0],[0,h/tan(ang),h]]; <|unfolded-io> ) >,0,0,0,0,7.999970614413143,8> <\unfolded-io> 16) > <|unfolded-io> xg : [0,y*cos(ang)-ra*sin(ang),y*sin(ang)+ra*cos(ang)]; <|unfolded-io> ) >0,0.70710548251124*y-0.70710807985947,0.70710807985947*y+0.70710548251124> <\unfolded-io> 17) > <|unfolded-io> rot1 : rota(%pi/2,2); <|unfolded-io> ) >||>|||>|||>>>>> <\unfolded-io> 18) > <|unfolded-io> rot2 : rota(-y/ra,1); <|unfolded-io> ) >||>||y>|y>>||y>|y>>>>>> <\unfolded-io> 19) > <|unfolded-io> rottot : rot2 . rot1 ; <|unfolded-io> ) >||>|y>|y>|>|y>|y>|>>>>> <\unfolded-io> 20) > <|unfolded-io> aro1 : [disco,xg,rottot,m,ra]; <|unfolded-io> ) >,0,0.70710548251124*y-0.70710807985947,0.70710807985947*y+0.70710548251124,||>|y>|y>|>|y>|y>|>>>>,m,1> <\unfolded-io> 21) > <|unfolded-io> sistema : [se1,se2,se3,aro1] ; <|unfolded-io> ) >,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,||>|y>|y>|>|y>|y>|>>>>,m,1> <\unfolded-io> 22) > <|unfolded-io> fG([0.3]); <|unfolded-io> ) >> \; \; \; <\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> |.>>>>|>