Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0020/nwins.eng
There are 2 other files named nwins.eng in the archive. Click here to see a list.
100' NAME--N.W.INS
110'
120' DESCRIPTION--INSTRUCTIONS FOR USE OF THE NETWORK PROGRAM.
130'
140' SOURCE--SADEK EID AND PROF. BROWN, THAYER SCHOOL OF ENGINEERING
150'
160' INSTRUCTIONS--CONTINUE THE LISTING OF THIS PROGRAM
170'
180'
190' * * * * * * * MAIN PROGRAM * * * * * * * * * * *
200'
210
220
230 THIS PROGRAM SOLVES THE FLOW OF WATER THROUGH A NETWORK OF
240 PIPES BY THE "HARDY CROSS" METHOD.
250
260 IT CAN HANDLE UP TO 25 LOOPS EACH INCLUDES UP TO 25
270 PIPES, WITH A MAXIMUM OF 200 PIPES IN ALL THE
280 NETWORK ...... THESE CAN BE INCREASED BY
290 INCREASING THE DIMENSIONS IN THE PROGRAM IF NECESSARY.
300
310 GIVE NUMBERS TO YOUR LOOPS OF PIPES AND A NUMBER TO EACH PIPE.
320
330 YOUR DATA STARTS AT LINE NUMBER 10000
340
350 FIRST YOU FEED IN YOUR DATA FOR:
360 NUMBER OF LOOPS, TOLERANCE FOR THE CORRECTION FACTOR(DELTA).
370
380
390 AFTER THE NUMBER OF LOOPS AND THE CORRECTION FACTOR COME
400 YOUR DATA ABOUT THE DIFFERENT LOOPS. THE DATA FOR EACH LOOP
410 ARE GROUPED TOGETHER, I.E. THE DATA FOR ALL THE PIPES
420 IN THE FIRST LOOP ARE FED IN FIRST, THEN THE DATA FOR THE
430 SECOND LOOP , AND SO ON.
440
450
460 THE DATA FOR EACH LOOP ARE FED IN IN THE FOLLOWING ORDER:
470
480 IN THE FIRST LINE OF THE LOOPS' DATA FEED THE NUMBER OF PIPES
490 IN THE LOOP.
500
510 IN THE NEXT LINES AFTER THAT YOU FEED THE INFORMATION ABOUT
520 EACH PIPE IN THE FOLLOWING ORDER:
530
540 PP,L,D,C,Q
550
560 WHERE: PP = THE PIPE NUMBER
570 L = LENGTH OF THE PIPE IN FEET.
580 D = DIAMETER OF PIPE IN INCHES.
590 C = CONSTANT FOR THE PIPE FOR THE HAZEN WILLIAMS
600 EQUATION.
610 Q = THE PRELIMINARY ASSUMED FLOW IN THE PIPE
620 IN MGD.
630
640 REMEMBER TO INDICATE THE DIRECTION OF THE FLOW IN THE
650 PIPE W.R.T. THE LOOP BY GIVING THE SIGN TO "Q",
660 E.G. CLOCK WISE DIRECTION OF FLOW TAKES A
670 A POSITIVE SIGN AND ANTI CLOCK WISE TAKES A NEGATIVE
680 SIGN.
690
700
710
720 EXAMPLE:
730 --------
740
750 IF WE DENOTE:THE NUMBER OF LOOPS BY "M"
760 THE TOLERANCE FOR CORRECTION OF THE FLOW BY "T"
770 THE NUMBER OF PIPES IN THE LOOP BY "N"
780
790 THE DATA WILL BE WRITTEN AS FOLLOWS:
800
810 10000 DATA M,T
820
830 10100 DATA N ...
840 10200 DATA PP,L,D,C,Q 1ST PIPE .
850 10300 DATA PP,L,D,C,Q 2ND PIPE .
860 . .
870 . . DATA FOR
880 . . FIRST LOOP
890 . .
900 ***** DATA PP,L,D,C,Q NTH PIPE...
910
920 ***** DATA N ....
930 ***** DATA PP,L,D,C,Q 1ST PIPE . DATA FOR
940 ***** DATA PP,L,D,C,Q 2ND PIPE . NEXT LOOP
950 . .
960 . ....
970
980
990 ETC. FOR ALL THE LOOPS.
1000
1010 TYPE "RUN" NEXT AND THE PROBLEM WILL BE SOLVED FOR
1020 YOU IN SECONDS.....ISN'T THAT GREAT ?!
1030
1040
1100 END