About HPC Systems Software User Guides Education Partners

  / gears / hpc / education / tutorials / mathematica / win


Introduction

Definition

Example 01

Example 02

Example 03

Example 04

Example 05

Example 06

Example 07

Example 08

Example 09

Example 10

Example 11

Example 12

Example 13

Example 14

Example 15

Example 16

Example 17

Example 18

References

Example 14

Laplace Transform


GIVEN: two masses and three springs

REQUIRED: Find displacments

SOLUTION: Generate example14.nb
k[1] = 4;
k[2] = 2;
k[3] = 2;
m[1] = 2;
m[2] = 1;
initialdata = {x[1][0] ->1, (x[1])'[0] -> 0, x[2][0] ->0, (x[2])'[0] -> 0};
transforms = Table[X[i] = LaplaceTransform[x[i][t], t, s], {i, 1, 2}];
eqns = {m[1] x[1]''[t] + (k[1] + k[2]) x[1][t] - k[2] x[2][t], m[2] x[2]''[t] - k[2] x[1][t] + (k[2] + k[3]) x[2][t]};
eqnsTransformed = LaplaceTransform[eqns, t,s] /. initialdata;
solTransforms = Solve[eqnsTransformed == 0, transforms];
Xs = transforms /. solTransforms;
Xs = Flatten[Xs, 1];
solution = InverseLaplaceTransform[Xs,s,t];
graph = Plot[Evaluate[solution], {t, 0, 2Pi}];

Example

Homework:

Please send questions or suggestions about this web page to beatnic@aset.psu.edu

ASET | ITS | Penn State