summaryrefslogtreecommitdiff
path: root/2993/CH2/EX2.1/Ex2_1.sce
blob: e0b598f71cf5de0a29e2aed26924215211220d58 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

clc;
close;

//M(Magnification Factor) = Size of the image / Size of the Object

M = (8.8 / 150);

//Rounding off to 4 decimal places
M = (round(M*10000))/10000;

//F(Focal Length) = (Distance of the object from the Imagin Sensor * Magnification Facotr)/(Magnification Factor + 1)

F = (700 * M)/(M + 1);

format('v',6);
disp(F,'The required focal length of the lens (in mm) = ')