Labmat

In[161]:=

Clearxh, xp, xp2, Ecc, Amp, dAmp, d2Amp, k1, k2, a, b
m  1; c  2; k  37; A  1; F0  1;
Print"Parte A"
Ecc  x ''t  c  x 't  k  xt  F0 Cos  t;
Solver ^ 2  2 r  37  0, r;
Print"Solución de la homogénea: ", xht_  k1 Exp 1 t Cos6 t  k2 Exp 1 t Sin6 t
Print"Demostración por límite: ", Limitxht, t  Infinity
Print"Parte B"xpt_  a Sin t  b Cos t;
DDxt, t, t  2 Dxt, t  37 xt  Cos t  FullSimplify
Print" Valores de A a y B b : ",
Solve1  2 a   b  37  2   0 && 2 b   a  37  2  0;

a 

2

; b 

37  2

;
1369  70 2  4
1369  70 2  4
Print"Solución particular: ", xpt_  a Sin t  b Cos t

Print"Parte C"
Print"Ecuación sinusoidal : ",xp2t_  Amp Cos  t  Cos  Sin  t  Sin  FullSimplify
Print"C  ", Amp_  Sqrta ^ 2  b ^ 2  FullSimplify
Print"Parte D"
Print"1ra derivada:
", dAmp DAmp, ;
Print"Puntos Críticos:
", criticos  SolvedAmp  0, 
Print"2da derivada:
", d2Amp_  DDAmp, ,   FullSimplify
d2AmpSqrt0; d2AmpSqrt35; d2Amp Sqrt35;Print"Gráfica de amplitud para 0 : ", PlotAmp, , 0, 35
Parte A
Solución de la homogénea: t k1 Cos6 t  t k2 Sin6 t
Demostración por límite: 0
Parte B
Out[170]=

Cost   37 xt 2 x t  x t

Solve::svars : Equations may not give solutions for all "solve" variables. à

Printed by Mathematica for Students

2

Preinforme 1 Mat023 2014-1.nb

Valores de A a y Bb :

a 

2
1369  70 2  4

37  2  Cost 
Solución particular:

1369  70

2



4



,b

37  2
1369  70 2  4



2  Sint 
1369  70 2  4Parte C
Ecuación sinusoidal : Amp Cos  t 

C 

1
1369  70 2  4

Parte D

1ra derivada:



1
2

Puntos Críticos:

2da derivada:



1
2...