home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / hamradio / network2.lbr / NETWORK.CZM / NETWORK.COM (.txt)
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1987-10-10  |  30.3 KB  |  278 lines
  1. Copyright (C) 1984 BORLAND Inc
  2. DIABLO 3200pple CP/MP
  3. ^#V#N#F
  4. s#r#q#p
  5.     #^#V
  6. 9^#Vh&
  7. |/g}/o#
  8. T]=o`9y
  9. T9^K#
  10. 8/<oz
  11. T9^K#
  12. oGOW_g
  13. `1pF,
  14. w###6
  15. ##N#F*
  16. Nw#Fw
  17. q#p#6
  18. #w#w#w
  19. TRUEFALSE
  20.     N#F#s#r
  21. N#F#^#V
  22. " C}=(
  23. F+N+++V+^
  24. q#p##
  25. User break
  26. Run-time
  27.  error 
  28. , PC=
  29. Program aborted
  30. =c6A_p    Yo    
  31. ***DATA READ ERROR***
  32.        ELEMENT TYPE MENU
  33. 9 (1)  SER R                       (12)  TRANSMISSION LINE
  34. 5 (2)  PAR R                       (13)  PAR OPEN STUB
  35. 6 (3)  SER L                       (14)  PAR SHORT STUB
  36. 5 (4)  PAR L                       (15)  SER OPEN STUB
  37. 6 (5)  SER C                       (16)  SER SHORT STUB
  38. 3 (6)  PAR C                       (17)  TRANSFORMER
  39.  (7)  SER (S-RLC)
  40.  (8)  PAR (S-RLC)
  41.  (9)  SER (P-RLC)
  42. (10)  PAR (P-RLC)
  43. (11)  SER (S-RL/P-C)
  44. DIELECTRIC CONSTANT CHART:
  45. !AIR                          1.00
  46. !DUROID 5880                  2.20
  47. !DUROID 5870                  2.23
  48. !TEFLON-FIBERGLASS (PTFE)     2.55
  49. !FUSED SILICA (QUARTZ)        3.78
  50. !G-10 FIBERGLASS              4.50
  51. !ALUMINA OR EPSILAM 10       10.00
  52. *** COMPLEX NUMBER ERROR ***
  53. R+)]T)
  54. R+)]T)
  55. R+)]T)
  56. *** COMPLEX NUMBER ERROR ***
  57. R+)]T)
  58. R+)]T)
  59. s#r!@
  60. R+)]T)
  61. R+)]T)
  62. R+)]T)
  63. *** COMPLEX NUMBER ERROR ***
  64. R+)]T)
  65. R+)]T)
  66. 8ELEM      TYPE             R             L             C
  67. 9                         (ZO)           (L)           (E)
  68. SOURCE R       !
  69. +)]T)
  70. +)]T)
  71. +)]T)
  72. LOAD R         !U
  73. )NOTE:   R,L,C ARE FOR ELEMENT TYPES 1-11.
  74. +        ZO,L,E ARE FOR ELEMENT TYPES 12-16.
  75. ENTER ELEMENT TYPE FOR SECTION *
  76. ELEMENT TYPE  (1-17)? 
  77.  (OHMS) = 
  78. +)]T)
  79. +)]T)
  80. +)]T)
  81.    (nH) = 
  82. +)]T)
  83. +)]T)
  84. +)]T)
  85.    (pF) = 
  86. +)]T)
  87. +)]T)
  88. +)]T)
  89.  (OHMS) = 
  90. +)]T)
  91.    (nH) = 
  92. +)]T)
  93.    (pF) = 
  94. +)]T)
  95. "ENTER DESIRED DIELECTRIC CONST. = 
  96. +)]T)
  97. ARE THE LINES/STUBS IN:
  98. 7(1) PHYSICAL DIMENSIONS, OR (2) ELECTRICAL PARAMETERS? 
  99. ENTER THE WIDTH (IN)      = 
  100. ENTER THE LENGTH (IN)       = 
  101. +)]T)
  102. ENTER BOARD THICKNESS (IN)  = 
  103. +)]T)
  104. +)]T)
  105. +)]T)
  106. +)]T)
  107. +)]T)
  108. +)]T)
  109. &ENTER THE CHAR. IMPEDANCE (OHMS)    = 
  110. +)]T)
  111. "ENTER ELECTRICAL LENGTH (DEGS)  = 
  112. "ENTER CENTER FREQUENCY (Mhz)    = 
  113. +)]T)
  114. +)]T)
  115. +)]T)
  116. +)]T)
  117. TURNS RATIO (N)  = 
  118. SERIES R               
  119. PARALLEL R             
  120. SERIES L               
  121. PARALLEL L             
  122. SERIES C               
  123. PARALLEL C             
  124. SERIES-SERIES RLC      
  125. PARALLEL-SERIES RLC    
  126. SERIES-PARALLEL RLC    
  127. PARALLEL-PARALLEL RLC  
  128. SERIES-SERIES RL/PARL C
  129. TRANSMISSION LINE      
  130. OPEN PARALLEL STUB     
  131. SHORTED PARALLEL STUB  
  132. OPEN SERIES STUB       
  133. SHORTED SERIES STUB    
  134. TRANSFORMER            
  135. .                   RF NETWORK ANALYSIS PROGRAM
  136. +                      by: WILLIAM L. MUNSON
  137. /                  VERSION  1.1  -  OCT. 22 1987
  138. 5NETWORK may be used for non-commercial purposes only.
  139. 4No commercial use of NETWORK may be made without the
  140. author!'
  141. s express written permission.
  142. ,1)  Units are ohms, nH, pF, Mhz  and inches.
  143. .2)  Maximum number of sections is Two Hundred.
  144. !3)  IL(DB)= Insertion loss in dB.
  145. 4)  RL(DB)= Return loss in dB.
  146. )5)  VSWR  = Volatage Standing Wave Ratio.
  147. #6)  RHO   = Reflection Coefficient.
  148. )7)  ZIN(R)= Real part of input impedance.
  149. *8)  ZIN(I)= Imag. part of input impedance.
  150. =NOTE: The load resistance can be entered as a complex number.
  151. +)]T)
  152. +)]T)
  153. +)]T)
  154. *DO YOU WANT A (N)EW OR A (S)AVED NETWORK? 
  155. DO YOU WANT A DIRECTORY (Y/N)? 
  156. WHAT IS THE NAME OF THE FILE? 
  157. +)]T)
  158. +)]T)
  159. +)]T)
  160. HOW MANY SECTIONS  [MAX=200]
  161. (DONT COUNT THE LOADS)? 
  162. $ENTER THE SOURCE RESISTANCE (OHMS)? 
  163. -TO ENTER A COMPLEX NUMBER FOR THE LOAD VALUE.
  164. CUSE THE SERIES EQUIVALENT FORM  EG.- (1.28+J12.45) or (1.28-J12.45)
  165. LOAD RESISTANCE (OHMS)? 
  166. ;WHAT IS THE FREQ. THAT THE COMPLEX NUMBER IS SPECIFIED AT? 
  167. FREQUENCY (Mhz)? 
  168. EDIT ELEMENTS (Y/N)? 
  169. 4ENTER (S)OURCE, (L)OAD, ELEMENT #, OR (Q) TO QUIT ? 
  170. SOURCE RESISTANCE (OHMS)? 
  171. LOAD RESISTANCE (OHMS)? 
  172. CHANGE ELEMENT TYPE (Y/N)? 
  173. SAME FREQUENCY RANGE (Y/N)? 
  174. START FREQUENCY (Mhz)? 
  175. STEP FREQUENCY  (Mhz)? 
  176. NUMBER OF STEPS      ? 
  177. !OUTPUT TO (S)CREEN OR (P)RINTER? 
  178. JENTER A DESCRIPTION OF THE NETWORK TO BE USED AS A HEADER ON THE PRINTOUT.
  179. M   FREQ(Mhz)    IL(DB)     RL(DB)       VSWR        RHO      ZIN(R)    ZIN(I)
  180. 8                    =================================== 
  181. 7                    RF NETWORK ANALYSIS PROGRAM VER 1.1
  182. 7                    ===================================
  183. NETWORK LISTING.
  184. JELEM  TYPE  DESCRIPTION                      R             L             C
  185. K                                           (ZO)           (L)           (E)
  186. #SOURCE R                           !
  187. +)]T)
  188. +)]T)
  189. +)]T)
  190. #LOAD R                             !U
  191. )NOTE:   R,L,C ARE FOR ELEMENT TYPES 1-11.
  192. +        ZO,L,E ARE FOR ELEMENT TYPES 12-16.
  193. M   FREQ(Mhz)    IL(DB)     RL(DB)       VSWR        RHO      ZIN(R)    ZIN(I)
  194. +)]T)
  195. +)]T)
  196. +)]T)
  197. +)]T)
  198. +)]T)
  199. +)]T)
  200. +)]T)
  201. +)]T)
  202. +)]T)
  203. +)]T)
  204. +)]T)
  205. +)]T)
  206. +)]T)
  207. +)]T)
  208. +)]T)
  209. +)]T)
  210. +)]T)
  211. +)]T)
  212. +)]T)
  213. +)]T)
  214. +)]T)
  215. +)]T)
  216. +)]T)
  217. +)]T)
  218. +)]T)
  219. +)]T)
  220. +)]T)
  221. +)]T)
  222. +)]T)
  223. +)]T)
  224. +)]T)
  225. +)]T)
  226. +)]T)
  227. +)]T)
  228. +)]T)
  229. +)]T)
  230. +)]T)
  231. +)]T)
  232. +)]T)
  233. +)]T)
  234. +)]T)
  235. +)]T)
  236. +)]T)
  237. +)]T)
  238. +)]T)
  239. +)]T)
  240. +)]T)
  241. +)]T)
  242. +)]T)
  243. +)]T)
  244. +)]T)
  245. +)]T)
  246. +)]T)
  247. +)]T)
  248. +)]T)
  249. +)]T)
  250. +)]T)
  251. +)]T)
  252. +)]T)
  253. +)]T)
  254. +)]T)
  255. +)]T)
  256. +)]T)
  257. +)]T)
  258. +)]T)
  259. +)]T)
  260. +)]T)
  261. +)]T)
  262. +)]T)
  263. +)]T)
  264. +)]T)
  265. +)]T)
  266. +)]T)
  267. +)]T)
  268. +)]T)
  269. +)]T)
  270. +)]T)
  271. +)]T)
  272. +)]T)
  273. C(1)CHANGE FREQ (2)EDIT ELEMENTS (3)START OVER (4)QUIT OR (5)SAVE ? 
  274. &WHAT NAME TO SAVE THE NETWORK UNDER ? 
  275. +)]T)
  276. +)]T)
  277. +)]T)
  278.