diff options
Diffstat (limited to '3369/CH12/EX12.8/Ex12_8.sce')
| -rwxr-xr-x | 3369/CH12/EX12.8/Ex12_8.sce | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/3369/CH12/EX12.8/Ex12_8.sce b/3369/CH12/EX12.8/Ex12_8.sce new file mode 100755 index 000000000..51caa1ce9 --- /dev/null +++ b/3369/CH12/EX12.8/Ex12_8.sce @@ -0,0 +1,27 @@ +//Chapter 12,Example 8, page 411 +//Determine the maximum stress +clear +clc +ba = 5.3/2 // b/a +alpha = nthroot(ba,3) +r1 = 1.385 // cm +r2 = 1.92 // cm +r = 2.65 // cm +V = 66*sqrt(2)/sqrt(3) +V2 = V/(1+(1/alpha)+(1/alpha^2)) +V1 = (1+1/alpha)*V2 +//calculating maximim and minimum stress without sheaths +Emax0 = V/1*log(r/1) +Emin0 = V/(r*log(r)) +//calculating max and min stress with the sheaths +Emax = Emax0*3/(1+(alpha)+(alpha^2)) +Emin = Emax/alpha +printf("\n Peak voltage of the conductor V = %f kV",V) +printf("\n V1 = %f kV",V1) +printf("\n V2 = %f kV",V2) +printf("\n Maximum stress without sheaths = %f kV/cm",Emax0) +printf("\n Minimum stress without sheaths = %f kV/cm",Emin0) +printf("\n Maximum stress with sheaths = %f kV/cm",Emax) +printf("\n Minimum stress with sheaths = %f kV/cm",Emin) + +// Answers vary due to round off errors. |