From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1871/CH3/EX3.16/Ch03Ex16.sce | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 1871/CH3/EX3.16/Ch03Ex16.sce

(limited to '1871/CH3/EX3.16')

diff --git a/1871/CH3/EX3.16/Ch03Ex16.sce b/1871/CH3/EX3.16/Ch03Ex16.sce
new file mode 100755
index 000000000..cdf254579
--- /dev/null
+++ b/1871/CH3/EX3.16/Ch03Ex16.sce
@@ -0,0 +1,14 @@
+// Scilab code Ex3.16 : Pg:121 (2008)
+clc;clear;
+R = 20;    // Radius of curvature of the spherical surface, cm
+mu = 1.5;    // Refractive index of the material
+h = 5;    // First height of the incident ray from the principal axis, cm
+delta_f_h = h^2/(2*mu*(mu - 1)*R);    // Spherical aberration of the spherical surface, cm
+printf("\nFor h = %d, the Spherical aberration of the spherical surface = %4.2f cm", h, delta_f_h);
+h = 7;  // Second height of the incident ray from the principal axis, cm
+delta_f_h = h^2/(2*mu*(mu - 1)*R);    // Spherical aberration of the spherical surface, cm
+printf("\nFor h = %d, the Spherical aberration of the spherical surface = %4.2f cm", h, delta_f_h);
+
+// Result 
+// For h = 5, the Spherical aberration of the spherical surface = 0.83 cm
+// For h = 7, the Spherical aberration of the spherical surface = 1.63 cm 
\ No newline at end of file
-- 
cgit