diff options
Diffstat (limited to '1991/CH8/EX8.10/10.sce')
| -rwxr-xr-x | 1991/CH8/EX8.10/10.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/1991/CH8/EX8.10/10.sce b/1991/CH8/EX8.10/10.sce new file mode 100755 index 000000000..57968e493 --- /dev/null +++ b/1991/CH8/EX8.10/10.sce @@ -0,0 +1,13 @@ +clc
+clear
+//input
+v=15*10^3 //voltage
+p=80*10^3 //power
+r=430 //resistence
+v1=150*10^3//stepped value
+//calculation
+i=p/v//cable current
+i1=p/v1//stepped up cable current
+k=i*i/(i1*i1)//ratio of power loss
+//output
+printf("the ratio of power loss is %d",k)
|