**TI92**mainProgram: 02\11\1996 07:45:23 AMRlookat6¥ZÜ(s) Prgm Local t,r,h,u,v,m,a,b,w,n rowDim(s)n ClrDraw ClrIO Input "Enter theta",t Input "Enter R",r Input "Enter H",h Input "Enter range",m setMode("graph","function") FnOff mymax ­mymin m*238/102xmax ­m*238/102xmin [[­sin(t),cos(t),0]]u ¨(h^2+r^2)m [[­h*cos(t)/m,­h*sin(t)/m,r/m]]v For i,1,n [[s[i,1],s[i,2],s[i,3]]]w [[dotP(w,u),dotP(w,v)]]a [[s[i,4],s[i,5],s[i,6]]]w [[dotP(w,u),dotP(w,v)]]b Line a[1,1],a[1,2],b[1,1],b[1,2] EndFor EndPrgm äåÜÀ‘