Mi if(zone>1,M,floor(M*(sag/d-N+1))+1) "Digitization count for zone"
x0 if(zone>1,sqrt(R^2-(R-(sag-(N+1-zone)*d))^2),0) "Left end of zone"
x1 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+1)*dm)^2) "1st step right end"
x2 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+2)*dm)^2) "2nd step right end"
x3 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+3)*dm)^2) "3rd step right end"
x4 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+4)*dm)^2) "4th step right end"
x5 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+5)*dm)^2) "5th step right end"
x6 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+6)*dm)^2) "6th step right end"
x7 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+7)*dm)^2) "7th step right end"
x8 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+8)*dm)^2) "8th step right end"
x9 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+9)*dm)^2) "9th step right end"
x10 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+10)*dm)^2) "10th step right end"
x11 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+11)*dm)^2) "11th step right end"
x12 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+12)*dm)^2) "12th step right end"
x13 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+13)*dm)^2) "13th step right end"
x14 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+14)*dm)^2) "14th step right end"
x15 sqrt(R^2-(z0+(N-zone+1)*d-(M-Mi+15)*dm)^2) "15th step right end"
x16 sqrt(R^2-(R-(sag-(N-zone)*d))^2) "Right end of zone"
y0 -dm "Base level"
y1 (Mi-1)*dm "1st level"
y2 (Mi-2)*dm "2nd level"
y3 (Mi-3)*dm "3rd level"
y4 (Mi-4)*dm "4th level"
y5 (Mi-5)*dm "5th level"
y6 (Mi-6)*dm "6th level"
y7 (Mi-7)*dm "7th level"
y8 (Mi-8)*dm "8th level"
y9 (Mi-9)*dm "9th level"
y10 (Mi-10)*dm "10th level"
y11 (Mi-11)*dm "11th level"
y12 (Mi-12)*dm "12th level"
y13 (Mi-13)*dm "13th level"
y14 (Mi-14)*dm "14th level"
y15 (Mi-15)*dm "15th level"
y16 (Mi-16)*dm "16th level"