diff options
Diffstat (limited to '3745/CH1/EX1.37/Ex1_37.sce')
| -rw-r--r-- | 3745/CH1/EX1.37/Ex1_37.sce | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/3745/CH1/EX1.37/Ex1_37.sce b/3745/CH1/EX1.37/Ex1_37.sce new file mode 100644 index 000000000..e1d34ca8f --- /dev/null +++ b/3745/CH1/EX1.37/Ex1_37.sce @@ -0,0 +1,16 @@ +// Ex 37 Page 380 + +clc;clear;close; +// Given +Wh=250;//W +We=100;//W +N=1000/60;//rps + +A=Wh/N;//constant +B=We/N**2;//constant +Wnew=1/2*(Wh+We);//W +//Wnew=A*N1+B*N1**2 +p=[B,A,-Wnew];//polynomial for N1 +N1=roots(p);//rps +N1=N1(2)*60;//rpm//discarding -ve value +printf("New speed will be %.f rpm",N1) |