Det här verket har digitaliserats vid Göteborgs universitetsbibliotek och är fritt att använda. Alla tryckta texter är OCR-tolkade till maskinläsbar text. Det betyder att du kan söka och kopiera texten från dokumentet. Vissa äldre dokument med dåligt tryck kan vara svåra att OCR-tolka korrekt vilket medför att den OCR-tolkade texten kan innehålla fel och därför bör man visuellt jämföra med verkets bilder för att avgöra vad som är riktigt.
Th is work has been digitized at Gothenburg University Library and is free to use. All printed texts have been OCR-processed and converted to machine readable text. Th is means that you can search and copy text from the document. Some early printed books are hard to OCR-process correctly and the text may contain errors, so one should always visually compare it with the ima- ges to determine what is correct.
01234567891011121314151617181920212223242526272829 CM
Rapport R4:1973 Beräkning av ekonomisk rördimension — data
programmet EKODIM
Lars Räntilä & Lasse Sundberg
Byggforskningen
Beräkning av ekonomisk rördimension - dataprogrammet EKODIM
Lars Räntilä & Lasse Sundberg
I rapport R4:1973 redovisas ett data
program för beräkning av den dimension som för varje flöde ger den mest ekono
miska hastigheten i ett rörsystem.
Exempel på användningsområden är pumpvarmvattensystem, kylanläggning
ar o.d Om anläggningen ej är planerad i detalj kan programmet användas för att uppskatta det ekonomiska flödet vid olika förutsättningar.
Programmeringen har utförts i pro
gramspråket Fortran IV. Härigenom kan programmet användas för de flesta datorer med mycket få ändringar och tillägg.
I rapporten ingår användarbeskriv
ning, programmerarbeskrivning samt stans- och körinstruktion.
De beräkningar som utförs med hjälp av dataprogrammet grundas delvis på
”Ekonomisk dimensionering av pump
varmvattensystem för värmeanläggning
ar” av John Rydberg (Förlags AB VVS, Stockholm 1952).
På basis av anläggningskostnaden per meter färdigmonterat och isolerat rör, driftstider, elenergipris, verkningsgrad m.m. beräknas det flöde som för två närliggande dimensioner ger samma to
tala årskostnad för pumparbete och anläggningskapital. Varje dimension får på så sätt ett ekonomiskt flödesintervall.
Ett exempel på en ifylld blankett för in
gångsdata visas i FIG. 1.
Resultatet redovisas i FIG. 2. Först återges rubriken och de gemensamma
EKODIM
Beräkning av ekonomisk rördimension Datum 19 7l -M-20 Blad nr /
Namn ^
Text som önskas återgiven på utskriften (ifylls alltid):
Ml I M I I l8Wlal*i«lil»U iil I \2\t\
|o| loivkliv] MeH IrMdd fflZEH H
Texta med stora bokstäver. På utskriften återges texten på en rad.
3
kg/m3
V
m2/s E H
öre/kWh
hlAÉ M.loi H löHcWoklgl \o\Mc\oMqMi\s\ l IgLtel M.M^l
Per 1 Per 2 Per 3 Per 4 dygn dygn dygn dygn Data för varje dimension:
Inre Pris diameter
mm kr/m
rm rm
4 /) *>
<?fe O
zf i
2 7 X 1
4 5 1
<?
8
£ Tl 0
?£> s
* z 5 40? <
1 2f i
4 g t
ia0 Oj
07 t
- 1 O
O t z t ti 1 4 £5
X •ft (■
/ 4t 6 5 g yf
-3 yi 0
Avsluta tabellen med ett av följande talpar:
i i |i| —|q] i i id I ui "i Ny blankett följer med nya gemensam- I—1 111 « 1 1 I—I 1 111» 1 1 I ma data för samma dimensionsqrupp.
moi : |01 |o I I Ny blankett följer med ny
‘ ' J dimensionsgrupp.
Ny blankett följer ej.
Byggforskningen Sammanfattningar
R4:1973
Nyckelord:
rörsystem, dataprogram, ekonomisk di
mensionering
Denna rapport avser anslag D 614 från Statens råd för byggnadsforskning till Wahlings Installationsutveckling AB, Danderyd.
UDK 697.33 681.3.06 621.565 SfB A
(52), (56) ISBN 91-540-2104-9 Sammanfattning av:
Räntilä, F & Sundberg, L, 1973. Beräk
ning av ekonomisk rördimension — da
taprogrammet EKODIM. (Statens insti
tut för byggnadsforskning) Stockholm.
Rapport R4:1973, 31 s., ill. 14kr.
Rapporten är skriven på svenska med svensk och engelsk sammanfattning.
Distribution:
Svensk Byggtjänst
Box 1403, 111 84 Stockholm Telefon 08-24 28 60
Grupp: installation FIG. 1. Exempel på indata
data som angivits på blanketten för vall och motsvarande hastighets- och Il- ingångsdata. Därunder redovisas för värdesgränser, samt inmatat pris.
varje dimension ekonomiskt flödesinter-
E k u n i M sida i
BERÄKNING X INUMUUpLEON ING 260 DYGN MED FULL DRIFT BFRAKNI NGSOA TUM: 1971-04-29
A $ 15 T N 5 ! T F T Y T It t N t T KM. VISK. ELfRIS ETA DYGN MED FL DOFT
KG/M T M M2/6 DRE/KWH 1/1 2/3 1/3 O
9.‘5 2.0 977.3 O.uOOOGp D.00)00041 3 H.O 0.70 260 0 0 105
0 T /LM. FLÖDES INT C-RVA! L HAST I SH6T R-VXROE RORPR IS MM L/H Cl. LER -M3/H * M/S MM VO/M KR/M
M I MAX M I M MAX MIN MAX
12.5 4 78 1.08 143 30.00
16.0 4 78 715 0 • 6 o 0.9? 41 38 32.00
21.6 71 o 19 36 0.54 1.47 19 128 34.00
2 7.2 19 36 2506 0.93 1.20 40 65 41.00
3 5.9 2 506 4231 U • 69 1.18 16 43 46.00
41.8 42 3 1 8091 0.86 1.64 20 69 50.00
53.0 801 12385 1.02 1.56 21 47 66.00
70.3 12 3 3 5 19623 0.89 1.49 11 27 84.00 82.5 1962 3 329 3 1 1.02 1.71 12 32 96.00 10 7.1 329 3 1 56725 1.02 1. 75 9 25 128.00
n i. 7 56725 90794 i. 16 1.85 9 21 165.00 159.3 907 ?4 150*. 1.2 7 2.10 8 22 214.00
132.9 150* 19 7* 1.59 2.08 1 1 18 281.00
207.3 1 9 7* 1.62 9 349.00
FIG. 2. Exempel på resultatutskrift
UTGIVARE: STATENS INSTITUT FÖR BYGGNADSFORSKNING Rotobeckman Stockholm 1973
Calculation of the economical pipe
dimension - computer program EKODIM Lars Räntilä & Lasse Sundberg
National Swedish Building Research Summaries
R4:1973
Report No R4:1973 describes a compu
ter program for calculation of the di
mension which, for a certain flow, gives the most economical velocity in a pipe system. Examples of the fields of appli
cation of the program are pumped hot water systems, refrigeration installa
tions, etc. If the installation has not been planned in detail, the program can be used for an estimation of the economical flow for different conditions.
The program has been written in Fort
ran IV. As a result of this, the program can be used, with very few alterations and additions, for most computers.
The report includes information for users and programmers and instructions for punching and running.
The calculations which are performed with the aid of this computer program are partly based on ”Economic sizing of pumped hot water systems for central heating installations” by John Rydberg (Förlags AB VVS, Stockholm 1952).
The flow which gives the same total annual cost for pumping and installation capital for two adjacent dimensions is calculated on the basis of the installation cost per metre of fully mounted and in
sulated pipe, operating times, the cost of electrical energy, efficiency etc. An eco
nomical flow interval is obtained in this way for each dimension.
An example of a completed data sheet for input data is shown in FIG. 1.
An example of the printout is shown in
Key words:
pipe systems, computer program, econo
mical sizing
1 öre/kWh = 0.01 Sw.kr./kWh
This report has been supported by Grant D 614 from the Swedish Council for Building Research to Wahlings In- stallationsutveckling AB, Danderyd.
UDC 697.33 681.3.06 621.565 SfB A
(52), (56) ISBN 91-540-2104-9 Summary of :
Räntilä, L & Sundberg, L, 1973, Beräk
ning av ekonomisk rördimension — da
taprogrammet EKODIM. Calculation of the economical pipe dimension — computer program EKODIM. (Statens institut för byggnadsforskning) Stock
holm. Report R4:1973, 31 p., ill. 14 Sw.
Kr.
The report is in Swedish with Swedish and English summaries.
Distribution:
Svensk Byggtjänst
Box 1403, S-l 11 84 Stockholm Sweden
FIG. 1. Example of input data
FIG. 2. The heading and the common data which have been written on the input data sheet are reproduced first.
The printout then shows for each di
mension the economical flow interval and the corresponding velocity and R- value limits, and also the input price.
E K O D I M PAGE 1
CALCULATION 1 INDOOR PIPE 260 DAYS ON FULL OPERATION DATE OF CALCULATION: 1971-04-29
A S DENSITY SURFACE KIN.VISC. EL.TARIFF ETA DAYS WITH FLOW OF 2/3 1/3 0
0 0 105
DIA FLOW INTERVAL VELOCITY R-VALUE PIPE PRIC
MM L/H OR M3/H* M/S MM WG SW.KR/M
MIN MAX MIN MAX MIN MAX
12.5 478 1.08 143 30.00
16.0 478 715 0.66 0.99 41 88 32.00
21.6 715 1936 0.54 1.47 19 128 34.00 27.2 1936 2506 0.93 1.20 40 65 41.00 35.9 2506 4231 0.69 1.16 16 43 46.00 41.8 4231 8091 0.86 1.64 20 69 50.00 53.0 8091 12385 1.02 1.56 21 47 66.00 70.3 12385 19623 0.89 1.40 11 27 84.00 82.5 19623 32931 1.02 1.71 12 32 96.00 107.1 32931 56725 1.02 1.75 9 25 128.00 131.7 56725 90794 1.16 1.85 9 21 165.00 159.3 90794 150* 1.27 2.10 8 22 214.00 182.9 150 * 197* 1.59 2.08 11 18 281.00
207.3 197 * 1.62 9 349.00
%
9.5 2.0
KG/M3 ROUGHNESS M 977.8 0.000045
M2/S ÖRE/KWH 1/1
(0.01 SW.KR/KWH 0.000000413 8.0 0.70 260
FIG. 2. Example of printout
UTGIVARE: STATENS INSTITUT FÖR BYGGNADSFORSKNING Rotobeckman Stockholm 1973
Rapport r4:1973
BERÄKNING AV EKONOMISK RÖRDIMENSION - DATAPROGRAMMET EKODIM
CALCULATION OF THE ECONOMICAL PIPE DIMENSION - COMPUTER PROGRAM EKODIM
av Lars Räntilä & Lasse Sundberg
Denna rapport hänför sig till anslag D 6lk från Statens råd för byggnadsforskning till Wahlings Installationsutveckling AB, Danderyd.
Försäljningsintäkterna tillfaller fonden för byggnadsforskning.
Statens institut för byggnadsforskning, Stockholm ISBN 91-5^0-2104-9
Rotobeckman AB, Stockholm 1973
INNEHÅLL
Programpresentation ... 4
Del 1 Användarbeskrivning... 5
Del 2 Programme rarbeskrivning... 17
Del 3 Stans- och körinstruktion... 27
PROGRAMPRESENTATION
4
Programnamn: EKODIM
Beskrivning: Programmet beräknar det ekonomiska flödes- intervallet för valfria rördimensioner.
Sökord: Rörsystem, dataprogram, ekonomisk dimensionering.
Programspråk : Fortran IV
Maskinkrav:
(i Bytes)
Totalt med kompilatorns
biblioteksrutiner: 32 K
varav:
Programdelen 8 K
Framtaget av: Wahlings Installationsutveckling AB Box 1, 182 11 Danderyd 1
Programmet till
gängligt från den: 1 september 1971
DEL 1 ANVÄNDARBESKRIVNING INFORMATION FOR USERS PART 1
INNEHÅLL - ANVÄNDARBESKRIVNING
6
INTRODUKTION ... 7
ANVÄNDNING ... 7
BERÄKNINGSMETOD ... 7
INGÅNGSDATA... 7
Allmänna anvisningar ... Text... Gemensamma data för en dimensions grupp Data för varje dimension ... EXEMPEL... 9
Ingångsdata ... 9
Resultat ... 9
BILAGOR: 1:1 Ingångsdata... 10
1:2 Resultat... 13
03COCD03
INTRODUKTION
Programmet beräknar en undre och en övre gräns för det ekonomis
ka flödet i ett rör för ett godtyckligt medium med hänsyn till pumparbete, anläggningskostnad för röret, ränta m m.
ANVÄNDNING
Programmet används för att i ett rörsystem för varje flöde be
stämma den dimension som ger den mest ekonomiska hastigheten.
Exempel på användningsområden är pumpvarmvattensystem, kylan
läggningar o d. Om anläggningen ej är planerad i detalj kan pro
grammet användas för att uppskatta det ekonomiska flödet vid olika förutsättningar.
BERÄKNINGSMETOD
Beräkningen grundas delvis på "Ekonomisk dimensionering av pump
varmvattensystem för värmeanläggningar" av John Rydberg (Förlags AB WS, Stockholm 1952). Samma förutsättningar gäller som där
redovisas på sida 6, förutom anläggningskostnaden per meter fär
digmonter ad och isolerad rörledning, vilken ges till programmet som ingångsdata för varje dimension.
På basis av anläggningskostnaden per meter färdigmonterat och isolerat rör, driftstider, elenergipris, verkningsgrad m m be
räknas det flöde som för två närliggande dimensioner ger samma totala årskostnad för pumparbete och anläggningskapital. Härvid ansätts ett flöde och programmet passningsräknar tills villkoret är uppfyllt med en viss tolerans.
Varje dimension får på så sätt ett ekonomiskt flödesintervall.
Eftersom jämförelsen sker parvis, får den minsta dimensionen ej ett minimiflöde och den största dimensionen ej ett maximiflöde.
Di mensionsurvalet bör därför även omfatta gränsdimensioner.
INGÅNGSDATA
Ingångsdata beskrivs på enbart en blankettyp, BIL.1:1. Flera blanketter får förekomma vid samma beräkningstillfälle.
Allmänna anvisningar 8 Blanketterna är försedda med rutor, och ett tecken skrivs i var
je ruta. Genomgående stora bokstäver används.
I sifferkolumner uppfattas blanka rutor som noll. Av denna an
ledning skall heltal skrivas högerjusterade, dvs. med sista siffran längst till höger i avsedda rutor.
Ex: talet 5 skrivs Om 5 skrivs 5[ uppfattas det som 50 vid beräkningarna. För decimaltal gäller genomgående att deci- malkomma ersätts med decimalpunkt. På blanketterna har punkten ifyllts. Även här uppfattas blanka rutor som noll.
Ex: decimaltalet 10,25 skrivs 10 ■ll-
Text
Texten är valfri. Max 60 tecken får användas. Den återges på en rad på resultatutskriften. Någon text bör alltid finnas.
Gemensamma data för en dimensionsgrupp Samtliga uppgifter skall ifyllas:
a = kostnad för underhåll samt ränta och amortering i % av anläggningskostnaden.
S = en uppskattning av kvoten mellan totala rörmotståndet och friktionsmotståndet.
p = mediets densitet, kg/m3 e = rörledningens råhetstal, m
v = mediets kinematiska viskositet, m^/s E = energipris, öre/kWh
n = motorns och pumpens totala verkningsgrad Per 1 = antal dygn per ar med fullt flöde0
Per 2 = !! 1T II IT TT
2/3 TT Per 3 = It II II TT TT 1/3 IT Per 4 = II tt TT TT TT utan TT
De fyra sista storheterna skall tillsammans bli 365. Dessa vär
den ifylls med sista siffran längst till höger i resp rutfält.
Data för varje dimension
Varje dimension upptar en rad. Maximalt 24 dimensioner kan anges.
Inre diameter, mm. Värdena anges i stigande följd.
Pris, kr/m. Detta pris avser totalkostnad för montering, material, böjar, isolering mm.
Slutbeteckningar:
a. Om man önskar beräkna för andra förutsättningar genom att ändra gemensamma data för den aktuella dimensionsgruppen men låta data för varje dimension vara oförändrade, ifylls -1.0 i kolumnen för diametern och dessutom -1.0 i priskolumnen.
På nästa blankett ifylls textraden och nya gemensamma data.
Dessutom ifylls någon av de här beskrivna slutbeteckningarna.
b. Om en helt ny blankett skall följa med nya data, både gemen
samma data och dimensionsuppgifter, ifylls värdet -1.0 i ko
lumnen för diametern och 0.0 i priskolumnen.
c. På sista blanketten ifylls 0.0 i båda kolumnerna. Detta indi- kerar att beräkningarna skall avslutas.
EXEMPEL
Ingångsdata
Som exempel väljs att beräkna ekonomiska flöden för dels en inom- husledning dels en kulvertledning. Inomhusledningen beräknas dess
utom för olika driftfall.
Blanketterna i BIL.1:1 har ifyllts med erforderliga uppgifter för dessa fall.
Resultat
Datautskriften redovisas i BIL. 1:2. Först återges rubriken och de gemensamma data som angivits. Dessa värden bör noga kontrol
leras så att ej stansfel e d har förorsakat felaktiga förutsätt
ningar. Därunder redovisas för varje dimension ekonomiskt flö
des intervall och motsvarande hastighets- och R-värdesgränser, samt inmatat pris.
BILAGA 1 :1 10
EKODIM Arb.nr - -
Beräkning av ekonomisk rördimension Datum 19 7f -Of - Zö Blad nr /
ld-nummer: Namn ^y
Text som önskas återgiven på utskriften (ifylls alltid):
3 11
8|éI* Gi» y V i N G> il / W <5 H U£L E\D N i » b Z 6
41
o D y é> N B D f U L L D 1 F T
Texta med stora bokstäver. På utskriften återges texten på en rad.
a S
%
3 S
kg/m3 m
V
m2/s
E a
öre/kWh
°) .5 1
12 19 28 40 45
0 *?<2
Data för varje dimension:
Inre Pris diameter
mm kr/m
3 9
Per 1 dygn
Per 2 dygn
Per 3 dygn
Per 4 dygn
50 54 58 62
U0 5
Avsluta tabellen med ett av följande talpar:
— 1 • 0 Ny blankett följer med nya gemensam
ma data för samma dimensionsgrupp.
0 Ny blankett följer med ny dimensionsgrupp.
0 0 Ny blankett följer ej.
BILAGA 1:1(forts) 11
EKO DIM Arb.nr - -
Beräkning av ekonomisk rördimension Datum 19 7f -O^-Zö
Blad nr 2
ld-nummer: Namn ^
Text som önskas återgiven på utskriften (ifylls alltid):
3 11
i k/6, anp/h UtÏ DlJ ik'6 10
41
O 11\ \ 1_L Mlo_ f 6 A/ ill5 ]l>2 'f T
Texta med stora bokstäver. På utskriften återges texten på en rad.
a
%
S 5 s
kg/m3 m
V
m2/s
E a
öre/kWh
Data för varje dimension:
Inre Pris diameter
mm kr/m
3 9
Per 1 dygn
50
\00
Per 2 dygn
54
Per 3 Per 4 dygn dygn
58 62
Mlo \8\5\
Avsluta tabellen med ett av följande talpar:
1 0 — 1 • 0
1 0 0 0
0 0 0
• 0
Ny blankett följer med nya gemensam
ma data för samma dimensionsgrupp.
Ny blankett följer med ny dimensionsgrupp.
Ny blankett följer ej.
BILAGA 1 ; i (forts) 12
EKODIM Arb.nr - -
Beräkning av ekonomisk rördimension Datum 19 TI -0*f —ZO Blad nr 3
ld-nummer: Namn /..
Text som önskas återgiven på utskriften (ifylls alltid):
3 11
%£1? Ä Är a; [3 ( u - Vi?£7kl■Dt\i ÙnL
41
Texta med stora bokstäver. På utskriften återges texten på en rad.
a
%
s 3 S
kg/m3 m
V m2/s
E a
öre/kWh
3 8 12
9 5 1, 5 KS
19 28
c.t?0< i 5 O Ot•>o<?ÖC 1s
45
o ? 0
Data för varje dimension:
Inre Pris diameter
mm kr/m
3 9
Per 1 dygn
50
mloi
Per 2 dygn
54
Per 3 Per 4 dygn dygn
58 62
to5
Avsluta tabellen med ett av följande talpar:
— 1 • 0 Ny blankett följer med nya gemensam
ma data för samma dimensionsgrupp.
[oI
0 Ny blankett följer med ny dimensionsgrupp.
0 0 Ny blankett följer ej.
BILAGA ti 2 13
E K 0 D I M SIDA I
BERÄKNING 1 INUMHUSLEDNING 260 DYGN MED FULL DRIFT BERÄKNINGSDATUM: 1971-06-29
A S DENSITFT YTJUHET KIN. VISK. ELPRIS ETA DYGN MED FLÖDET
% KG/M 3 M M2/S ÖRE/KWH 1/1 2/3 1/3 0
9.5 2.0 977.3 0.000043 0.000000413 8.0 0.70 260 0 0 105
DT AM. FLÖDES INTERVALL HASTIGHET R-VÄRDE RÖRPR IS
MM L/H ELLER M3/H* M/S MM VP/M KR/M
M I N MAX MIN MAX MIN MAX
12.5 478 1.08 143 30.00
16.0 4 78 715 0.66 0.99 41 88 32.00
21.6 715 1936 0.54 1.47 19 128 34.00
27.2 1936 2506 0.93 1.20 40 65 41.00
35.9 2506 4231 0.69 1. L6 16 43 46.00
41.8 42 31 8091 0.86 1.64 20 69 50.00
53.0 8 C 91 12385 1.02 1.56 21 47 66.00
70.3 12 335 19623 0.89 1.40 11 27 84.00
82.5 19623 32931 1.02 1.71 12 32 96.00
10 7. 1 32931 56725 1.02 1.75 9 25 128.00 13 1.7 567 2 5 90794 1.16 1.85 9 21 165.00
159.3 90 714 150* 1.27 2.10 8 22 214.00
132.9 150* 197* L . 59 2.03 11 18 281.00
207.3 1 97* 1.62 9 349.00
E K 0 0 I H
BILAGA 1;2 (forts) 14 SIDA 2 BERÄKNING 2 INQMHUSLEDNING 100 DYGN 1/1, 180 DYGN 1/3 DRIFT BERÄKNINGSDATUM: 1971-04-29
A S DENSITET YTRÅHET KIN. VISK. ELPRIS ETA DYGN MED FLÖDET
% KG/M 3 M M2/S ÖRE/KWH 1/1 2/3 1/3 0
9.5 2.0 977.8 0.000045 0.000000413 8.0 0.70 100
DIAM. FLöDESINTERVALL HASTIGHET R-VÄRDE RÖRPRIS MM L/H ELLER M3/H* M/S MM '/P/M KR/M
MIN MAX MIN MAX MIN MAX
12.5 622 1.41 238 30.00
16.0 62 2 931 0.86 1.29 67 146 32.00 2 1.6 931 2517 0.71 1.91 32 213 34.00 27.2 2517 32 61 1.20 1.56 65 107 41.00 35.9 3261 5506 0.89 1.51 26 71 46.00 41.8 5506 10515 1. 1 1 2. 13 33 115 50.00 53.0 10515 16099 1.32 2.03 34 78 66.00 70.3 16099 25513 1.15 1.8 3 18 45 84.00 82.5 25513 42789 1.33 2.22 20 54 96.00 107. 1 42789 73691 1.32 2.27 14 41 128.00 131.7 73691 118* 1.50 2.40 14 35 165.00 1 59.3 1 1 8* 19 5* 1.64 2.72 13 36 214.00 182.9 19 5* 2 55* 2.07 2.70 18 30 281.00
207.3 255* 2.10 16 349.00
0 180 85
BILAGA 1:2 (forts) 15
F K 0 0 1 M SIDA 3
BERÄKNING 3 KULVERTLEDNING BERÄKNINGSCATUM: 1971-04-29
A S DENSITET YTRÅHET KIN. VISK. ELPRIS ETA
% KG/M 3 M M2/S ÖRE/KWH
9.5 1.5 977.8 0.000045 0.000000413 co • O 0.70
DIAM. FLÖDESINTERVALL HASTIGHET R-VÄRDE RÖRPRIS
MM L/H ELLER M3/H* M/S MM '/P/M KR/M
MIN MAX M IN MAX MIN MAX
159.3 13 3* 1.86 17 149.00
182.9 133* 178* 1.41 1.88 8 15 184.00
207.3 178* 215* 1.47 1.77 8 11 222.00
231.9 215* 250* 1.41 1.64 6 9 254.00
260.4 250* 4 07* 1.30 2.12 5 12 283.00
309.7 407* 577* 1.50 2. 13 5 10 372.00
339.6 577* 73 5* 1.77 2.26 6 10 438.00
388.8 735* 1.72 5 550.00
DYGN MED FLÖDET I/l 2/3 1/3 0 260 0 0 105
■
DEL 2 PROGRAMMERARBESKRIVNING PART 2 INFORMATION FOR PROGRAMMER
INNEHÅLL - PROGRAMMERARBESKRIVNING
18
PROBLEMBESKRIVNING ... 19
Matematiska villkor... 19
Beräkning av friktionsfaktorn ... 21
PROGRAMBESKRIVNING...22
BILAGOR: 2:1 Subrutinlista...23
2:2 Kärnminnesdisposition ... 23
2:3 Programstruktur... 23
2:4 Korsreferenslista ... 23
2:5 Blockschema...24
2:6 Variabellista...25
2:7 Indatavariabler...26
PROBLEMBESKRIVNING
Matematiska villkor
De kostnader som är förknippade med transport i rörledningar är av två slag. Dels en årlig kostnad för ränta, amortering och un
derhåll av ledningar och pump, dels en kostnad för pumparbetet.
Dessa kostnader beskrivs i FIG.2:1 scm funktion av flödet i ett visst rör. Som framgår av figurerna har kurvan ett minimum för ett visst flöde, det ekonomiska flödet.
I praktiken har man att välja mellan ett antal standarddimensio
ner för rörledningen och måste då göra avsteg från det ekonomis
ka flödet.
FIG.2:2 belyser hur valet av dimension går tillväga. I den redo
visas ett antal kostnadskurvor för olika dimensioner. Dimensions valet bör göras så att man för varje skärningspunkt byter dimen
sion. Programmet söker det flöde som ger samma totalkostnad för två närliggande dimensioner, dvs. skärningspunkterna i figuren.
Kostnaden för ränta, amortering och underhåll beskrivs av följan de ekvation:
Kk = r-P(d)*0,01
P(d)
= den nämnda kostnaden, kronor/(år-m)
= inmatat värde på annuitet, %/kr
= inmatat totalt pris för viss dimension, kr/m.
Kostnaden för pumparbete är:
K = (s-X(Q,d)-p-v2- Q-U‘E)/(d-n)*c P
där K P s X(Q,d) P
v Q
u
E
d
n
c
= den nämnda kostnaden, kr/(l/h)
= förhållandet mellan totalt rörmotstånd och frik- tionsmotstånd
= friktionsfaktorn, som beror av Q och d
= densitet, kg/m^
= hastigheten, dvs. konst*Q/d , m/s
= flödet, l/h
= antal ekvivalenta fullastdygn, dvs.
N1+4-N2/9+N3/9, dygn/år där N^, Ng, N^ är antalet dygn med 1/1, 2/3, 1/3 flöde resp m/s
= elenergipris, öre/kWh
= rörets innerdiameter, m
= total verkningsgrad för motor och pump
= sortomvandlingskonstant.
Kostnad kr/(m/h)
FIG. 2:1
Kostnad kr/(m/h)
FIG. 2:2
Flöde
Kurva A = kostnad för ränta, amortering och underhåll Kurva B = kostnad för pumparbete
Kurva C = total kostnad
Curve A = interest, mortgage payments and maintenance Curve B = cost of work on pumps
Curve C = total cost
Rördiameter
Flöde Total kostnad för olika dimensioner
Total cost for different dimensions
Den totala kostnaden kan således skrivas K = c1-(Q3-l(Q,d)/d5)+c2-P(d)
där och c2 är konstanta för helt beräkningsfall.
Målsättningen är att för två givna värden på d och P(d) finna ett Q sådant att K blir lika för bägge, dvs.
c1-(Q3-A(Q,d1)/dl5) + c2-P(d1) = Cl-(Q3-A(Q,d2)/d25) + c2-P(d2)
O o
Om Q löses ut fås
Q3 = (c2/c1)-(P(d2)-P(d1))/(A(Q,dl)/d15-A(Q,d2)/d25)
Ekvationen löses iterativt för varje konsekutivt par d^,d2<
Beräkning av friktionsfaktorn
Friktionsfaktorn A är en funktion av Reynolds' tal Re och den inre rörväggens relativa råhet e/d , där e är medelhöjden hos ojämnheterna.
Re = (vd^)/v
där v = hastigheten för mediet, m/s v = kinematiska viskositeten, m/s 2 d^ = hydrauliska diametern, m
För Re <_ 2320 (laminär strömning) gäller
A^ = 64/Re
För 2320 < Re <3500 (kritiska zonen) gäller ett vägt medel
värde :
Af = (Al (3500-Re)+AT(Re-2320))/(3500-2320)
där A = friktionsfaktorn vid gränsen mellan laminär strömning och kritiska zonen
= 64/2320.
A = friktionsfaktorn inom övergångszonen, löses med iterering enligt nedan.
För Re > 3500 gäller
l/\^ = -2- 10log (e/(3,71*dh)+2,51/(Re.V^))
PROGRAMBESKRIVNING
Programmet Består av ett MAIN och en subrutin för beräkning av friktionsfaktorn.
Efter inläsning och kontroll av indata startar iterationsberäk- ningen med D0-loop 100. Därefter skrivs resultatet ut.
Felmeddelanden skrivs ut i klartext från inbyggda kontroller.
Programmet är skrivet i Basic Fortran med tillägg av DATA-sats.
Undantag utgör subrutinen LAMBDA, vilken är skriven i Full Fortran. Den kan utan större svårigheter ändras till Basic Fortran om så skulle behövas.
BILAGA 2:1, 2:2, 2:3, 2:4 23
för program EKODIM
Beräkning av friktionskoefficient.
Utskrift av ev. felmeddelande från kontroller.
Inläsning, beräkning och utskrift av resultat
och ev. felmeddelande från kontroller.
för program EKODIM
KABNMINNESDISPOSITION
för program EKODIM
Fortrankomp il atoms biblioteksrutinér
MAIN
LAMBDA
Diagrammet är upprättat för
IBM 360/75
4K feytes
8K bytes
. . I6K bytes
24k bytes
28K bytes
KORSREFERENSUSTA FÖR SUBRUTINER OCH COMMONBLOCK
för program EKODIM
subrutin
Anropande subrutin
LAMBDA IMAIN
LAMBDA X
MAIN
DATE X
(maskinkod)
BILAGA 2:5 24
BLOCKSCHEMA
för program EKODIM Subrutin LAMBDA
Beräkning av Reynolds'
Beräkning av friktions- koefficient för laminär strömning.
Uthopp ur rutinen,
Initiering av start- värde för beräkning av
Initiering av start
värde för beräkning
Iterativ beräkning av friktionskoefficient.
BILAGA 2:5 (forts)
BLOCKSCHEMA
för program EKODIM Subrutin LAMBDA
Alla iterationsvarv utan konvergens?
Utskrift av felmedde
lande.
Beräkning av vägt medelvärde av friktions^
koefficienten för 2320 < Re < 3500.
Boräkning av R-värde.
Uthopp ur rutinen.
BILAGA 2:5 (forts)
BLOCKSCHEMA
för program EKODIM Subrutin MAIN
Sida 3
Start.
Inläsning, kontroll, be
räkning, resultatutskrift
Anrop av DATE för datum
uppgift.
inläsning och utskrift av rubrik.
Inläsning och utskrift av gemensamma data.
Kontroll av eventuell felutskrift.
Inläsning av diameter och prisuppgift.
Fler diametrar i detta beräkningsfall?
Initiering av frik- tionsfaktorn.
BILAGA 2:5, (forts)
BLOCKSCHEMA
Sida 4 för program EKODIM Subrutin MAIN
Beräkning av ekonomiska flödesgränser baserade på de senaste friktionsfak- torerna.
Beräkning av motsvarande hastighetsgränser.
Beräkning av motsvarande friktionsfaktorer genom anrop av LAMBDA.
Xr skillndaden mellan de senast beräknade och de förut beräknade flödes- gränserna för stor?
Utskrift av resultat.
Finns det fler beräknings
fall i denna omgång?
Stopp.
BILAGA 2:6 25
VARIABELLISTA
för program EKODIM
Variabellistan omfattar dels alla variabler i MAIN
dels variablerna i anropslistan till subrutinen LAMBDA
BILAGA 2:6 (forts)
VARIABELLISTA
för program EKODIM
Programdel: MAIN
Variabler med namn på I - N är integer, övriga real.
Betydelse
C(30) Reserverad för ev. tillägg.
C1 Hopslaget värde av inlästa konstanter.
D(30) Lagrar inlästa diametrar (mm).
DIAM Inläst diameter (mm).
DIVI Arean för viss dimension.
DI Lokalt värde på diameter (m).
E Inläst energipris (öre/kWh).
EPS Inläst ytråhet (m).
ETA Inläst verkningsgrad.
ETT Konstant = 1.
FLAMAX(30) Friktionsfaktor för övre gränsflödet för
varje dimension.
FLAMIN(30) Friktionsfaktor för undre gränsflödet för varje dimension.
GAM Inläst densitet (kg/d)
HMAX(30) Hastigheten för övre gränsflödet för varje
dimension.
HMIN(30) Hastigheten för undre gränsflödet för varje
dimension.
IDAG Ger aktuell dag vid anrop av DATE.
IDAG1 Första siffran i IDAG.
IDAG2 Andra siffran i IDAG.
IDAT Används ej. Krävs vid anrop av DATE.
VARIABELLISTA
för program EKODIM
BILAGA 2:6 (forts)
Betydelse
IFL0(30) Heltalsvärde av VNU().
IN Logiskt nummer för inläsning * 5-
IPRO Reserverad för ev. tillägg.
IRMAX(30) Heltalsvärde av RMAXO.
IRMIN(30) Heltalsvärde av RMINÜ.
ITER Max antal iterationsvarv = 50.
IÜT Logiskt nummer för skrivning = 6. IYEAR Ger aktuellt år vid anrop av DATE.
J Antal iterationer i LAMBDA.
K Antal inlästa dimensioner.
K1 Antal inlästa dimensioner minus 1.
L Räknare.
LINE Radräknare vid utskrift.
M Räknare.
MARK(30) För markering av eller ej vid utskrift av flöde.
MAXDIM Max antal dimensioner = 30.
MAXRAD Antal rader per sida = 60.
MONTH Ger aktuell månad vid anrop av DATE.
M0NTH1 Första siffran i MONTH.
M0NTH2 Andra siffran i MONTH.
N Räknare.
NFEL Kod som anger om fel uppstått i LAMBDA.
NSID Sidräknare för utskrift.
NSTAR Lagrar tecknet
NSUM Totalt antal inlästa dygn.
Variabel Betydelse
VARIABELLISTA
för program EKODIM
LAGA ?-.f, Cfn-rf.a)
Slfla 4
NTITL(17)
NTOM
N1
N2
N3
N4
P(30)
PRIS
PRISET(30)
RMAX(30)
RMIN(30)
VNYSS(30) VNU(30)
VNY
V3(30)
Inläst rubrik.
Lagrar tecknet blank.
Inläst antal dygn i Per 1.
Inläst antal dygn i Per 2.
Inläst antal dygn i Per 3-
Inläst antal dygn i Per 4.
Lagrar inlästa prisuppgifter (öre/m).
Inläst prisuppgift (kr/m).
Lagrar prisuppgifter (kr/m).
Inläst annuitet (#/år).
Reynolds' tal.
R-värde för övre gränsflödet för varje dimension.
R-värde för undre gränsflödet för varje dimension.
Inläst värde på förhållandet mellan totalt rör-
motstånd och friktionsmotstånd.
Relativ tolerans för test vid iteration = 0.0001
d v 8 max 0,01 % fel i något flöde.
Antal fullastdygn.
Gränsflödet efter förra iterationen.
Gränsflödet efter senaste iterationen.
Inläst kinematisk viskositet (d/e).
Tredje potens av gränsflödet under iterationen.
VARIABELLISTA
för program EKODIM
Programdel: anropslista för subrutin LAMBDA
Variabler med namn på I - N är integer, övriga real.
Variabel Parameter i
anropslistan Betydelse
DHYD 1
EPSILN I
FLAMBD 0
GAMMA I
HAST1 I
IÜT I
J O
LINE I/O
NFEL 0
R 0
RE 0
VNY I
Hydraulisk diameter.
Råhetstal för rörvägg.
Friktionskoefficient.
Densitet.
Mediets hastighet.
Logiskt nummer för skrivning.
Antal iterationsvarv.
Radräknare vid utskrift.
Kod som anger om fel uppstått.
R-värde.
Reynolds' tal.
Kinematisk viskositet.
BILAGA 2:6 (forts.), 2:7 26
EKODIM Arb.nr - -
Beräkning av ekonomisk rördimension Datum 19 — — Blad nr
ld-nummer: Namn
Text som önskas återgiven på utskriften (ifylls alltid):
ii min ” MIMI TTTTT
II II II II I I II
i....I. .J NTITld) -
MIMI NTITL(17) Texta med stora bokstäver. På utskriften återges texten på en rad.
3 kg/m3
E fl öre/kWh
rrni im Z] crn HD [HD ŒDI
Data för varje dimension:
Inre Pris diameter
mm kr/m
VNY E ETA
Per 1 Per 2 Per 3 Per 4 dygn dygn dygn dygn
□U QU ŒD ŒD
N1 N2 N3 n4
mn 1JU.1J..1...
DIAM PRIS
Avsluta tabellen med ett av följande talpar:
HTj—fo| I—I Llil Inl I Ny blankett följer med nya gemensam-
’1 ‘ ' '—L.li ..U1 1.1 ma data för samma dimensionsgrupp.
U1| lOl I I I loi |0| I NV blankett följer med ny n 1,1 ' 1 1 1 ri,‘ 1 1 dimçnsion sgrupp.
|o| Jo| I I I )01 Jo I I Ny blankett följer ej.
DEL 3 STMS- OCH KÖRINSTRUKTION
PART 3 INSTRUCTIONS FOR PUNCHING MD RUNNING
INNEHÅLL - STANS- OCH KÖRINSTRUKTION
28
ALLMÄNT... 29
STANSNING... 29
KÖRNING... 29
BILAGOR: 3: 1 Blankett för ingångsdata... 30
3:2 Styrkort för IBM S/360 mod 75... 31
ALLMÄNT
Denna instruktion omfattar stansningsbeskrivning och körinstruk- tion för stansning av hålkort och körning med hålkort som inmat - ningsmedium. Även stansning av hålremsa för körning över termi
nal behandlas.
STANSNING
För ingångsdata finns endast en blankettyp (BIL.3:1).
Första kortet omfattar rubrik och stansas i kolumnerna 3 - 70.
Andra kortet omfattar gemensamma data. Samtliga 11 fält skall vara ifyllda.
Dessa båda kort måste ingå i varje beräkningsomgång. Dessutom tillkommer minst ett och högst 25 kort med uppgift om diameter och pris, dvs. två fält på varje kort. Endast ifyllda rader stansas. De tre exemplen på avslutningskoder som finns nere till höger på blanketten är enbart avsedda som upplysning åt den som fyller i blanketten och stansas således ej.
Vid stansning av hålremsa tillses att rätt antal blanka stansas mellan fälten så att talen kommer i rätt kolumner.
KÖRNING
Styrkort för körning med IBM S/360 mod. 75 redovisas i BIL.3:2.
Härvid har förutsatts att programmet finns lagrat på skivminne i form av länkade objektmoduler.
Obegränsat antal jobb kan placeras i följd i en körning.
Programmet har en inbyggd radräknare som ombesörjer sidbyte. För att den skall arbeta tillfredsställande krävs att variabeln MAXRAD tilldelas ett värde lika med antalet tillgängliga skrivrader per
sida. Den har som standard värdet 60. Vid körning över terminal bör den ges värdet 69.
Vissa fel i ingångsdata upptäcks av programmet och redovisas i form av felmeddelanden i klartext, med vars hjälp den som fyllt i blanketterna kan göra erforderliga ändringar av ingångsdata.
BILAGA 3:1 30
EK0D1M Arb.nr - -
Beräkning av ekonomisk rördimension Datum 19 - - Blad nr
ld-nummer: Namn
Text som önskas återgiven på utskriften (ifylls alltid):
3 11
Il II I i il il
Il l l l M h I M i
41
Texta med stora bokstäver. På utskriften återges texten på en rad.
a s 3 S V E fl
% kg/m3 m m2/s öre/kWh
3 8 12 19 28 40 45
JU __ __ __ __ LsJ__ __ L±J --- ---- ---- —Lî-J--- 1---- --- --- --- --- La-
Data för varje dimension:
Inre Pris diameter
mm kr/m
3 9
Per 1 dygn
50
Per 2 dygn
54
Per 3 dygn
58
Per 4 dygn
62
Avsluta tabellen med ett av följande talpar:
Ny blankett följer med nya gemensam
ma data för samma dimensionsgrupp.
Ny blankett följer med ny dimensionsgrupp.
Ny blankett följer ej.
