download PDF (32MB)
download PDF (32MB)
download PDF (32MB)
- TAGS
- download
- perlmeister.com
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
100<br />
110<br />
1Z0<br />
130<br />
140<br />
150<br />
1G0<br />
170<br />
180<br />
190<br />
Z00<br />
Z10<br />
ZZ0<br />
Z30<br />
Z40<br />
Z50<br />
ZG0<br />
Z70<br />
Z80<br />
Z90<br />
300<br />
310<br />
3Z0<br />
! Program PUMP<br />
I 1987 by<br />
! stand-alone<br />
I<br />
CALL PUMP @ SUB<br />
CALL HEADER<br />
INPUT '? Lenght<br />
INPUT '?<br />
INPUT '?<br />
INPUT '?<br />
IF NOT U<br />
CCD - Computerclub Deutschland e.V./Prisma<br />
- Pump Cycles, Pump<br />
M.SCHNEIDER / CCD e.<br />
PUMP @ FIX 3<br />
of<br />
OD of DP:<br />
ID of DP:<br />
Lenght of<br />
THEN Z30<br />
DP: '<br />
'SPI<br />
' 5PZ<br />
HWDP:<br />
;P<br />
'0'iW<br />
Factor<br />
V.<br />
and Annulus Capacity<br />
INPUT '?<br />
INPUT 7<br />
OD of HWDP: ' ;W1<br />
ID of HWDP: ' jUZ<br />
INPUT Lenght of DC: 'iC<br />
INPUT OD of DC: ';CZ<br />
INPUT ID of DC: ',C1<br />
INPUT Hole Diameter: ';G<br />
INPUT Stroke Rate: ';R<br />
INPUT Pump Factor". ' iH<br />
IF NOT THEN GOSUB 660<br />
I$='9A ",K,X,10A'<br />
PRINT USING I*?"DP",P."ft"<br />
330<br />
PRINT<br />
PRINT<br />
USING<br />
USING<br />
I$,"DP~0D",P1<br />
1$."DP-ID",PZ<br />
inch"<br />
' inch" @ PRINT<br />
340 PRINT USING I$j"HWDP",W,"ft"<br />
350 PRINT USING I$,"HUDP-0D",U!, inch"<br />
3G0 PRINT USING I$,"HWDP-ID",WZ, inch" @ PRINT<br />
370 PRINT USING I$;"DC",C,"ft"<br />
380<br />
390<br />
PRINT<br />
PRINT<br />
USING<br />
USING<br />
I9U"0C-0D",CZ,"inch"<br />
I$;"DC-ID",C1."inch" 8 PRINT<br />
400<br />
410<br />
4Z0<br />
PRINT<br />
PRINT<br />
PRINT<br />
USING<br />
USING<br />
USING<br />
I$i"Hole",6."inch" (5 PRINT<br />
'"Stroke Rate - "„K, " s t k s / m i n " / ' ; R<br />
" g a l / c y c l e " / ' ; H<br />
'"Pump Factor - ",K.<br />
430 Z=.00097135 © I=Z*PZAZ @ B=Z*WZ'- 2 @ J-Z*CKZ<br />
440 I*='ZZA,"= , K , " b b l / f t " '<br />
450<br />
460<br />
PRINT USING<br />
PRINT USING<br />
1$;"Inside DP Capacity' I<br />
1$;"Inside HUDP Capacity" B<br />
470 PRINT USING I$i"Inside DC Capacity",J<br />
480 T=(P*I+C*J+U»B)*4Z/H<br />
490 R1=T/R<br />
500 K=Z»<br />
530 S=(P*K+C*L+U*D)*4Z/H<br />
540 RZ=S/R<br />
550 PRINT<br />
560 PRINT 'No. of Pump Cycles to Circulate from Surface to<br />
570 PRINT ' To t a l M i n u t e s t o c i r c u l a t e f r o m Surface to Bit<br />
580 PRINT USING I$j"Annulus DP Capacity",K<br />
590 PRINT USING 1$;"Annulus HUDP Capacity";<br />
600 PRINT USING I*?"Annulus DC Capacity",L<br />
610 PRINT<br />
6Z0 PRINT 'No. of Pump Cycles to Circulate from Bit to Surface<br />
630 PRINT ' To t a l M i n u t e s t o c i r c u l a t e f r o m Bit to Surface<br />
640<br />
650<br />
END<br />
6B0 D I S P ' f D I u p l . o r m r i p l . '<br />
670 K$=KEY$ @ IF NOT LEN(K$) THEN G70<br />
680 ON POS( 'DdTt',K$> + 1 GOTO 670,630,690,760,760<br />
690 INPUT '? No. of Cylinders: ',M<br />
700 INPUT '? Length of Stroke: '?N<br />
710 INPUT '? Liner Diameter: ' jO<br />
87.3.16<br />
Bit ■'iT<br />
= ';R1 @ PRINT<br />
= '!S<br />