diff options
Diffstat (limited to '3369/CH14/EX14.4.2.1/Ex14_1.sce')
| -rwxr-xr-x | 3369/CH14/EX14.4.2.1/Ex14_1.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3369/CH14/EX14.4.2.1/Ex14_1.sce b/3369/CH14/EX14.4.2.1/Ex14_1.sce new file mode 100755 index 000000000..187a4d2cd --- /dev/null +++ b/3369/CH14/EX14.4.2.1/Ex14_1.sce @@ -0,0 +1,14 @@ +//Chapter 14,Example 1, page 453 +//Determine the time to crest +clear +clc +I = 400 // mH of inductance +L = 500*10^-3 // mH +C = 1.5*10^-6 // micro F + +f = 1/(2*%pi*sqrt(L*C)) +t = 10**6/(4*f) // calulation done in the text is wrong +printf("\n f1 = %f Hz",f) +printf("\n Time to crest = %f micro seconds",t) + +// Answer may vary due to round off error. |