blob: 17f6b676e90d16fe930ac42cb8826c9c07e3f89d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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
|
