,SQU>E ,ROOT ,EXAMPLES #1_4 ,! SQU>E ROOT ( TW5TY-FIVE IS WRITT5 >25] #2_4 ,! SQU>E ROOT ( NEGATIVE F\R IS WRITT5 >-4] #3_4 ,! SQU>E ROOT ( ;B SQU>$ M9US F\R A ;C 5D ROOT IS WRITT5 >B^2"-4AC] #4_4 ,! SQU>E ROOT ( ;X SQU>$ PLUS ;Y SQU>$ 5D ROOT IS WRITT5 >X^2"+Y^2"] #5_4 ,FIVE M9US TWO SQU>E ROOT ( ;X 5D ROOT IS WRITT5 #5-2>X] #6_4 ,! SQU>E ROOT ( ;X 5D ROOT M9US SIX IS WRITT5 >X]-6 #7_4 ,! SQU>E ROOT (! SQU>E ROOT ( ;X IS WRITT5 >.>X.]] #8_4 ;I EQUALS ! SQU>E ROOT ( NEGATIVE "O IS WRITT5 I .K >-1] #A #9_4 ;D EQUALS ! SQU>E ROOT ( OP5 P>5!SIS ;X SUB TWO M9US ;X SUB "O CLOSE P>5!SIS SQU>$ PLUS OP5 P>5!SIS ;Y SUB TWO M9US ;Y SUB "O CLOSE P>5!SIS SQU>$ 5D ROOT IS WRITT5 D .K >(X2-X1)^2"+(Y2-Y1)^2"] #B