diff options
Diffstat (limited to '3535/CH7/EX7.4/Ex7_4.sce')
| -rw-r--r-- | 3535/CH7/EX7.4/Ex7_4.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/3535/CH7/EX7.4/Ex7_4.sce b/3535/CH7/EX7.4/Ex7_4.sce new file mode 100644 index 000000000..40bb0576b --- /dev/null +++ b/3535/CH7/EX7.4/Ex7_4.sce @@ -0,0 +1,13 @@ +//Chapter 7, Example 7.4, Page 186 +clc +clear +// Flux density +Sp = 1.295*10**13 +r = 100 +mew = 0.3222 +phimax = 2*10**3 +phi = Sp*10^-2/(4*%pi*r**2) +t = -(1/mew)*log(phimax/phi) +printf("phi = %e cm^-2/s^-1\n",phi) +printf(" t = %f cm^-1",t) +//Answers may vary due to round off error |