home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / oilfield / esp_cost.lzh / ESP_COST.BAS
BASIC Source File  |  1989-02-08  |  6KB  |  86 lines
  1. 10 KEY OFF:DIM A$(28,2),A(28):FOR J=0 TO 2:FOR I=0 TO 28:READ A$(I,J)
  2. 20 NEXT I:NEXT J:A$(13,2)="                                     "
  3. 30 F=4:GOSUB 770:A=1:B=9:C=4:GOSUB 700:FOR I=1 TO 23:A(I)=VAL(A$(I,1))
  4. 40 NEXT I:H=(A(4)*A(5)+A(6))*A(7):A(10)=H/A(8):GOSUB 770
  5. 50 PRINT,"The unadjusted Hp. required by the pump is ";
  6. 60 PRINT USING"###.#";H;:PRINT" Hp.":PRINT:PRINT,"The motor load is ";
  7. 70 PRINT USING"###.#";A(10)*100;:PRINT" percent of its capacity"
  8. 80 PRINT:PRINT"     The motor load percent is used with the ";
  9. 90 PRINT"manufactures motor performance":PRINT"     curve to determ";
  10. 100 PRINT"ine the operating RPM.  Read the motor RPM from the curve.":
  11. 110 A=11:B=11:C=15:GOSUB 700:IF A(A)=VAL(A$(A,1)) THEN D=H:GOTO 200
  12. 120 A(A)=VAL(A$(A,1)):R3=(A(A)/A(1))^3:D=H*R3:A(10)=D/A(8):E=A(10)*100
  13. 130 F=6:GOSUB 770:PRINT,"The adjusted Hp. required by the pump is ";
  14. 140 PRINT USING"###.#";D;:PRINT" Hp.":PRINT:PRINT,"The motor load is";
  15. 150 PRINT USING"###.#";E;:PRINT" percent of its capacity":PRINT:PRINT
  16. 160 PRINT"    Check this ajusted motor load with the manufactures ";
  17. 170 PRINT"motor performance":PRINT"    curve to determine it the RPM";
  18. 180 PRINT" needs further ajustment.  If so press -N-."
  19. 190 GOSUB 700:IF A(A)<>VAL(A$(A,1)) THEN A(A)=VAL(A$(A,1)):GOTO 120
  20. 200 X= INT(A(3)*(A(A)/A(1))^2*10)/10:Y=A(A)/A(1)*100:F=7:GOSUB 770
  21. 210 PRINT,"The pump will produce"X"feet of head per stage, for a"
  22. 220 PRINT:PRINT,"total of"X*A(5)"feet TDH.  The flow will be ";
  23. 230 PRINT USING "###.#";Y;:PRINT"% of the":PRINT:PRINT,"original ";
  24. 240 PRINT"design flow, for a total of"INT(Y/100*A(2))"BPD.  The flow"
  25. 250 PRINT:PRINT,"can be adjusted by changing the number of pump stages.
  26. 260 LOCATE 23,20,0:PRINT A$(3,2):GOSUB 750:IF B$="N" GOTO 30
  27. 270 GOSUB 770:PRINT,"Use The ";
  28. 280 PRINT" motor characteristics curve for"INT(A(10)*1000)/10"%"
  29. 290 PRINT,"load to find the motor efficiency and current":A=12:B=13
  30. 300 PRINT,"as a percent of full load amps":C=9:GOSUB 700:FOR I=A TO 14
  31. 310 LOCATE 15,17,0:A(I)=VAL(A$(I,1)):IF A(I)>1 THEN A(I)=A(I)/100
  32. 320 NEXT:A(15)=A(13)*A(9):A(14)=D*.7457/A(12):PRINT A$(14,0);
  33. 330 PRINT,INT(A(14)*10)/10"KW":LOCATE 17,17,0:Z=INT(A(15)*10)/10
  34. 340 PRINT A$(15,0),Z" Amp":LOCATE 23,25,0:PRINT A$(2,2):GOSUB 750
  35. 350 GOSUB 770:PRINT,"Use the cable data table and the graph to find ";
  36. 360 PRINT"the":PRINT,"cable resistance and the conductor temperature";
  37. 370 PRINT" in":PRINT,"degrees Fahrenheit for the ambiant well temper";
  38. 380 PRINT"ature":PRINT,"and "INT(A(15)*10)/10"Amps":A=16:B=18:C=10
  39. 390 GOSUB 700:FOR I=A TO B:A(I)=VAL(A$(I,1)):NEXT I:T=A(A)*(390+A(17))
  40. 400 A(20)=A(20)*1.025:A(19)=A(15)^2*T*A(18)/1.53E+08:GOSUB 770
  41. 410 PRINT,A$(14,0),INT(A(14)*100)/100"KW":PRINT,,,"+"
  42. 420 PRINT,A$(19,0),INT(A(19)*100)/100"KW":PRINT:A(20)=A(19)+A(14)
  43. 430 PRINT,"Well Head Power Consumed",INT(A(20)*100)/100"KW":PRINT
  44. 440 PRINT"    A factor of 2.5% is used to represent the power consumed
  45. 450 PRINT"    by the transformers, switchboard and other surface gear.
  46. 460 A(20)=A(20)*1.025:PRINT:PRINT,A$(20,0),INT(A(20)*100)/100"KW"
  47. 470 LOCATE 16,1,0:PRINT,A$(21,0):LOCATE 16,42,0:PRINT A$(21,1)" $/KWH"
  48. 480 LOCATE 23,25,0:PRINT A$(1,2):GOSUB 750
  49. 490 IF B$="Y" THEN GOTO 510 ELSE LOCATE 16,40,0
  50. 500 INPUT A$(21,1):LOCATE 15,40,0:PRINT A$(13,2):GOTO 470
  51. 510 A(21)=VAL(A$(21,1)):A(22)=A(20)*A(21)*720:LOCATE 18,1,0
  52. 520 PRINT,A$(22,0):LOCATE 18,42,0:PRINT USING"$$#####";A(22)
  53. 530 A(23)=A(22)*12.167:LOCATE 20,1,0:PRINT,A$(23,0):LOCATE 20,42,0
  54. 540 PRINT USING"$$######";A(23):LOCATE 23,25,0:PRINT A$(2,2):GOSUB 750
  55. 550 F=11:GOSUB 770:A=24:B=26:C=6:GOSUB 700:FOR I= 24 TO 26
  56. 560 A(I)=VAL(A$(I,1)):NEXT I:LOCATE 10,17,0:PRINT A$(26,0)
  57. 570 IF A(25)>.4 THEN A(25)=A(25)/100:L=A(25)/12:LOCATE 10,41,0
  58. 580 PRINT USING"$$#####";A(26):LOCATE 12,17,0:PRINT A$(22,0)
  59. 590 LOCATE 12,41,0:PRINT USING"$$#####";A(22):C=(1-1/((1+L)^A(24)))/L
  60. 600 LOCATE 18,1,0:PRINT,A$(27,0):A(27)=A(26)+A(22)*C:LOCATE 18,42,0
  61. 610 PRINT USING"$$#######";A(27):A(28)=A(22)+A(26)/C:LOCATE 20,1,0
  62. 620 PRINT,A$(28,0):LOCATE 20,42,0:PRINT USING"$$#####";A(28)
  63. 630 LOCATE 23,22,0:PRINT A$(4,2):GOSUB 750
  64. 640 IF B$="C" THEN LOCATE 23,22,0:PRINT A$(13,2):GOTO 550
  65. 650 IF B$="V" THEN GOTO 660 ELSE GOTO 30
  66. 660 F=4:GOSUB 770:PRINT,,A$(14,2):FOR I=1 TO 14
  67. 670 LOCATE I+7,1,0:PRINT A$(I,0);:LOCATE I+7,26,0:PRINT A(I)
  68. 680 LOCATE I+7,40,0:PRINT A$(I+14,0);:LOCATE I+7,64,0:PRINT A(I+14)
  69. 690 NEXT I:LOCATE 23,25,0:PRINT A$(2,2):GOSUB 750:GOTO 30
  70. 700 FOR J = A TO B:LOCATE ((J-A)*2+C),17,0:PRINT A$(J,0),A$(J,1):NEXT
  71. 710 LOCATE 23,25,0:PRINT A$(1,2):GOSUB 750:IF B$="Y" THEN RETURN
  72. 720 IF B$<>"N" GOTO 710 ELSE FOR J=A TO B:U=(J-A)*2+C:LOCATE U,41,0
  73. 730 INPUT B$:IF B$<>""THEN A$(J,1)=B$ :LOCATE U,40,0
  74. 740 PRINT A$(13,2):LOCATE U,41,0:PRINT "  "A$(J,1):NEXT:GOTO 710
  75. 750 B$="":WHILE B$="":B$=INKEY$:WEND:O=ASC(B$):IF O>90 THEN O=O-32
  76. 760 B$=CHR$(O):LOCATE 23,25,0:PRINT A$(13,2):RETURN
  77. 770 CLS:PRINT:F=F+1:PRINT,, A$(F,2):PRINT:PRINT:RETURN
  78. 780 DATA a,Pump Curve RPM,Flow Rate  BPD,Pump Head/stage,Pump Hp/stage,Number of stages, Gas Separator Hp.,Well Fluid Sp.Gr.,Motor Nameplate Hp
  79. 790 DATA Motor Nameplate Amps,% Motor Load,Motor Operating RPM,Motor Efficency,% Full Load Amps,Motor Power Consumed,Motor Operating Amps
  80. 800 DATA Resistance (Ohm/Kft),Conductor Temp (deg F),Cable Length (ft),Cable Power Consumed,Total Power Required,Electrical Cost ($/KWH)
  81. 810 DATA Power Cost per Month,Power Cost per Year,Expected life (Months),Interest rate (%/year),Initial Unit Cost ,Total Investment Cost,Total Monthly Cost
  82. 820 DATA b,3500,1400,25.946,.4138,185,0,1.05,90,46,c,3510,87.94,91.22,d,e,.259,171,5000,f,g,.05,h,i,24,12,30000,j,k,l
  83. 830 DATA Is This Correct? (Y/N),Press Any Key To Continue,Is Pump Performnce Satisfactory? (Y/N),Press -C- to Change -V- to View Data
  84. 840 DATA ESP Power Cost Program,RPM Ajustment for Motor Load,RPM Reiteration,ESP Performance Ajustment for RPM,Motor Efficiency and Amperage
  85. 850 DATA Cable Power Consumption,System Power Consumption,Economic Considerations,m,Input and Calculated Data,n,o,p,q,r,s,t,u,v,w,x,y,z,A
  86.