diff options
Diffstat (limited to '260/CH1/EX1.7/1_7.sce')
| -rw-r--r-- | 260/CH1/EX1.7/1_7.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/260/CH1/EX1.7/1_7.sce b/260/CH1/EX1.7/1_7.sce new file mode 100644 index 000000000..80b252510 --- /dev/null +++ b/260/CH1/EX1.7/1_7.sce @@ -0,0 +1,19 @@ +//Eg-1.7
+//pg-19
+
+clear
+clc
+
+
+F(1)=1;
+F(2)=1;
+eps=10^(-12);
+err=100;
+i=1;
+while err>=eps
+ F(i+2)=F(i+1)+F(i);
+ err=abs((F(i+1)/F(i+2)-(F(i)/F(i+1))));
+ i=i+1;
+ end
+goldenratio=F(i)/F(i+1);
+disp(goldenratio)
\ No newline at end of file |