summaryrefslogtreecommitdiff
path: root/1703/CH7/EX7.8/7_8.sce
blob: ca4c56c35a55cd7321b6e8c8e916bd5bcadcb67b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc
//initialisation of variables
clear
t= 75 //sec
h= 10.5 //in
h1= 13.5 //in
//CALCULATIONS
r= t*%pi*sqrt(2*h^2)/log((sqrt(2*h1^2)+h1)/(sqrt(2*h^2)-h))
t= -r*((1/h1)-(1/h))
//RESULTS
printf ('A/K = %.f ',r)
printf ('\n Time taken = %.1f sec',t)