home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / POWFACT.TK < prev    next >
Encoding:
Text File  |  1988-03-01  |  2.1 KB  |  278 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9. ** POWER FACTOR, COMPLEX FUNCTIONS  **
  10. #3
  11. :n
  12. mV
  13. :v
  14. 440
  15. :s
  16. i
  17. :u
  18. V
  19. :d
  20. V
  21. :c
  22. phasor effective voltage
  23. #4
  24. :n
  25. aV
  26. :v
  27. 0
  28. :s
  29. i
  30. :u
  31. rad
  32. :d
  33. deg
  34. :c
  35.    "       "        "
  36. #5
  37. :n
  38. mZ
  39. :s
  40. b
  41. :u
  42. ohm
  43. :d
  44. ohm
  45. :c
  46. equivalent impedance
  47. #6
  48. :n
  49. aZ
  50. :s
  51. b
  52. :u
  53. rad
  54. :d
  55. deg
  56. :c
  57.     "          "
  58. #7
  59. :n
  60. mI
  61. :s
  62. b
  63. :u
  64. A
  65. :d
  66. A
  67. :c
  68. phasor effective current
  69. #8
  70. :n
  71. aI
  72. :s
  73. b
  74. :u
  75. rad
  76. :d
  77. deg
  78. :c
  79.    "       "        "
  80. #9
  81. :n
  82. mS
  83. :v
  84. 15000
  85. :s
  86. i
  87. :u
  88. VA
  89. :d
  90. kVA
  91. :c
  92. apparent power 
  93. #10
  94. :n
  95. aS
  96. :s
  97. b
  98. :u
  99. rad
  100. :d
  101. deg
  102. :c
  103.    "       "    
  104. #11
  105. :n
  106. S
  107. :v
  108. 10000
  109. :s
  110. i
  111. :u
  112. W
  113. :d
  114. kW
  115. :c
  116. average power P   
  117. #12
  118. :n
  119. jS
  120. :s
  121. b
  122. :u
  123. var
  124. :d
  125. kvar
  126. :c
  127. quadrature power Q 
  128. #13
  129. :n
  130. pf
  131. :s
  132. b
  133. :c
  134. power factor      
  135. #14
  136. :n
  137.  
  138. :s
  139. b
  140. #15
  141. :n
  142. pfnew
  143. :v
  144. .95
  145. :s
  146. i
  147. :c
  148. new power factor
  149. #16
  150. :n
  151. mSnew
  152. :s
  153. b
  154. :u
  155. VA
  156. :d
  157. kVA
  158. :c
  159. new apparent power
  160. #17
  161. :n
  162. aSnew
  163. :s
  164. b
  165. :u
  166. rad
  167. :d
  168. deg
  169. :c
  170.  "      "      "
  171. #18
  172. :n
  173. jSnew
  174. :s
  175. b
  176. :u
  177. var
  178. :d
  179. kvar
  180. :c
  181. new quadrature power Q
  182. #19
  183. :n
  184. Qc
  185. :s
  186. b
  187. :u
  188. var
  189. :d
  190. kvar
  191. :c
  192. capacitive Q of capacitor bank
  193. #20
  194. :n
  195.  
  196. :s
  197. b
  198. :c
  199.  Type  =R  to see the Rule Sheet 
  200. =u
  201. #1
  202. :f
  203. rad
  204. :t
  205. deg
  206. :m
  207. 57.2957795129
  208. #2
  209. :f
  210. kW
  211. :t
  212. W
  213. :m
  214. 1000
  215. #3
  216. :f
  217. kVA
  218. :t
  219. VA
  220. :m
  221. 1000
  222. #4
  223. :f
  224. kvar
  225. :t
  226. var
  227. :m
  228. 1000
  229. =r
  230. #1
  231. :r
  232. " ****  Modification of Ohm's Law to account for the phase differences
  233. :s
  234. C
  235. #2
  236. :r
  237. " ****  between voltage and current caused by capacitive and inductive
  238. :s
  239. C
  240. #3
  241. :r
  242. " ****  impedances in a.c. circuits.
  243. :s
  244. C
  245. #5
  246. :r
  247. rcis(mI,aI) = rcis(mV,aV)/rcis(mZ,aZ)                   " Ohm's law
  248. #6
  249. :r
  250. rcis(mS,aS) = rcis(mV/sqrt(2),aV)*rcis(mI/sqrt(2),-aI)  " Complex power
  251. #7
  252. :r
  253. (S,jS) = rcis(mS,aS)              " Power: rectangular-polar conversion
  254. #8
  255. :r
  256. (S,jSnew) = rcis(mSnew,aSnew) 
  257. #9
  258. :r
  259. pf = cos(aS)                      " Power factor definition
  260. #10
  261. :r
  262. pf = S/mS
  263. #11
  264. :r
  265. pfnew = cos(aSnew)                " | Effect of shunt capacitance
  266. #12
  267. :r
  268. pfnew = S/mSnew                   " | on improved power factor
  269. #13
  270. :r
  271. jS = jSnew + Qc
  272. #15
  273. :r
  274. "    Type  =V  to see the Variable Sheet ;  /WV to window it in
  275. :s
  276. C
  277. %Tv,f,0,5,0,1,0
  278.