diff options
Diffstat (limited to '260/CH10/EX10.8/10_8.sce')
-rw-r--r-- | 260/CH10/EX10.8/10_8.sce | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/260/CH10/EX10.8/10_8.sce b/260/CH10/EX10.8/10_8.sce new file mode 100644 index 000000000..49a30eff0 --- /dev/null +++ b/260/CH10/EX10.8/10_8.sce @@ -0,0 +1,22 @@ +//Eg-10.8
+//pg-445
+
+clear
+clc
+
+T = [0 80 146.9 207.6 265 320.2 373.7 426.1 477.7 528.3 578.1 627.1 675.3];
+
+y = [0 500 1000 1500 2000 2500 3000 3500 4000 4500 5000 5500 6000];
+
+exec lagrange.sci
+
+p = lagrange(y,T,3)
+
+printf('The third order polynomial interpolating the given data points is \n')
+disp(p)
+
+D = [625 2143 3215 5785];
+k = horner(p,D)
+
+printf('\n\nThe values of temperature at given EMF values are \n')
+disp(k)
\ No newline at end of file |