diff options
Diffstat (limited to '1430/CH13/EX13.7/exa13_7.sce')
| -rw-r--r-- | 1430/CH13/EX13.7/exa13_7.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/1430/CH13/EX13.7/exa13_7.sce b/1430/CH13/EX13.7/exa13_7.sce new file mode 100644 index 000000000..a126e2e5d --- /dev/null +++ b/1430/CH13/EX13.7/exa13_7.sce @@ -0,0 +1,20 @@ +//Example 13.7
+// Inversion with a Triple pole
+s=%s;
+num=-s^2-2*s+14;
+den=(s+4)^3*(s+5);
+F=num/den;
+pfe=pfss(F)
+t=0:0.001:10
+// Inverse Laplace transform of pfe(2)
+f1=1*%e^(-5*t);
+
+// Inverse Laplace transform of pfe(1)
+f2=-exp(-4*t)+3*(t.*t).*exp(-4*t);
+
+f=f1+f2;// t>=0;
+plot(t,f);
+xlabel('t');
+ylabel('f(t)');
+title("Function Waveform")
+
|