summaryrefslogtreecommitdiff
path: root/1301/CH17/EX17.5/ex17_5.sce
blob: 6a96232f10a1e3cb607e27cba0ddb56d90449284 (plain)
1
2
3
4
5
6
7
8
clc;
p=100;      //in cm
f=40;      //in cm
q=(p*f)/(p-f);     //calculating image distance
disp(q,"Distance of image in cm = ");    //displaying result
h=6;      //in cm
hd=(-h*q)/p;     //calculating diameter
disp(hd,"Diameter in cm = ");   //displaying result