//Example 2.18 // focal length of zone plate
clc;
clear;
//given data :
r=200;// radius of curvature in cm
f=r;//principal focal length in cm
disp(f,"principal focal length in cm")