clc; funcprot(0);
// Initialization of Variable
d=62.4;//displacement in mm
H=250.0;//height of datum m
r=115.4;//image distance in mm
//calculation
h=H*d/r;
disp(h,"height of chimney in m")
clear()