home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / mininec / mn3basic / opmn9.clp < prev    next >
Text File  |  1996-06-30  |  2KB  |  65 lines
  1. 30000 REM OPTIMIZER
  2. 30010 PRINT "ORIENTATION MUST SET MAIN LOBE AT"
  3. 30020 PRINT " AZMUITH =90, ANGLE FROM ZENITH=90 DEGREES,"
  4. 30030 PRINT "  WITH  PARAMETERS  SET TO CALCULATE THE LOBE WITH"
  5. 30040 PRINT "    90,0,1": PRINT
  6. 30050 INPUT "ENTER SPACE IF OK, OTHER KEY= MAIN MENU"; Q$
  7. 30060 IF Q$ <> "" THEN 38000
  8. 31000 INPUT "ENTER DESIGN GOAL, 1=MAX GAIN, 2=MAX F/B"; GOAL
  9. 31010 IF GOAL < 1 OR GOAL > 2 THEN 31000
  10. 31020 INPUT "ENTER PULSE # OF REFLECTOR LOAD"; LP(1)
  11. 31030 INPUT "ENTER NUMBER OF DIRECTORS"; NDIR
  12. 31040 FOR ND = 2 TO NDIR + 1
  13. 31050 PRINT "  ENTER PULSE # OF DIRECTOR #"; ND - 1; " LOAD"
  14. 31060 INPUT LP(ND)
  15. 31070 NEXT
  16. 32000 PASS = 0
  17. 32010 MAXVAL = 0
  18. 32020 GOSUB 39000 'FOR LOBES
  19. 32030 GOSUB 38000
  20. 32040 SLOPE = 1
  21. 32050 LA(2, 1, 1) = LA(2, 1, 1) + SLOPE * 25
  22. 32060 GOSUB 39000
  23. 32070 IF SLOPE = 1 THEN IF VALUE < MAXVALUE THEN SLOPE = -1 ELSE GOSUB 38000
  24. 32080 LA(2, 1, 1) = LA(2, 1, 1) + SLOPE * 25
  25. 32090 GOSUB 39000
  26. 32100 IF VALUE >= MAXVALUE THEN GOSUB 38000: GOTO 32080
  27. 32110 LA(2, 1, 1) = LA(2, 1, 1) - SLOPE * 25
  28. 33000 SLOPE = 1
  29. 33010 FOR ND = 2 TO NDIR + 1
  30. 33020 LA(2, ND, 1) = LA(2, ND, 1) + SLOPE * 25
  31. 33030 NEXT ND
  32. 33040 GOSUB 39000
  33. 33050 IF SLOPE = 1 THEN IF VALUE < MAXVALUE THEN SLOPE = -1 ELSE GOSUB 38000
  34. 33060 FOR ND = 2 TO NDIR + 1
  35. 33070 LA(2, ND, 1) = LA(2, ND, 1) + SLOPE * 25
  36. 33080 NEXT ND
  37. 33090 GOSUB 39000
  38. 33095 IF VALUE >= MAXVALUE THEN GOSUB 38000: GOTO 33060
  39. 34000 PRINT "AT END OF PASS"; PASS; ","
  40. 34010 IF GOAL = 1 THEN PRINT #3, " MAX GAIN =";
  41. 34020 IF GOAL = 2 THEN PRINT #3, " MAX F/B =";
  42. 34030 PRINT #3, MAXVALUE
  43. 34040 PRINT #3, "OBTAINED WITH REFLECTOR LOADING OF"; REFL; " OHMS"
  44. 34050 PRINT #3, "  AND A DIRECTOR LOADING OF"; DIRL; " OHMS"
  45. 34060 PRINT #3, ""
  46. 34070 INPUT "ANOTHER PASS, Y/N"; Q$
  47. 34080 IF Q$ = "Y" THEN PASS = PASS + 1: GOTO 32040
  48. 37000 RETURN
  49. 38000 MAXVALUE = VALUE
  50. 38010 REFL = LA(2, 1, 1)
  51. 38020 DIRL = LA(2, 2, 1)
  52. 38030 RETURN
  53. 39000 AA = 90: FLG = 0
  54. 39005 PRINT #3, "REFLECTOR LOAD="; LA(2, 1, 1): PRINT #3, "DIRECTOR(S) LOAD="; LA(2, 2, 1)
  55. 39010 GOSUB 6200 'FOR MAIN LOBE
  56. 39020 VALUE = P3
  57. 39030 PRINT #3, "MAIN LOBE="; P3
  58. 39040 AA = 270: Q1 = AA
  59. 39050 GOSUB 6920 'FOR BACK LOBE
  60. 39060 IF GOAL = 1 THEN 39080
  61. 39070 VALUE = VALUE - P3
  62. 39080 PRINT #3, " BACK LOBE="; P3: PRINT #3, ""
  63. 39090 RETURN
  64.  
  65.