CALCULO DE TUBERIAS

01 LBL “DPL”

02 0.01

03 STO

04 “Q = ? GPM

05 XEQ 01

06 “DEN. = ? LB/FT3”

07 XEQ 01

08 “VISC. = ? CP”

09 XEQ 01

10 “V. REC. = ? FT/S”

11 XEQ 01

12 15 E-5

13 STO 04

14 LBL 00

15 “d”

16 RCL 00

17 RCL 03

18 /

19 SQRT

20 .639

21 *

22 XEQ 02

23 “ IN”

24 AVIEW

25 STOP

26 LBL 03

27 “di ? IN”

28 PROMPT

29 STO 05

30 “RE”

31 RCL 02

32 *

33 1/X

34 50.6

35 *

36 RCL 00

37 *

38 RCL 01

39 *

40 STO 06

41 SCI 2

42 XEQ 02

43 STOP

44 “FF”

45 2000

46 X > Y ?

47 GTO 04

48 XEQ “FF”

49 GTO 05

50 LBL 04

51 64

52 RCL 06

53 /

54 LBL 05

55 FIX 5

56 STO 07

57 XEQ 02

58 STOP

59 “dP100” 60 RCL 01

61 *

62 .0259

63 *

64 RCL 00

65 X 2

66 *

67 RCL 05

68 5

69 Y X

70 STO 08

71 STO 08

72 FIX 2

73 TONE 3

74 XEQ 02

75 “ PSI”

76 AVIEW

77 STOP

78 “V”

79 .408

80 RCL 00

81 *

...