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

---
 1646/CH4/EX4.14/Ch04Ex14.sce | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 1646/CH4/EX4.14/Ch04Ex14.sce

(limited to '1646/CH4/EX4.14/Ch04Ex14.sce')

diff --git a/1646/CH4/EX4.14/Ch04Ex14.sce b/1646/CH4/EX4.14/Ch04Ex14.sce
new file mode 100755
index 000000000..17f6b676e
--- /dev/null
+++ b/1646/CH4/EX4.14/Ch04Ex14.sce
@@ -0,0 +1,14 @@
+// Scilab Code Ex4.14 : Page-200 (2011)
+clc;clear;
+mu_R = 1.5230;    // Refractive index for red wavelength
+mu_V = 1.5145;    // Refractive index for violet wavelength
+R1 = 40;    // Radius of curvature for red wavelength, cm
+R2 = -10;    // Radius of curvature for violet wavelength, cm
+// As 1/f = (mu - 1)*(1/R1 - 1/R2), solving for fV and fR
+fV = 1/((mu_V-1)*(1/R1-1/R2));    // Focal length for violet wavelength, cm 
+fR = 1/((mu_R-1)*(1/R1-1/R2));    // Focal length for violet wavelength, cm 
+l = fR - fV;    // Longitudinal chromatic aberration, cm
+printf("\nThe longitudinal chromatic aberration = %5.3f cm", abs(l));
+
+// Result
+// The longitudinal chromatic aberration = 0.253 cm 
-- 
cgit