home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee3 / polrec.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-22  |  1020 b   |  33 lines
  1. 15  PI=3.14159
  2. 30  CLS: PRINT"               Polar to Rectangular Conversion Program "
  3. 100  PRINT
  4. 110  PRINT 
  5. 115  PRINT " Type:PR for Polar to Rectangular Conversion or"
  6. 120  INPUT "     :RP for Rectangular to Polar Conversion. (X TO EXIT)";X$ :PRINT
  7. 130  REM IF LEFT$(X$,1)="X" THEN OUTBYTE 26:END
  8. 140  IF X$="PR" THEN GOTO 160 ELSE IF  X$="RP" THEN GOTO 260
  9. 150  REM OUTBYTE26 : PRINT "INVALID INPUT---TRY AGAIN":GOTO 100
  10. 155  PRINT
  11. 157  REM:*****POLAR TO RECTANGULAR************
  12. 160  INPUT"Magnatude";A 
  13. 180  INPUT"Angle";B :PRINT
  14. 190  B=B*PI/180
  15. 200  A1=SIN(B)*A
  16. 210  B1=COS(B)*A
  17. 240  PRINT USING "THE RECTAGULAR IS ##.###^^^^     ";B1;:PRINT USING" + J ##.###^^^^    ";A1
  18. 248  Q$="N"
  19. 253  INPUT "TO DO ANOTHER CONVERSION ENTER Y" ;Q$
  20. 255  IF Q$="Y" THEN 160 ELSE 400
  21. 259   REM:*****RECTANGULAR TO POLAR***********
  22. 260  INPUT"REAL";A 
  23. 280  IF A=0 THEN A=9.9999E-05
  24. 290  INPUT"IMAGINARY";B :PRINT
  25. 300  C1=SQR((A*A)+(B*B))
  26. 310  D1=ATN(B/A)-(SGN(A)-1)*PI/2
  27. 320  D1=D1*180/PI
  28. 340  PRINT USING "The Polar is ##.###^^^^     ";C1;:PRINT " at ";:PRINT USING "##.###^^^^    ";D1;:PRINT "Degrees" :PRINT
  29. 345  Q$="N"
  30. 346  INPUT "TO DO ANOTHER CONVERSION ENTER Y" ;Q$
  31. 349  IF Q$="Y" THEN 260 ELSE 400
  32. 400  END
  33.