**TI86** Program file dated 10/12/00, 19:46êÚGEOMETRYÚØLbl STARTÖClLCDÖDisp "CHOOSE TYPE"ÖMenu(1,"1-D",ONEDIM,2,"2-D",TWODIM,3,"3-D",THRDIM,5,"QUIT",QUIT)ÖLbl ONEDIMÖClLCDÖDisp "CHOOSE FORMULA"ÖMenu(1,"DISTANCE",DIST,2,"SLOPE",SLOPE,3,"MIDPOINT",MDPT,4,"BACK",START,5,"QUIT",QUIT)ÖLbl DISTÖClLCDÖDisp "DISTANCE FORMULA:"ÖDisp ""ÖDisp "D=(x1-x2)+(y1-y2)"ÖPause ÖPrompt X1ÖPrompt Y1ÖPrompt X2ÖPrompt Y2ÖDisp "D=",((X1-X2)+(Y1-Y2))ÖDisp "D=(",(X1-X2)+(Y1-Y2),")"ÖPause ÖGoto ONEDIMÖLbl SLOPEÖClLCDÖDisp "SLOPE FORMULA:"ÖDisp ""ÖDisp "m=(y1-y2)/(x1-x2)"ÖPause ÖPrompt X1ÖPrompt Y1ÖPrompt X2ÖPrompt Y2Ö(Y1-Y2)/(X1-X2)MÖDisp "m=",MÖDisp "m=",MFracÖPause ÖGoto ONEDIMÖLbl MDPTÖClLCDÖDisp "MIDPOINT FORMULA:"ÖDisp "(x1+x2)/2,(y1+y2)/2"ÖPause ÖPrompt X1ÖPrompt Y1ÖPrompt X2ÖPrompt Y2Ö(X1+X2)/2MXÖ(Y1+Y2)/2MYÖDisp "(",MX,MY,")"ÖPause ÖGoto ONEDIMÖLbl TWODIMÖClLCDÖDisp "CHOOSE SHAPE"ÖMenu(1,"CIRCLE",CIRCLE,2,"ISTRPZD",ISTRPZD,3,"BACK",START,4,"QUIT",QUIT)ÖLbl CIRCLEÖClLCDÖDisp "CHOOSE TYPE"ÖMenu(1,"AR-CIR",CAC,2,"CIR-AR",CCA,3,"CIRCLE",CIRCLEF,4,"BACK",TWODIM,5,"QUIT",QUIT)ÖLbl CACÖClLCDÖPrompt AREAÖDisp "C=",2((AREA/Ä)Ä)ÖDisp "C=",2((AREA/Ä))ÖDisp "Ä"ÖPause ÖGoto CIRCLEÖLbl CCAÖClLCDÖPrompt CÖDisp "A=",(((C/Ä)/2))ÄÖDisp "A=",((C/Ä)/2),"Ä"ÖPause ÖGoto CIRCLEÖLbl CIRCLEFÖClLCDÖDisp "CIRCLE"ÖDisp "C=2Är"ÖDisp ""ÖDisp "A=Är"ÖPause ÖPrompt rÖ2ÄrCPÖ2rCÖDisp "C=",CP,C,"Ä"ÖPause ÖÄrAPÖrAÖDisp "A=",AP,A,"Ä"ÖPause ÖGoto CIRCLEÖLbl ISTRPZDÖClLCDÖDisp "ISOSCELES TRAPEZOID"ÖDisp "P=2L+B1+B2"ÖDisp ""ÖDisp "A=(L-((B2-B1)/2))*"ÖDisp "((B1+B2)/2)"ÖPause ÖPrompt B1ÖPrompt B2ÖPrompt LÖDisp "P=",2L+B1+B2ÖDisp "A=",(L-((B2-B1)/2))*((B1+B2)/2)ÖPause ÖGoto TWODIMÖLbl THRDIMÖClLCDÖDisp "CHOOSE TYPE"ÖMenu(1,"PRISM",PRISM,2,"PYRAMID",PYRMD,3,"OTHER",MISC,4,"BACK",START,5,"QUIT",QUIT)ÖLbl PRISMÖClLCDÖDisp "CHOOSE SHAPE"ÖMenu(1,"CUBE",CUBE,2,"HEXPRISM",HEXPRISM,3,"RECPRISM",RECPRISM,4,"RTRIPSM",RTRIPSM,5,"BACK",THRDIM)ÖLbl CUBEÖClLCDÖDisp "CUBE"ÖDisp "SA=6s"ÖDisp ""ÖDisp "V=s^3"ÖPause ÖPrompt sÖ6sSAÖDisp "SA=",SAÖs^3VÖDisp "V=",VÖPause ÖGoto PRISMÖLbl HEXPRISMÖClLCDÖDisp "HEXIGONAL PRISM"ÖDisp "SA=2(1/2)Pa+6sh"ÖDisp ""ÖDisp "V=(1/2)Pah"ÖPause ÖPrompt sÖPrompt HÖ6s*(((1/2)s)*3)+6s*HSAÖDisp "SA=",SAÖ(1/2)*6s*(((1/2)s)*3)*HVÖDisp "V=",VÖPause ÖGoto PRISMÖLbl RECPRISMÖClLCDÖDisp "RECTANGULAR PRISM"ÖDisp "SA=2(lw+lh+wh)"ÖDisp ""ÖDisp "V=lwh"ÖPause ÖPrompt lÖPrompt wÖPrompt HÖ2*(l*w+l*H+w*H)SAÖDisp "SA=",SAÖl*w*HVÖDisp "V=",VÖPause ÖGoto PRISMÖLbl RTRIPSMÖClLCDÖDisp "RIGHT TRIANGULAR"ÖDisp " PRISM"ÖDisp "SA=2(1/2)ab+ah+bh+ch"ÖDisp ""ÖDisp "V=(1/2)abh"ÖPause ÖPrompt AÖPrompt BÖPrompt HÖA*B+A*H+B*H+((A+B))*HSAÖDisp "SA=",SAÖ(1/2)A*B*HVÖDisp "V=",VÖPause ÖGoto PRISMÖLbl PYRMDÖClLCDÖDisp "CHOOSE SHAPE"ÖMenu(1,"HEXPYRMD",HEXPYRMD,2,"RECPYRMD",RECPYRMD,3,"RTRIPRMD",RTRIPRMD,4,"BACK",THRDIM,5,"QUIT",QUIT)ÖLbl HEXPYRMDÖClLCDÖDisp "HEXIGONAL PYRAMID"ÖDisp "SA=(1/2)Pa+6(1/2)sl"ÖDisp ""ÖDisp "V=(1/3)(1/2)Pah"ÖPause ÖPrompt sÖPrompt HÖ3s((s/2)*3)+3s*(((s/2)*3)+(H))SAÖDisp "SA=",SAÖ(1/3)(1/2)6s*(((1/2)s)*3)*HVÖDisp "V=",VÖPause ÖGoto PYRMDÖLbl RECPYRMDÖClLCDÖDisp "RECTANGULAR PYRAMID"ÖDisp "SA=bw+2(1/2)bl+"ÖDisp " 2(1/2)wl"ÖDisp ""ÖDisp "V=(1/3)bwh"ÖPause ÖPrompt BÖPrompt wÖPrompt HÖB*w+B*((H-B))+w*((H-B))SAÖDisp "SA=",SAÖ(1/3)B*w*HVÖDisp "V=",VÖPause ÖGoto PYRMDÖLbl RTRIPRMDÖClLCDÖDisp "RIGHT TRIANGULAR"ÖDisp " PYRAMID"ÖDisp "SA=(1/2)(ab+al+bl+cl)"ÖDisp ""ÖDisp "V=(1/3)(1/2)abh"ÖPause ÖPrompt AÖPrompt BÖPrompt lÖPrompt HÖ((1/2)A*B)+((1/2)A*l)+((1/2)B*l)+((1/2)((A+B))*l)SAÖDisp "SA=",SAÖ(1/3)(1/2)A*B*HVÖDisp "V=",VÖPause ÖGoto PYRMDÖLbl MISCÖClLCDÖDisp "CHOOSE SHAPE"ÖMenu(1,"CONE",CONE,2,"CYLINDER",CYLINDER,3,"SPHERE",SPHERE,4,"BACK",THRDIM,5,"QUIT",QUIT)ÖLbl CONEÖClLCDÖDisp "CONE"ÖDisp "SA=Är+Ärl"ÖDisp ""ÖDisp "V=(1/3)Ärh"ÖPause ÖPrompt rÖPrompt HÖÄr+Är*((r*H))SAPÖr+r*((r*H))SAÖDisp "SA=",SAP,SA,"Ä"ÖPause Ö(1/3)Är*HVPÖ(1/3)r*HVÖDisp "V=",VP,V,"Ä"ÖPause ÖGoto MISCÖLbl CYLINDERÖClLCDÖDisp "CYLINDER"ÖDisp "SA=2Är+2Ärh"ÖDisp ""ÖDisp "V=Ärh"ÖPause ÖPrompt rÖPrompt HÖ2Är+2Är*HSAPÖ2r+2r*HSAÖDisp "SA=",SAP,SA,"Ä"ÖPause ÖÄr*HVPÖr*HVÖDisp "V=",VP,V,"Ä"ÖPause ÖGoto MISCÖLbl SPHEREÖClLCDÖDisp "SPHERE"ÖDisp "SA=4Är"ÖDisp ""ÖDisp "V=(4/3)Är^3"ÖPause ÖPrompt rÖ4ÄrSAPÖ4rSAÖDisp "SA=",SAP,SA,"Ä"ÖPause Ö(4/3)Är^3VPÖ(4/3)r^3VÖDisp "V=",VP,V,"Ä"ÖPause ÖGoto MISCÖLbl QUITÖClLCDæZ