help break down this large procedure into sub procedure

[lugo]

Private Sub Command1_Click()

Dim Thin As Single, Th12 As Single, Th13 As Single, Th14 As Single, Th15 As Single
Dim Th16 As Single, Th17 As Single, Th18 As Single, Th19 As Single, Th110 As Single

Dim Tcin As Single, Tc21 As Single, Tc22 As Single, Tc23 As Single, Tc24 As Single, Tc25 As Single
Dim Tc26 As Single, Tc27 As Single, Tc28 As Single, Tc29 As Single
Dim Th32 As Single, Th33 As Single, Th34 As Single, Th35 As Single, Th36 As Single
Dim Th37 As Single, Th38 As Single, Th39 As Single, Th310 As Single

Dim Tc41 As Single, Tc42 As Single, Tc43 As Single, Tc44 As Single, Tc45 As Single
Dim Tc46 As Single, Tc47 As Single, Tc48 As Single, Tc49 As Single

Dim Th52 As Single, Th53 As Single, Th54 As Single, Th55 As Single, Th56 As Single
Dim Th57 As Single, Th58 As Single, Th59 As Single, Th510 As Single

Dim Tc61 As Single, Tc62 As Single, Tc63 As Single, Tc64 As Single, Tc65 As Single
Dim Tc66 As Single, Tc67 As Single, Tc68 As Single, Tc69 As Single

Dim Th72 As Single, Th73 As Single, Th74 As Single, Th75 As Single, Th76 As Single
Dim Th77 As Single, Th78 As Single, Th79 As Single, Th710 As Single

Dim Tc81 As Single, Tc82 As Single, Tc83 As Single, Tc84 As Single, Tc85 As Single
Dim Tc86 As Single, Tc87 As Single, Tc88 As Single, Tc89 As Single

Dim Th92 As Single, Th93 As Single, Th94 As Single, Th95 As Single, Th96 As Single
Dim Th97 As Single, Th98 As Single, Th99 As Single, Th910 As Single

Dim Tc101 As Single, Tc102 As Single, Tc103 As Single, Tc104 As Single, Tc105 As Single
Dim Tc106 As Single, Tc107 As Single, Tc108 As Single, Tc109 As Single

Dim Th111 As Single, Tc210 As Single, Th311 As Single, Tc410 As Single, Th511 As Single
Dim Tc610 As Single, Th711 As Single, Tc810 As Single, Th911 As Single, Tc1010 As Single

Dim Th121 As Single, Th131 As Single, Th141 As Single, Th151 As Single
Dim Th161 As Single, Th171 As Single, Th181 As Single, Th191 As Single, Th1101 As Single

Dim Tc211 As Single, Tc221 As Single, Tc231 As Single, Tc241 As Single, Tc251 As Single
Dim Tc261 As Single, Tc271 As Single, Tc281 As Single, Tc291 As Single

Dim Th321 As Single, Th331 As Single, Th341 As Single, Th351 As Single, Th361 As Single
Dim Th371 As Single, Th381 As Single, Th391 As Single, Th3101 As Single

Dim Tc411 As Single, Tc421 As Single, Tc431 As Single, Tc441 As Single, Tc451 As Single
Dim Tc461 As Single, Tc471 As Single, Tc481 As Single, Tc491 As Single

Dim Th521 As Single, Th531 As Single, Th541 As Single, Th551 As Single, Th561 As Single
Dim Th571 As Single, Th581 As Single, Th591 As Single, Th5101 As Single

Dim Tc611 As Single, Tc621 As Single, Tc631 As Single, Tc641 As Single, Tc651 As Single
Dim Tc661 As Single, Tc671 As Single, Tc681 As Single, Tc691 As Single

Dim Th721 As Single, Th731 As Single, Th741 As Single, Th751 As Single, Th761 As Single
Dim Th771 As Single, Th781 As Single, Th791 As Single, Th7101 As Single

Dim Tc811 As Single, Tc821 As Single, Tc831 As Single, Tc841 As Single, Tc851 As Single
Dim Tc861 As Single, Tc871 As Single, Tc881 As Single, Tc891 As Single

Dim Th921 As Single, Th931 As Single, Th941 As Single, Th951 As Single, Th961 As Single
Dim Th971 As Single, Th981 As Single, Th991 As Single, Th9101 As Single

Dim Tc1011 As Single, Tc1021 As Single, Tc1031 As Single, Tc1041 As Single, Tc1051 As Single
Dim Tc1061 As Single, Tc1071 As Single, Tc1081 As Single, Tc1091 As Single

Dim Th1111 As Single, Tc2101 As Single, Th3111 As Single, Tc4101 As Single, Th5111 As Single
Dim Tc6101 As Single, Th7111 As Single, Tc8101 As Single, Th9111 As Single, Tc10101 As Single

Dim A As Single, B As Single, E As Single, F As Single, v As Single, w As Single
Dim q As Single, r As Single


Dim mh As Single, mc As Single, chp As Single, ccp As Single, chx As Single, ccx As Single
Dim U As Single, UAxy As Single, Uavg As Single, rhoh As Single, rhoc As Single
Dim Area As Single, dh As Single, L As Single, Width As Single, Prh As Single, Axy As Single

Dim Prc As Single, dynh As Single, dync As Single, Kw As Single, Xw As Single
Dim kh As Single, Kc As Single, Bhfric As Single, Bcfric As Single, chfric As Single
Dim ccfric As Single, Areah As Single, Areac As Single, rhoavg As Single, dynavg As Single
Dim Pravg As Single, Reh As Single, Rec As Single, Reavg As Single, Thavg As Single
Dim Tcavg As Single, Nuh As Single, Nuc As Single, Nuavg As Single, NTU As Single
Dim fric As Single, Ch As Single, cc As Single, Qout As Single, Cmin As Single, Cmax As Single
Dim Cr As Single, Eff As Single, Thout As Single, Tcout As Single
Dim XN As Single, DhNu As Single, DcNu As Single, nhNu As Single, ncNu As Single
Dim mhNu As Single, mcNu As Single
Dim hh As Single, hc As Single

Dim Th111avg As Single, Th121avg As Single, Th131avg As Single, Th141avg As Single, Th151avg As Single
Dim Th161avg As Single, Th171avg As Single, Th181avg As Single, Th191avg As Single, Th1101avg As Single

Dim Tcinavg As Single, Tc211avg As Single, Tc221avg As Single, Tc231avg As Single, Tc241avg As Single, Tc251avg As Single
Dim Tc261avg As Single, Tc271avg As Single, Tc281avg As Single, Tc291avg As Single, Tc2101avg

Dim Th311avg As Single, Th321avg As Single, Th331avg As Single, Th341avg As Single, Th351avg As Single, Th361avg As Single
Dim Th371avg As Single, Th381avg As Single, Th391avg As Single, Th3101avg As Single

Dim Tc411avg As Single, Tc421avg As Single, Tc431avg As Single, Tc441avg As Single, Tc451avg As Single
Dim Tc461avg As Single, Tc471avg As Single, Tc481avg As Single, Tc491avg As Single, Tc4101avg As Single

Dim Th511avg As Single, Th521avg As Single, Th531avg As Single, Th541avg As Single, Th551avg As Single, Th561avg As Single
Dim Th571avg As Single, Th581avg As Single, Th591avg As Single, Th5101avg As Single

Dim Tc611avg As Single, Tc621avg As Single, Tc631avg As Single, Tc641avg As Single, Tc651avg As Single
Dim Tc661avg As Single, Tc671avg As Single, Tc681avg As Single, Tc691avg As Single, Tc6101avg As Single

Dim Th711avg As Single, Th721avg As Single, Th731avg As Single, Th741avg As Single, Th751avg As Single, Th761avg As Single
Dim Th771avg As Single, Th781avg As Single, Th791avg As Single, Th7101avg As Single

Dim Tc811avg As Single, Tc821avg As Single, Tc831avg As Single, Tc841avg As Single, Tc851avg As Single
Dim Tc861avg As Single, Tc871avg As Single, Tc881avg As Single, Tc891avg As Single, Tc8101avg As Single

Dim Th911avg As Single, Th921avg As Single, Th931avg As Single, Th941avg As Single, Th951avg As Single, Th961avg As Single
Dim Th971avg As Single, Th981avg As Single, Th991avg As Single, Th9101avg As Single

Dim Tc1011avg As Single, Tc1021avg As Single, Tc1031avg As Single, Tc1041avg As Single, Tc1051avg As Single
Dim Tc1061avg As Single, Tc1071avg As Single, Tc1081avg As Single, Tc1091avg As Single, Tc10101avg As Single




Dim ch11 As Single, ch12 As Single, ch13 As Single, ch14 As Single, ch15 As Single
Dim ch16 As Single, ch17 As Single, ch18 As Single, ch19 As Single, ch110 As Single

Dim ccin As Single, cc21 As Single, cc22 As Single, cc23 As Single, cc24 As Single, cc25 As Single
Dim cc26 As Single, cc27 As Single, cc28 As Single, cc29 As Single

Dim ch31 As Single, ch32 As Single, ch33 As Single, ch34 As Single, ch35 As Single, ch36 As Single
Dim ch37 As Single, ch38 As Single, ch39 As Single, ch310 As Single

Dim cc41 As Single, cc42 As Single, cc43 As Single, cc44 As Single, cc45 As Single
Dim cc46 As Single, cc47 As Single, cc48 As Single, cc49 As Single, cc410 As Single

Dim ch51 As Single, ch52 As Single, ch53 As Single, ch54 As Single, ch55 As Single, ch56 As Single
Dim ch57 As Single, ch58 As Single, ch59 As Single, ch510 As Single

Dim cc61 As Single, cc62 As Single, cc63 As Single, cc64 As Single, cc65 As Single
Dim cc66 As Single, cc67 As Single, cc68 As Single, cc69 As Single, cc610 As Single


Dim ch71 As Single, ch72 As Single, ch73 As Single, ch74 As Single, ch75 As Single, ch76 As Single
Dim ch77 As Single, ch78 As Single, ch79 As Single, ch710 As Single

Dim cc81 As Single, cc82 As Single, cc83 As Single, cc84 As Single, cc85 As Single
Dim cc86 As Single, cc87 As Single, cc88 As Single, cc89 As Single, cc810 As Single


Dim ch91 As Single, ch92 As Single, ch93 As Single, ch94 As Single, ch95 As Single, ch96 As Single
Dim ch97 As Single, ch98 As Single, ch99 As Single, ch910 As Single

Dim cc101 As Single, cc102 As Single, cc103 As Single, cc104 As Single, cc105 As Single
Dim cc106 As Single, cc107 As Single, cc108 As Single, cc109 As Single, cc1010 As Single




Dim rhoh11 As Single, rhoh12 As Single, rhoh13 As Single, rhoh14 As Single, rhoh15 As Single
Dim rhoh16 As Single, rhoh17 As Single, rhoh18 As Single, rhoh19 As Single, rhoh110 As Single

Dim rhoc21 As Single, rhoc22 As Single, rhoc23 As Single, rhoc24 As Single, rhoc25 As Single
Dim rhoc26 As Single, rhoc27 As Single, rhoc28 As Single, rhoc29 As Single, rhoc210 As Single

Dim rhoh31 As Single, rhoh32 As Single, rhoh33 As Single, rhoh34 As Single, rhoh35 As Single, rhoh36 As Single
Dim rhoh37 As Single, rhoh38 As Single, rhoh39 As Single, rhoh310 As Single

Dim rhoc41 As Single, rhoc42 As Single, rhoc43 As Single, rhoc44 As Single, rhoc45 As Single
Dim rhoc46 As Single, rhoc47 As Single, rhoc48 As Single, rhoc49 As Single, rhoc410 As Single

Dim rhoh51 As Single, rhoh52 As Single, rhoh53 As Single, rhoh54 As Single, rhoh55 As Single, rhoh56 As Single
Dim rhoh57 As Single, rhoh58 As Single, rhoh59 As Single, rhoh510 As Single

Dim rhoc61 As Single, rhoc62 As Single, rhoc63 As Single, rhoc64 As Single, rhoc65 As Single
Dim rhoc66 As Single, rhoc67 As Single, rhoc68 As Single, rhoc69 As Single, rhoc610 As Single

Dim rhoh71 As Single, rhoh72 As Single, rhoh73 As Single, rhoh74 As Single, rhoh75 As Single, rhoh76 As Single
Dim rhoh77 As Single, rhoh78 As Single, rhoh79 As Single, rhoh710 As Single

Dim rhoc81 As Single, rhoc82 As Single, rhoc83 As Single, rhoc84 As Single, rhoc85 As Single
Dim rhoc86 As Single, rhoc87 As Single, rhoc88 As Single, rhoc89 As Single, rhoc810 As Single

Dim rhoh91 As Single, rhoh92 As Single, rhoh93 As Single, rhoh94 As Single, rhoh95 As Single, rhoh96 As Single
Dim rhoh97 As Single, rhoh98 As Single, rhoh99 As Single, rhoh910 As Single

Dim rhoc101 As Single, rhoc102 As Single, rhoc103 As Single, rhoc104 As Single, rhoc105 As Single
Dim rhoc106 As Single, rhoc107 As Single, rhoc108 As Single, rhoc109 As Single


Dim dynh11 As Single, dynh12 As Single, dynh13 As Single, dynh14 As Single, dynh15 As Single
Dim dynh16 As Single, dynh17 As Single, dynh18 As Single, dynh19 As Single, dynh110 As Single

Dim dyncin As Single, dync21 As Single, dync22 As Single, dync23 As Single, dync24 As Single, dync25 As Single
Dim dync26 As Single, dync27 As Single, dync28 As Single, dync29 As Single, dync210 As Single

Dim dynh31 As Single, dynh32 As Single, dynh33 As Single, dynh34 As Single, dynh35 As Single, dynh36 As Single
Dim dynh37 As Single, dynh38 As Single, dynh39 As Single, dynh310 As Single

Dim dync41 As Single, dync42 As Single, dync43 As Single, dync44 As Single, dync45 As Single
Dim dync46 As Single, dync47 As Single, dync48 As Single, dync49 As Single, dync410 As Single


Dim dynh51 As Single, dynh52 As Single, dynh53 As Single, dynh54 As Single, dynh55 As Single, dynh56 As Single
Dim dynh57 As Single, dynh58 As Single, dynh59 As Single, dynh510 As Single

Dim dync61 As Single, dync62 As Single, dync63 As Single, dync64 As Single, dync65 As Single
Dim dync66 As Single, dync67 As Single, dync68 As Single, dync69 As Single, dync610 As Single

Dim dynh71 As Single, dynh72 As Single, dynh73 As Single, dynh74 As Single, dynh75 As Single, dynh76 As Single
Dim dynh77 As Single, dynh78 As Single, dynh79 As Single, dynh710 As Single

Dim dync81 As Single, dync82 As Single, dync83 As Single, dync84 As Single, dync85 As Single
Dim dync86 As Single, dync87 As Single, dync88 As Single, dync89 As Single, dync810 As Single

Dim dynh91 As Single, dynh92 As Single, dynh93 As Single, dynh94 As Single, dynh95 As Single, dynh96 As Single
Dim dynh97 As Single, dynh98 As Single, dynh99 As Single, dynh910 As Single

Dim dync101 As Single, dync102 As Single, dync103 As Single, dync104 As Single, dync105 As Single
Dim dync106 As Single, dync107 As Single, dync108 As Single, dync109 As Single, dync1010 As Single


Dim kh11 As Single, kh12 As Single, kh13 As Single, kh14 As Single, kh15 As Single
Dim kh16 As Single, kh17 As Single, kh18 As Single, kh19 As Single, kh110 As Single

Dim kcin As Single, kc21 As Single, kc22 As Single, kc23 As Single, kc24 As Single, kc25 As Single
Dim kc26 As Single, kc27 As Single, kc28 As Single, kc29 As Single, kc210 As Single

Dim kh31 As Single, kh32 As Single, kh33 As Single, kh34 As Single, kh35 As Single, kh36 As Single
Dim kh37 As Single, kh38 As Single, kh39 As Single, kh310 As Single

Dim kc41 As Single, kc42 As Single, kc43 As Single, kc44 As Single, kc45 As Single
Dim kc46 As Single, kc47 As Single, kc48 As Single, kc49 As Single, kc410 As Single

Dim kh51 As Single, kh52 As Single, kh53 As Single, kh54 As Single, kh55 As Single, kh56 As Single
Dim kh57 As Single, kh58 As Single, kh59 As Single, kh510 As Single

Dim kc61 As Single, kc62 As Single, kc63 As Single, kc64 As Single, kc65 As Single
Dim kc66 As Single, kc67 As Single, kc68 As Single, kc69 As Single, kc610 As Single

Dim kh71 As Single, kh72 As Single, kh73 As Single, kh74 As Single, kh75 As Single, kh76 As Single
Dim kh77 As Single, kh78 As Single, kh79 As Single, kh710 As Single

Dim kc81 As Single, kc82 As Single, kc83 As Single, kc84 As Single, kc85 As Single
Dim kc86 As Single, kc87 As Single, kc88 As Single, kc89 As Single, kc810 As Single

Dim kh91 As Single, kh92 As Single, kh93 As Single, kh94 As Single, kh95 As Single, kh96 As Single
Dim kh97 As Single, kh98 As Single, kh99 As Single, kh910 As Single

Dim kc101 As Single, kc102 As Single, kc103 As Single, kc104 As Single, kc105 As Single
Dim kc106 As Single, kc107 As Single, kc108 As Single, kc109 As Single, kc1010 As Single


Dim prh11 As Single, prh12 As Single, prh13 As Single, prh14 As Single, prh15 As Single
Dim prh16 As Single, prh17 As Single, prh18 As Single, prh19 As Single, prh110 As Single

Dim prcin As Single, prc21 As Single, prc22 As Single, prc23 As Single, prc24 As Single, prc25 As Single
Dim prc26 As Single, prc27 As Single, prc28 As Single, prc29 As Single, prc210 As Single


Dim prh31 As Single, prh32 As Single, prh33 As Single, prh34 As Single, prh35 As Single, prh36 As Single
Dim prh37 As Single, prh38 As Single, prh39 As Single, prh310 As Single

Dim prc41 As Single, prc42 As Single, prc43 As Single, prc44 As Single, prc45 As Single
Dim prc46 As Single, prc47 As Single, prc48 As Single, prc49 As Single, prc410 As Single

Dim prh51 As Single, prh52 As Single, prh53 As Single, prh54 As Single, prh55 As Single, prh56 As Single
Dim prh57 As Single, prh58 As Single, prh59 As Single, prh510 As Single

Dim prc61 As Single, prc62 As Single, prc63 As Single, prc64 As Single, prc65 As Single
Dim prc66 As Single, prc67 As Single, prc68 As Single, prc69 As Single, prc610 As Single


Dim prh71 As Single, prh72 As Single, prh73 As Single, prh74 As Single, prh75 As Single, prh76 As Single
Dim prh77 As Single, prh78 As Single, prh79 As Single, prh710 As Single

Dim prc81 As Single, prc82 As Single, prc83 As Single, prc84 As Single, prc85 As Single
Dim prc86 As Single, prc87 As Single, prc88 As Single, prc89 As Single, prc810 As Single


Dim prh91 As Single, prh92 As Single, prh93 As Single, prh94 As Single, prh95 As Single, prh96 As Single
Dim prh97 As Single, prh98 As Single, prh99 As Single, prh910 As Single

Dim prc101 As Single, prc102 As Single, prc103 As Single, prc104 As Single, prc105 As Single
Dim prc106 As Single, prc107 As Single, prc108 As Single, prc109 As Single, prc1010 As Single






Dim Reh11 As Single, Reh12 As Single, Reh13 As Single, Reh14 As Single, Reh15 As Single
Dim Reh16 As Single, Reh17 As Single, Reh18 As Single, Reh19 As Single, Reh110 As Single

Dim Recin As Single, Rec21 As Single, Rec22 As Single, Rec23 As Single, Rec24 As Single, Rec25 As Single
Dim Rec26 As Single, Rec27 As Single, Rec28 As Single, Rec29 As Single, Rec210 As Single

Dim Reh31 As Single, Reh32 As Single, Reh33 As Single, Reh34 As Single, Reh35 As Single, Reh36 As Single
Dim Reh37 As Single, Reh38 As Single, Reh39 As Single, Reh310 As Single

Dim Rec41 As Single, Rec42 As Single, Rec43 As Single, Rec44 As Single, Rec45 As Single
Dim Rec46 As Single, Rec47 As Single, Rec48 As Single, Rec49 As Single, Rec410 As Single

Dim Reh51 As Single, Reh52 As Single, Reh53 As Single, Reh54 As Single, Reh55 As Single, Reh56 As Single
Dim Reh57 As Single, Reh58 As Single, Reh59 As Single, Reh510 As Single

Dim Rec61 As Single, Rec62 As Single, Rec63 As Single, Rec64 As Single, Rec65 As Single
Dim Rec66 As Single, Rec67 As Single, Rec68 As Single, Rec69 As Single, Rec610 As Single

Dim Reh71 As Single, Reh72 As Single, Reh73 As Single, Reh74 As Single, Reh75 As Single, Reh76 As Single
Dim Reh77 As Single, Reh78 As Single, Reh79 As Single, Reh710 As Single

Dim Rec81 As Single, Rec82 As Single, Rec83 As Single, Rec84 As Single, Rec85 As Single
Dim Rec86 As Single, Rec87 As Single, Rec88 As Single, Rec89 As Single, Rec810 As Single


Dim Reh91 As Single, Reh92 As Single, Reh93 As Single, Reh94 As Single, Reh95 As Single, Reh96 As Single
Dim Reh97 As Single, Reh98 As Single, Reh99 As Single, Reh910 As Single

Dim Rec101 As Single, Rec102 As Single, Rec103 As Single, Rec104 As Single, Rec105 As Single
Dim Rec106 As Single, Rec107 As Single, Rec108 As Single, Rec109 As Single, Rec1010 As Single


Dim chx11 As Single, chx12 As Single, chx13 As Single, chx14 As Single, chx15 As Single
Dim chx16 As Single, chx17 As Single, chx18 As Single, chx19 As Single, chx110 As Single

Dim ccxin As Single, ccx21 As Single, ccx22 As Single, ccx23 As Single, ccx24 As Single, ccx25 As Single
Dim ccx26 As Single, ccx27 As Single, ccx28 As Single, ccx29 As Single, ccx210 As Single


Dim chx31 As Single, chx32 As Single, chx33 As Single, chx34 As Single, chx35 As Single, chx36 As Single
Dim chx37 As Single, chx38 As Single, chx39 As Single, chx310 As Single

Dim ccx41 As Single, ccx42 As Single, ccx43 As Single, ccx44 As Single, ccx45 As Single
Dim ccx46 As Single, ccx47 As Single, ccx48 As Single, ccx49 As Single, ccx410 As Single

Dim chx51 As Single, chx52 As Single, chx53 As Single, chx54 As Single, chx55 As Single, chx56 As Single
Dim chx57 As Single, chx58 As Single, chx59 As Single, chx510 As Single

Dim ccx61 As Single, ccx62 As Single, ccx63 As Single, ccx64 As Single, ccx65 As Single
Dim ccx66 As Single, ccx67 As Single, ccx68 As Single, ccx69 As Single, ccx610 As Single


Dim chx71 As Single, chx72 As Single, chx73 As Single, chx74 As Single, chx75 As Single, chx76 As Single
Dim chx77 As Single, chx78 As Single, chx79 As Single, chx710 As Single

Dim ccx81 As Single, ccx82 As Single, ccx83 As Single, ccx84 As Single, ccx85 As Single
Dim ccx86 As Single, ccx87 As Single, ccx88 As Single, ccx89 As Single, ccx810 As Single


Dim chx91 As Single, chx92 As Single, chx93 As Single, chx94 As Single, chx95 As Single, chx96 As Single
Dim chx97 As Single, chx98 As Single, chx99 As Single, chx910 As Single

Dim ccx101 As Single, ccx102 As Single, ccx103 As Single, ccx104 As Single, ccx105 As Single
Dim ccx106 As Single, ccx107 As Single, ccx108 As Single, ccx109 As Single, ccx1010 As Single


Dim hh11 As Single, hh12 As Single, hh13 As Single, hh14 As Single, hh15 As Single
Dim hh16 As Single, hh17 As Single, hh18 As Single, hh19 As Single, hh110 As Single

Dim hc21 As Single, hc22 As Single, hc23 As Single, hc24 As Single, hc25 As Single
Dim hc26 As Single, hc27 As Single, hc28 As Single, hc29 As Single, hc210 As Single


Dim hh31 As Single, hh32 As Single, hh33 As Single, hh34 As Single, hh35 As Single, hh36 As Single
Dim hh37 As Single, hh38 As Single, hh39 As Single, hh310 As Single

Dim hc41 As Single, hc42 As Single, hc43 As Single, hc44 As Single, hc45 As Single
Dim hc46 As Single, hc47 As Single, hc48 As Single, hc49 As Single, hc410 As Single

Dim hh51 As Single, hh52 As Single, hh53 As Single, hh54 As Single, hh55 As Single, hh56 As Single
Dim hh57 As Single, hh58 As Single, hh59 As Single, hh510 As Single

Dim hc61 As Single, hc62 As Single, hc63 As Single, hc64 As Single, hc65 As Single
Dim hc66 As Single, hc67 As Single, hc68 As Single, hc69 As Single, hc610 As Single


Dim hh71 As Single, hh72 As Single, hh73 As Single, hh74 As Single, hh75 As Single, hh76 As Single
Dim hh77 As Single, hh78 As Single, hh79 As Single, hh710 As Single

Dim hc81 As Single, hc82 As Single, hc83 As Single, hc84 As Single, hc85 As Single
Dim hc86 As Single, hc87 As Single, hc88 As Single, hc89 As Single, hc810 As Single


Dim hh91 As Single, hh92 As Single, hh93 As Single, hh94 As Single, hh95 As Single, hh96 As Single
Dim hh97 As Single, hh98 As Single, hh99 As Single, hh910 As Single

Dim hc101 As Single, hc102 As Single, hc103 As Single, hc104 As Single, hc105 As Single
Dim hc106 As Single, hc107 As Single, hc108 As Single, hc109 As Single, hc1010 As Single



Dim U11 As Single, U12 As Single, U13 As Single, U14 As Single, U15 As Single
Dim U16 As Single, U17 As Single, U18 As Single, U19 As Single, U110 As Single

Dim U21 As Single, U22 As Single, U23 As Single, U24 As Single, U25 As Single
Dim U26 As Single, U27 As Single, U28 As Single, U29 As Single, U210 As Single

Dim U31 As Single, U32 As Single, U33 As Single, U34 As Single, U35 As Single, U36 As Single
Dim U37 As Single, U38 As Single, U39 As Single, U310 As Single

Dim U41 As Single, U42 As Single, U43 As Single, U44 As Single, U45 As Single
Dim U46 As Single, U47 As Single, U48 As Single, U49 As Single, U410

Dim U51 As Single, U52 As Single, U53 As Single, U54 As Single, U55 As Single, U56 As Single
Dim U57 As Single, U58 As Single, U59 As Single, U510 As Single

Dim U61 As Single, U62 As Single, U63 As Single, U64 As Single, U65 As Single
Dim U66 As Single, U67 As Single, U68 As Single, U69 As Single, U610 As Single

Dim U71 As Single, U72 As Single, U73 As Single, U74 As Single, U75 As Single, U76 As Single
Dim U77 As Single, U78 As Single, U79 As Single, U710 As Single

Dim U81 As Single, U82 As Single, U83 As Single, U84 As Single, U85 As Single
Dim U86 As Single, U87 As Single, U88 As Single, U89 As Single, U810 As Single


Dim U91 As Single, U92 As Single, U93 As Single, U94 As Single, U95 As Single, U96 As Single
Dim U97 As Single, U98 As Single, U99 As Single, U910 As Single

Dim U101 As Single, U102 As Single, U103 As Single, U104 As Single, U105 As Single
Dim U106 As Single, U107 As Single, U108 As Single, U109 As Single, U1010 As Single


Dim f11 As Single, f12 As Single, f13 As Single, f14 As Single, f15 As Single
Dim f16 As Single, f17 As Single, f18 As Single, f19 As Single, f110 As Single

Dim f21 As Single, f22 As Single, f23 As Single, f24 As Single, f25 As Single
Dim f26 As Single, f27 As Single, f28 As Single, f29 As Single

Dim f31 As Single, f32 As Single, f33 As Single, f34 As Single, f35 As Single, f36 As Single
Dim f37 As Single, f38 As Single, f39 As Single, f310 As Single

Dim f41 As Single, f42 As Single, f43 As Single, f44 As Single, f45 As Single
Dim f46 As Single, f47 As Single, f48 As Single, f49 As Single, f410

Dim f51 As Single, f52 As Single, f53 As Single, f54 As Single, f55 As Single, f56 As Single
Dim f57 As Single, f58 As Single, f59 As Single, f510 As Single

Dim f61 As Single, f62 As Single, f63 As Single, f64 As Single, f65 As Single
Dim f66 As Single, f67 As Single, f68 As Single, f69 As Single, f610 As Single

Dim f71 As Single, f72 As Single, f73 As Single, f74 As Single, f75 As Single, f76 As Single
Dim f77 As Single, f78 As Single, f79 As Single, f710 As Single

Dim f81 As Single, f82 As Single, f83 As Single, f84 As Single, f85 As Single
Dim f86 As Single, f87 As Single, f88 As Single, f89 As Single, f810 As Single


Dim f91 As Single, f92 As Single, f93 As Single, f94 As Single, f95 As Single, f96 As Single
Dim f97 As Single, f98 As Single, f99 As Single, f910 As Single

Dim f101 As Single, f102 As Single, f103 As Single, f104 As Single, f105 As Single
Dim f106 As Single, f107 As Single, f108 As Single, f109 As Single, f1010 As Single

XN = Text1.Text
L = Text2.Text
Width = Text3.Text
dh = Text4.Text
Xw = Text5.Text
Kw = Text6.Text

DhNu = Text7.Text
mhNu = Text8.Text
nhNu = Text9.Text
Bhfric = Text10.Text
chfric = Text11.Text

DcNu = Text12.Text
mcNu = Text13.Text
ncNu = Text14.Text
Bcfric = Text15.Text
ccfric = Text16.Text

mh = Text17.Text
chp = Text18.Text
Thin = Text19.Text
rhoh = Text20.Text
dynh = Text21.Text
kh = Text22.Text
Prh = Text23.Text

mc = Text24.Text
ccp = Text25.Text
Tcin = Text26.Text
rhoc = Text27.Text
dync = Text28.Text
Kc = Text29.Text
Prc = Text30.Text

Area = (XN - 1) * (L * Width)
chx = (mh * chp) / (XN / 2)
ccx = (mc * ccp) / (XN / 2)

Reh = (4 * mh) / (3.142 * dh * dynh)
Nuh = (DhNu * (Reh ^ mhNu) * (Prh ^ nhNu))
hh = (Nuh * kh) / (dh)

Rec = (4 * mc) / (3.142 * dh * dync)
Nuc = (DcNu * (Rec ^ mcNu) * (Prc ^ ncNu))
hc = (Nuc * Kc) / (dh)

U = ((1) / ((1 / hh) + (Xw / Kw) + (1 / hc)))
UA = (U * Area)
UAxy = UA / ((XN - 1) * 10)

Text131.Text = U

A = ((chx - (UAxy / 2)) / (chx + (UAxy / 2)))
B = ((UAxy / 2) / (chx + (UAxy / 2)))
E = ((ccx - (UAxy)) / (ccx + UAxy))
F = ((UAxy / 2) / (ccx + UAxy))
v = (chx - UAxy) / (chx + UAxy)
w = ((UAxy / 2) / (chx + UAxy))
q = ((ccx - (UAxy / 2)) / (ccx + (UAxy / 2)))
r = ((UAxy / 2) / (ccx + (UAxy / 2)))

Let Th12 = 0 'using JACOBI'S Method
Th13 = 0
Th14 = 0
Th15 = 0
Th16 = 0
Th17 = 0
Th18 = 0
Th19 = 0
Th110 = 0
Th111 = 0


Tc21 = 0
Tc22 = 0
Tc23 = 0
Tc24 = 0
Tc25 = 0
Tc26 = 0
Tc27 = 0
Tc28 = 0
Tc29 = 0
Tc210 = 0

Th32 = 0
Th33 = 0
Th34 = 0
Th35 = 0
Th36 = 0
Th37 = 0
Th38 = 0
Th39 = 0
Th310 = 0
Th311 = 0

Tc41 = 0
Tc42 = 0
Tc43 = 0
Tc44 = 0
Tc45 = 0
Tc46 = 0
Tc47 = 0
Tc48 = 0
Tc49 = 0
Tc410 = 0

Th52 = 0
Th53 = 0
Th54 = 0
Th55 = 0
Th56 = 0
Th57 = 0
Th58 = 0
Th59 = 0
Th510 = 0
Th511 = 0

Tc61 = 0
Tc62 = 0
Tc63 = 0
Tc64 = 0
Tc65 = 0
Tc66 = 0
Tc67 = 0
Tc68 = 0
Tc69 = 0
Tc610 = 0

Th72 = 0
Th73 = 0
Th74 = 0
Th75 = 0
Th76 = 0
Th77 = 0
Th78 = 0
Th79 = 0
Th710 = 0
Th711 = 0

Tc81 = 0
Tc82 = 0
Tc83 = 0
Tc84 = 0
Tc85 = 0
Tc86 = 0
Tc87 = 0
Tc88 = 0
Tc89 = 0
Tc810 = 0

Th92 = 0
Th93 = 0
Th94 = 0
Th95 = 0
Th96 = 0
Th97 = 0
Th98 = 0
Th99 = 0
Th910 = 0
Th911 = 0

Tc101 = 0
Tc102 = 0
Tc103 = 0
Tc104 = 0
Tc105 = 0
Tc106 = 0
Tc107 = 0
Tc108 = 0
Tc109 = 0
Tc1010 = 0

For O = 1 To 500
Th121 = (A * Thin) + (B * Tc21) + (B * Tc22)
Th131 = (A * Th12) + (B * Tc22) + (B * Tc23)
Th141 = (A * Th13) + (B * Tc23) + (B * Tc24)
Th151 = (A * Th14) + (B * Tc24) + (B * Tc25)
Th161 = (A * Th15) + (B * Tc25) + (B * Tc26)
Th171 = (A * Th16) + (B * Tc26) + (B * Tc27)
Th181 = (A * Th17) + (B * Tc27) + (B * Tc28)
Th191 = (A * Th18) + (B * Tc28) + (B * Tc29)
Th1101 = (A * Th19) + (B * Tc29) + (B * Tc210)
Th1111 = (A * Th110) + (B * Tc210) + (B * Tcin)

Tc211 = (E * Tc22) + (F * (Thin + Th12 + Thin + Th32))
Tc221 = (E * Tc23) + (F * (Th12 + Th13 + Th32 + Th33))
Tc231 = (E * Tc24) + (F * (Th13 + Th14 + Th33 + Th34))
Tc241 = (E * Tc25) + (F * (Th14 + Th15 + Th34 + Th35))
Tc251 = (E * Tc26) + (F * (Th15 + Th16 + Th35 + Th36))
Tc261 = (E * Tc27) + (F * (Th16 + Th17 + Th36 + Th37))
Tc271 = (E * Tc28) + (F * (Th17 + Th18 + Th37 + Th38))
Tc281 = (E * Tc29) + (F * (Th18 + Th19 + Th38 + Th39))
Tc291 = (E * Tc210) + (F * (Th19 + Th110 + Th39 + Th310))
Tc2101 = (E * Tcin) + (F * (Th110 + Th111 + Th310 + Th311))


Th321 = (v * Thin) + (w * (Tc21 + Tc22 + Tc41 + Tc42))
Th331 = (v * Th32) + (w * (Tc22 + Tc23 + Tc42 + Tc43))
Th341 = (v * Th33) + (w * (Tc23 + Tc24 + Tc43 + Tc44))
Th351 = (v * Th34) + (w * (Tc24 + Tc25 + Tc44 + Tc45))
Th361 = (v * Th35) + (w * (Tc25 + Tc26 + Tc45 + Tc46))
Th371 = (v * Th36) + (w * (Tc26 + Tc27 + Tc46 + Tc47))
Th381 = (v * Th37) + (w * (Tc27 + Tc28 + Tc47 + Tc48))
Th391 = (v * Th38) + (w * (Tc28 + Tc29 + Tc48 + Tc49))
Th3101 = (v * Th39) + (w * (Tc29 + Tc210 + Tc49 + Tc410))
Th3111 = (v * Th310) + (w * (Tc210 + Tcin + Tc410 + Tcin))

Tc411 = (E * Tc42) + (F * (Thin + Th32 + Thin + Th52))
Tc421 = (E * Tc43) + (F * (Th32 + Th33 + Th52 + Th53))
Tc431 = (E * Tc44) + (F * (Th33 + Th34 + Th53 + Th54))
Tc441 = (E * Tc45) + (F * (Th34 + Th35 + Th54 + Th55))
Tc451 = (E * Tc46) + (F * (Th35 + Th36 + Th55 + Th56))
Tc461 = (E * Tc47) + (F * (Th36 + Th37 + Th56 + Th57))
Tc471 = (E * Tc48) + (F * (Th37 + Th38 + Th57 + Th58))
Tc481 = (E * Tc49) + (F * (Th38 + Th39 + Th58 + Th59))
Tc491 = (E * Tc410) + (F * (Th39 + Th310 + Th59 + Th510))
Tc4101 = (E * Tcin) + (F * (Th310 + Th311 + Th510 + Th511))


Th521 = (v * Thin) + (w * (Tc41 + Tc42 + Tc61 + Tc62))
Th531 = (v * Th52) + (w * (Tc42 + Tc43 + Tc62 + Tc63))
Th541 = (v * Th53) + (w * (Tc43 + Tc44 + Tc63 + Tc64))
Th551 = (v * Th54) + (w * (Tc44 + Tc45 + Tc64 + Tc65))
Th561 = (v * Th55) + (w * (Tc45 + Tc46 + Tc65 + Tc66))
Th571 = (v * Th56) + (w * (Tc46 + Tc47 + Tc66 + Tc67))
Th581 = (v * Th57) + (w * (Tc47 + Tc48 + Tc67 + Tc68))
Th591 = (v * Th58) + (w * (Tc48 + Tc49 + Tc68 + Tc69))
Th5101 = (v * Th59) + (w * (Tc49 + Tc410 + Tc69 + Tc610))
Th5111 = (v * Th510) + (w * (Tc410 + Tcin + Tc610 + Tcin))


Tc611 = (E * Tc62) + (F * (Thin + Th52 + Thin + Th72))
Tc621 = (E * Tc63) + (F * (Th52 + Th53 + Th72 + Th73))
Tc631 = (E * Tc64) + (F * (Th53 + Th54 + Th73 + Th74))
Tc641 = (E * Tc65) + (F * (Th54 + Th55 + Th74 + Th75))
Tc651 = (E * Tc66) + (F * (Th55 + Th56 + Th75 + Th76))
Tc661 = (E * Tc67) + (F * (Th56 + Th57 + Th76 + Th77))
Tc671 = (E * Tc68) + (F * (Th57 + Th58 + Th77 + Th78))
Tc681 = (E * Tc69) + (F * (Th58 + Th59 + Th78 + Th79))
Tc691 = (E * Tc610) + (F * (Th59 + Th510 + Th79 + Th710))
Tc6101 = (E * Tcin) + (F * (Th510 + Th511 + Th710 + Th711))


Th721 = (v * Thin) + (w * (Tc61 + Tc62 + Tc81 + Tc82))
Th731 = (v * Th72) + (w * (Tc62 + Tc63 + Tc82 + Tc83))
Th741 = (v * Th73) + (w * (Tc63 + Tc64 + Tc83 + Tc84))
Th751 = (v * Th74) + (w * (Tc64 + Tc65 + Tc84 + Tc85))
Th761 = (v * Th75) + (w * (Tc65 + Tc66 + Tc85 + Tc86))
Th771 = (v * Th76) + (w * (Tc66 + Tc67 + Tc86 + Tc87))
Th781 = (v * Th77) + (w * (Tc67 + Tc68 + Tc87 + Tc88))
Th791 = (v * Th78) + (w * (Tc68 + Tc69 + Tc88 + Tc89))
Th7101 = (v * Th79) + (w * (Tc69 + Tc610 + Tc89 + Tc810))
Th7111 = (v * Th710) + (w * (Tc610 + Tcin + Tc810 + Tcin))


Tc811 = (E * Tc82) + (F * (Thin + Th72 + Thin + Th92))
Tc821 = (E * Tc83) + (F * (Th72 + Th73 + Th92 + Th93))
Tc831 = (E * Tc84) + (F * (Th73 + Th74 + Th93 + Th94))
Tc841 = (E * Tc85) + (F * (Th74 + Th75 + Th94 + Th95))
Tc851 = (E * Tc86) + (F * (Th75 + Th76 + Th95 + Th96))
Tc861 = (E * Tc87) + (F * (Th76 + Th77 + Th96 + Th97))
Tc871 = (E * Tc88) + (F * (Th77 + Th78 + Th97 + Th98))
Tc881 = (E * Tc89) + (F * (Th78 + Th79 + Th98 + Th99))
Tc891 = (E * Tc810) + (F * (Th79 + Th710 + Th99 + Th910))
Tc8101 = (E * Tcin) + (F * (Th710 + Th711 + Th910 + Th911))


Th921 = (v * Thin) + (w * (Tc81 + Tc82 + Tc101 + Tc102))
Th931 = (v * Th92) + (w * (Tc82 + Tc83 + Tc102 + Tc103))
Th941 = (v * Th93) + (w * (Tc83 + Tc84 + Tc103 + Tc104))
Th951 = (v * Th94) + (w * (Tc84 + Tc85 + Tc104 + Tc105))
Th961 = (v * Th95) + (w * (Tc85 + Tc86 + Tc105 + Tc106))
Th971 = (v * Th96) + (w * (Tc86 + Tc87 + Tc106 + Tc107))
Th981 = (v * Th97) + (w * (Tc87 + Tc88 + Tc107 + Tc108))
Th991 = (v * Th98) + (w * (Tc88 + Tc89 + Tc108 + Tc109))
Th9101 = (v * Th99) + (w * (Tc89 + Tc810 + Tc109 + Tc1010))
Th9111 = (v * Th910) + (w * (Tc810 + Tcin + Tc1010 + Tcin))

Tc1011 = (q * Tc102) + (r * (Thin + Th92))
Tc1021 = (q * Tc103) + (r * (Th92 + Th93))
Tc1031 = (q * Tc104) + (r * (Th93 + Th94))
Tc1041 = (q * Tc105) + (r * (Th94 + Th95))
Tc1051 = (q * Tc106) + (r * (Th95 + Th96))
Tc1061 = (q * Tc107) + (r * (Th96 + Th97))
Tc1071 = (q * Tc108) + (r * (Th97 + Th98))
Tc1081 = (q * Tc109) + (r * (Th98 + Th99))
Tc1091 = (q * Tc1010) + (r * (Th99 + Th910))
Tc10101 = (q * Tcin) + (r * (Th910 + Th911))

Th12 = Th121
Th13 = Th131
Th14 = Th141
Th15 = Th151
Th16 = Th161
Th17 = Th171
Th18 = Th181
Th19 = Th191
Th110 = Th1101
Th111 = Th1111

Tc21 = Tc211
Tc22 = Tc221
Tc23 = Tc231
Tc24 = Tc241
Tc25 = Tc251
Tc26 = Tc261
Tc27 = Tc271
Tc28 = Tc281
Tc29 = Tc291
Tc210 = Tc2101


Th32 = Th321
Th33 = Th331
Th34 = Th341
Th35 = Th351
Th36 = Th361
Th37 = Th371
Th38 = Th381
Th39 = Th391
Th310 = Th3101
Th310 = Th3111

Tc41 = Tc411
Tc42 = Tc421
Tc43 = Tc431
Tc44 = Tc441
Tc45 = Tc451
Tc46 = Tc461
Tc47 = Tc471
Tc48 = Tc481
Tc49 = Tc491
Tc410 = Tc4101

Th52 = Th521
Th53 = Th531
Th54 = Th541
Th55 = Th551
Th56 = Th561
Th57 = Th571
Th58 = Th581
Th59 = Th591
Th510 = Th5101
Th511 = Th5111

Tc61 = Tc611
Tc62 = Tc621
Tc63 = Tc631
Tc64 = Tc641
Tc65 = Tc651
Tc66 = Tc661
Tc67 = Tc671
Tc68 = Tc681
Tc69 = Tc691
Tc610 = Tc6101

Th72 = Th721
Th73 = Th731
Th74 = Th741
Th75 = Th751
Th76 = Th761
Th77 = Th771
Th78 = Th781
Th79 = Th791
Th710 = Th7101
Th711 = Th7111

Tc81 = Tc811
Tc82 = Tc821
Tc83 = Tc831
Tc84 = Tc841
Tc85 = Tc851
Tc86 = Tc861
Tc87 = Tc871
Tc88 = Tc881
Tc89 = Tc891
Tc810 = Tc8101


Th92 = Th921
Th93 = Th931
Th94 = Th941
Th95 = Th951
Th96 = Th961
Th97 = Th971
Th98 = Th981
Th99 = Th991
Th910 = Th9101
Th911 = Th9111


Tc101 = Tc1011
Tc102 = Tc1021
Tc103 = Tc1031
Tc104 = Tc1041
Tc105 = Tc1051
Tc106 = Tc1061
Tc107 = Tc1071
Tc108 = Tc1081
Tc109 = Tc1091
Tc1010 = Tc10101


Next O


Th111avg = (Thin + Th121) / 2
Th121avg = (Th121 + Th131) / 2
Th131avg = (Th131 + Th141) / 2
Th141avg = (Th141 + Th151) / 2
Th151avg = (Th151 + Th161) / 2
Th161avg = (Th161 + Th171) / 2
Th171avg = (Th171 + Th181) / 2
Th181avg = (Th181 + Th191) / 2
Th191avg = (Th191 + Th1101) / 2
Th1101avg = (Th1101 + Th1111) / 2


Tc211avg = (Tc211 + Tc221) / 2
Tc221avg = (Tc221 + Tc231) / 2
Tc231avg = (Tc231 + Tc241) / 2
Tc241avg = (Tc241 + Tc251) / 2
Tc251avg = (Tc251 + Tc261) / 2
Tc261avg = (Tc261 + Tc271) / 2
Tc271avg = (Tc271 + Tc281) / 2
Tc281avg = (Tc281 + Tc291) / 2
Tc291avg = (Tc291 + Tc2101) / 2
Tc2101avg = (Tc2101 + Tcin) / 2

Th311avg = (Thin + Th321) / 2
Th321avg = (Th321 + Th331) / 2
Th331avg = (Th331 + Th341) / 2
Th341avg = (Th341 + Th351) / 2
Th351avg = (Th351 + Th361) / 2
Th361avg = (Th361 + Th371) / 2
Th371avg = (Th371 + Th381) / 2
Th381avg = (Th381 + Th391) / 2
Th391avg = (Th391 + Th3101) / 2
Th3101avg = (Th3101 + Th3111) / 2


Tc411avg = (Tc411 + Tc421) / 2
Tc421avg = (Tc421 + Tc431) / 2
Tc431avg = (Tc431 + Tc441) / 2
Tc441avg = (Tc441 + Tc451) / 2
Tc451avg = (Tc451 + Tc461) / 2
Tc461avg = (Tc461 + Tc471) / 2
Tc471avg = (Tc471 + Tc481) / 2
Tc481avg = (Tc481 + Tc491) / 2
Tc491avg = (Tc491 + Tc4101) / 2
Tc4101avg = (Tc4101 + Tcin) / 2

Th511avg = (Thin + Th521) / 2
Th521avg = (Th521 + Th531) / 2
Th531avg = (Th531 + Th541) / 2
Th541avg = (Th541 + Th551) / 2
Th551avg = (Th551 + Th561) / 2
Th561avg = (Th561 + Th571) / 2
Th571avg = (Th571 + Th581) / 2
Th581avg = (Th581 + Th591) / 2
Th591avg = (Th591 + Th5101) / 2
Th5101avg = (Th5101 + Th5111) / 2


Tc611avg = (Tc611 + Tc621) / 2
Tc621avg = (Tc621 + Tc631) / 2
Tc631avg = (Tc631 + Tc641) / 2
Tc641avg = (Tc641 + Tc651) / 2
Tc651avg = (Tc651 + Tc661) / 2
Tc661avg = (Tc661 + Tc671) / 2
Tc671avg = (Tc671 + Tc681) / 2
Tc681avg = (Tc681 + Tc691) / 2
Tc691avg = (Tc691 + Tc6101) / 2
Tc6101avg = (Tc6101 + Tcin) / 2

Th711avg = (Thin + Th721) / 2
Th721avg = (Th721 + Th731) / 2
Th731avg = (Th731 + Th741) / 2
Th741avg = (Th741 + Th751) / 2
Th751avg = (Th751 + Th761) / 2
Th761avg = (Th761 + Th771) / 2
Th771avg = (Th771 + Th781) / 2
Th781avg = (Th781 + Th791) / 2
Th791avg = (Th791 + Th7101) / 2
Th7101avg = (Th7101 + Th7111) / 2

Tc811avg = (Tc811 + Tc821) / 2
Tc821avg = (Tc821 + Tc831) / 2
Tc831avg = (Tc831 + Tc841) / 2
Tc841avg = (Tc841 + Tc851) / 2
Tc851avg = (Tc851 + Tc861) / 2
Tc861avg = (Tc861 + Tc871) / 2
Tc871avg = (Tc871 + Tc881) / 2
Tc881avg = (Tc881 + Tc891) / 2
Tc891avg = (Tc891 + Tc8101) / 2
Tc8101avg = (Tc8101 + Tcin) / 2

Th911avg = (Thin + Th921) / 2
Th921avg = (Th921 + Th931) / 2
Th931avg = (Th931 + Th941) / 2
Th941avg = (Th941 + Th951) / 2
Th951avg = (Th951 + Th961) / 2
Th961avg = (Th961 + Th971) / 2
Th971avg = (Th971 + Th981) / 2
Th981avg = (Th981 + Th991) / 2
Th991avg = (Th991 + Th9101) / 2
Th9101avg = (Th9101 + Th9111) / 2

Tc1011avg = (Tc1011 + Tc1021) / 2
Tc1021avg = (Tc1021 + Tc1031) / 2
Tc1031avg = (Tc1031 + Tc1041) / 2
Tc1041avg = (Tc1041 + Tc1051) / 2
Tc1051avg = (Tc1051 + Tc1061) / 2
Tc1061avg = (Tc1061 + Tc1071) / 2
Tc1071avg = (Tc1071 + Tc1081) / 2
Tc1081avg = (Tc1081 + Tc1091) / 2
Tc1091avg = (Tc1091 + Tc10101) / 2
Tc10101avg = (Tc10101 + Tcin) / 2

If 140 <= Th111avg <= 160 Then 'first flow channel,first partition

ch11 = 2395 + (((Th111avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh11 = 816.94 + (((Th111avg - 140) / (160 - 140)) * (805 - 816.94))
dynh11 = 65.3552 + (((Th111avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh11 = 0.133 + (((Th111avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh11 = 116 + (((Th111avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th111avg <= 140 Then
ch11 = 2307 + (((Th111avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh11 = 828.96 + (((Th111avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh11 = 102.79104 + (((Th111avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh11 = 0.135 + (((Th111avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh11 = 175 + (((Th111avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th111avg <= 120 Then
ch11 = 2219 + (((Th111avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh11 = 840.01 + (((Th111avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh11 = 170.52203 + (((Th111avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh11 = 0.137 + (((Th111avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh11 = 276 + (((Th111avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th111avg <= 100 Then
ch11 = 2131 + (((Th111avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh11 = 852.02 + (((Th111avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh11 = 319.5075 + (((Th111avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh11 = 0.138 + (((Th111avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh11 = 490 + (((Th111avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th111avg <= 80 Then
ch11 = 2047 + (((Th111avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh11 = 864.04 + (((Th111avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh11 = 0.072492956 + (((Th111avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh11 = 0.14 + (((Th111avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh11 = 1050 + (((Th111avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th111avg <= 60 Then
ch11 = 1964 + (((Th111avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh11 = 876.05 + (((Th111avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh11 = 0.210252 + (((Th111avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh11 = 0.144 + (((Th111avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh11 = 2870 + (((Th111avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th111avg <= 40 Then
ch11 = 1880 + (((Th111avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh11 = 888.23 + (((Th111avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh11 = 0.799407 + (((Th111avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh11 = 0.145 + (((Th111avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh11 = 10400 + (((Th111avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th111avg <= 20 Then
ch11 = 1796 + (((Th111avg) / (20)) * (1880 - 1796))
rhoh11 = 899.12 + (((Th111avg) / (20)) * (888.23 - 899.12))
dynh11 = 3.84823 + (((Th111avg) / (20)) * (0.799407 - 3.84823))
kh11 = 0.147 + (((Th111avg) / (20)) * (0.145 - 0.147))
prh11 = 47100 + (((Th111avg) / (20)) * (10400 - 47100))

End If

End If

If 140 <= Th121avg <= 160 Then 'first flow channel,second partition

ch12 = 2395 + (((Th121avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh12 = 816.94 + (((Th121avg - 140) / (160 - 140)) * (805 - 816.94))
dynh12 = 65.3552 + (((Th121avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh12 = 0.133 + (((Th121avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh12 = 116 + (((Th121avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th121avg <= 140 Then
ch12 = 2307 + (((Th121avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh12 = 828.96 + (((Th121avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh12 = 102.79104 + (((Th121avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh12 = 0.135 + (((Th121avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh12 = 175 + (((Th121avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th121avg <= 120 Then
ch12 = 2219 + (((Th121avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh12 = 840.01 + (((Th121avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh12 = 170.52203 + (((Th121avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh12 = 0.137 + (((Th121avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh12 = 276 + (((Th121avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th121avg <= 100 Then
ch12 = 2131 + (((Th121avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh12 = 852.02 + (((Th121avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh12 = 319.5075 + (((Th121avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh12 = 0.138 + (((Th121avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh12 = 490 + (((Th121avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th121avg <= 80 Then
ch12 = 2047 + (((Th121avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh12 = 864.04 + (((Th121avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh12 = 0.072492956 + (((Th121avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh12 = 0.14 + (((Th121avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh12 = 1050 + (((Th121avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th121avg <= 60 Then
ch12 = 1964 + (((Th121avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh12 = 876.05 + (((Th121avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh12 = 0.210252 + (((Th121avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh12 = 0.144 + (((Th121avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh12 = 2870 + (((Th121avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th121avg <= 40 Then
ch12 = 1880 + (((Th121avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh12 = 888.23 + (((Th121avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh12 = 0.799407 + (((Th121avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh12 = 0.145 + (((Th121avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh12 = 10400 + (((Th121avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th121avg <= 20 Then
ch12 = 1796 + (((Th121avg) / (20)) * (1880 - 1796))
rhoh12 = 899.12 + (((Th121avg) / (20)) * (888.23 - 899.12))
dynh12 = 3.84823 + (((Th121avg) / (20)) * (0.799407 - 3.84823))
kh12 = 0.147 + (((Th121avg) / (20)) * (0.145 - 0.147))
prh12 = 47100 + (((Th121avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th131avg <= 160 Then 'first flow channel,Third partition

ch13 = 2395 + (((Th131avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh13 = 816.94 + (((Th131avg - 140) / (160 - 140)) * (805 - 816.94))
dynh13 = 65.3552 + (((Th131avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh13 = 0.133 + (((Th131avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh13 = 116 + (((Th131avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th131avg <= 140 Then
ch13 = 2307 + (((Th131avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh13 = 828.96 + (((Th131avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh13 = 102.79104 + (((Th131avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh13 = 0.135 + (((Th131avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh13 = 175 + (((Th131avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th131avg <= 120 Then
ch13 = 2219 + (((Th131avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh13 = 840.01 + (((Th131avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh13 = 170.52203 + (((Th131avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh13 = 0.137 + (((Th131avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh13 = 276 + (((Th131avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th131avg <= 100 Then
ch13 = 2131 + (((Th131avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh13 = 852.02 + (((Th131avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh13 = 319.5075 + (((Th131avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh13 = 0.138 + (((Th131avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh13 = 490 + (((Th131avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th131avg <= 80 Then
ch13 = 2047 + (((Th131avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh13 = 864.04 + (((Th131avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh13 = 0.072492956 + (((Th131avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh13 = 0.14 + (((Th131avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh13 = 1050 + (((Th131avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th131avg <= 60 Then
ch13 = 1964 + (((Th131avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh13 = 876.05 + (((Th131avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh13 = 0.210252 + (((Th131avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh13 = 0.144 + (((Th131avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh13 = 2870 + (((Th131avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th131avg <= 40 Then
ch13 = 1880 + (((Th131avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh13 = 888.23 + (((Th131avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh13 = 0.799407 + (((Th131avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh13 = 0.145 + (((Th131avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh13 = 10400 + (((Th131avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th131avg <= 20 Then
ch13 = 1796 + (((Th131avg) / (20)) * (1880 - 1796))
rhoh13 = 899.12 + (((Th131avg) / (20)) * (888.23 - 899.12))
dynh13 = 3.84823 + (((Th131avg) / (20)) * (0.799407 - 3.84823))
kh13 = 0.147 + (((Th131avg) / (20)) * (0.145 - 0.147))
prh13 = 47100 + (((Th131avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th141avg <= 160 Then 'first flow channel,fourth partition
ch14 = 2395 + (((Th141avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh14 = 816.94 + (((Th141avg - 140) / (160 - 140)) * (805 - 816.94))
dynh14 = 65.3552 + (((Th141avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh14 = 0.133 + (((Th141avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh14 = 116 + (((Th141avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th141avg <= 140 Then
ch14 = 2307 + (((Th141avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh14 = 828.96 + (((Th141avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh14 = 102.79104 + (((Th141avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh14 = 0.135 + (((Th141avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh14 = 175 + (((Th141avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th141avg <= 120 Then
ch14 = 2219 + (((Th141avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh14 = 840.01 + (((Th141avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh14 = 170.52203 + (((Th141avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh14 = 0.137 + (((Th141avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh14 = 276 + (((Th141avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th141avg <= 100 Then
ch14 = 2131 + (((Th141avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh14 = 852.02 + (((Th141avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh14 = 319.5075 + (((Th141avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh14 = 0.138 + (((Th141avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh14 = 490 + (((Th141avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th141avg <= 80 Then
ch14 = 2047 + (((Th141avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh14 = 864.04 + (((Th141avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh14 = 0.072492956 + (((Th141avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh14 = 0.14 + (((Th141avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh14 = 1050 + (((Th141avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th141avg <= 60 Then
ch14 = 1964 + (((Th141avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh14 = 876.05 + (((Th141avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh14 = 0.210252 + (((Th141avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh14 = 0.144 + (((Th141avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh14 = 2870 + (((Th141avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th141avg <= 40 Then
ch14 = 1880 + (((Th141avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh14 = 888.23 + (((Th141avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh14 = 0.799407 + (((Th141avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh14 = 0.145 + (((Th141avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh14 = 10400 + (((Th141avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th141avg <= 20 Then
ch14 = 1796 + (((Th141avg) / (20)) * (1880 - 1796))
rhoh14 = 899.12 + (((Th141avg) / (20)) * (888.23 - 899.12))
dynh14 = 3.84823 + (((Th141avg) / (20)) * (0.799407 - 3.84823))
kh14 = 0.147 + (((Th141avg) / (20)) * (0.145 - 0.147))
prh14 = 47100 + (((Th141avg) / (20)) * (10400 - 47100))


End If
End If
End If

If 140 <= Th151avg <= 160 Then 'first flow channel,fifth partition
ch15 = 2395 + (((Th151avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh15 = 816.94 + (((Th151avg - 140) / (160 - 140)) * (805 - 816.94))
dynh15 = 65.3552 + (((Th151avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh15 = 0.133 + (((Th151avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh15 = 116 + (((Th151avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th151avg <= 140 Then
ch15 = 2307 + (((Th151avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh15 = 828.96 + (((Th151avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh15 = 102.79104 + (((Th151avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh15 = 0.135 + (((Th151avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh15 = 175 + (((Th151avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th151avg <= 120 Then
ch15 = 2219 + (((Th151avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh15 = 840.01 + (((Th151avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh15 = 170.52203 + (((Th151avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh15 = 0.137 + (((Th151avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh15 = 276 + (((Th151avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th151avg <= 100 Then
ch15 = 2131 + (((Th151avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh15 = 852.02 + (((Th151avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh15 = 319.5075 + (((Th151avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh15 = 0.138 + (((Th151avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh15 = 490 + (((Th151avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th151avg <= 80 Then
ch15 = 2047 + (((Th151avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh15 = 864.04 + (((Th151avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh15 = 0.072492956 + (((Th151avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh15 = 0.14 + (((Th151avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh15 = 1050 + (((Th151avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th151avg <= 60 Then
ch15 = 1964 + (((Th151avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh15 = 876.05 + (((Th151avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh15 = 0.210252 + (((Th151avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh15 = 0.144 + (((Th151avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh15 = 2870 + (((Th151avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th151avg <= 40 Then
ch15 = 1880 + (((Th151avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh15 = 888.23 + (((Th151avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh15 = 0.799407 + (((Th151avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh15 = 0.145 + (((Th151avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh15 = 10400 + (((Th151avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th151avg <= 20 Then
ch15 = 1796 + (((Th151avg) / (20)) * (1880 - 1796))
rhoh15 = 899.12 + (((Th151avg) / (20)) * (888.23 - 899.12))
dynh15 = 3.84823 + (((Th151avg) / (20)) * (0.799407 - 3.84823))
kh15 = 0.147 + (((Th151avg) / (20)) * (0.145 - 0.147))
prh15 = 47100 + (((Th151avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th161avg <= 160 Then 'first flow channel,sixth partition
ch16 = 2395 + (((Th161avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh16 = 816.94 + (((Th161avg - 140) / (160 - 140)) * (805 - 816.94))
dynh16 = 65.3552 + (((Th161avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh16 = 0.133 + (((Th161avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh16 = 116 + (((Th161avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th161avg <= 140 Then
ch16 = 2307 + (((Th161avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh16 = 828.96 + (((Th161avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh16 = 102.79104 + (((Th161avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh16 = 0.135 + (((Th161avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh16 = 175 + (((Th161avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th161avg <= 120 Then
ch16 = 2219 + (((Th161avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh16 = 840.01 + (((Th161avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh16 = 170.52203 + (((Th161avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh16 = 0.137 + (((Th161avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh16 = 276 + (((Th161avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th161avg <= 100 Then
ch16 = 2131 + (((Th161avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh16 = 852.02 + (((Th161avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh16 = 319.5075 + (((Th161avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh16 = 0.138 + (((Th161avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh16 = 490 + (((Th161avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th161avg <= 80 Then
ch16 = 2047 + (((Th161avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh16 = 864.04 + (((Th161avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh16 = 0.072492956 + (((Th161avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh16 = 0.14 + (((Th161avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh16 = 1050 + (((Th161avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th161avg <= 60 Then
ch16 = 1964 + (((Th161avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh16 = 876.05 + (((Th161avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh16 = 0.210252 + (((Th161avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh16 = 0.144 + (((Th161avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh16 = 2870 + (((Th161avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th161avg <= 40 Then
ch16 = 1880 + (((Th161avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh16 = 888.23 + (((Th161avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh16 = 0.799407 + (((Th161avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh16 = 0.145 + (((Th161avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh16 = 10400 + (((Th161avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th161avg <= 20 Then
ch16 = 1796 + (((Th161avg) / (20)) * (1880 - 1796))
rhoh16 = 899.12 + (((Th161avg) / (20)) * (888.23 - 899.12))
dynh16 = 3.84823 + (((Th161avg) / (20)) * (0.799407 - 3.84823))
kh16 = 0.147 + (((Th161avg) / (20)) * (0.145 - 0.147))
prh16 = 47100 + (((Th161avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th171avg <= 160 Then 'first flow channel,seventh partition
ch17 = 2395 + (((Th171avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh17 = 816.94 + (((Th171avg - 140) / (160 - 140)) * (805 - 816.94))
dynh17 = 65.3552 + (((Th171avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh17 = 0.133 + (((Th171avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh17 = 116 + (((Th171avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th171avg <= 140 Then
ch17 = 2307 + (((Th171avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh17 = 828.96 + (((Th171avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh17 = 102.79104 + (((Th171avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh17 = 0.135 + (((Th171avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh17 = 175 + (((Th171avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th171avg <= 120 Then
ch17 = 2219 + (((Th171avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh17 = 840.01 + (((Th171avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh17 = 170.52203 + (((Th171avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh17 = 0.137 + (((Th171avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh17 = 276 + (((Th171avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th171avg <= 100 Then
ch17 = 2131 + (((Th171avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh17 = 852.02 + (((Th171avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh17 = 319.5075 + (((Th171avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh17 = 0.138 + (((Th171avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh17 = 490 + (((Th171avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th171avg <= 80 Then
ch17 = 2047 + (((Th171avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh17 = 864.04 + (((Th171avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh17 = 0.072492956 + (((Th171avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh17 = 0.14 + (((Th171avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh17 = 1050 + (((Th171avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th171avg <= 60 Then
ch17 = 1964 + (((Th171avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh17 = 876.05 + (((Th171avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh17 = 0.210252 + (((Th171avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh17 = 0.144 + (((Th171avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh17 = 2870 + (((Th171avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th171avg <= 40 Then
ch17 = 1880 + (((Th171avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh17 = 888.23 + (((Th171avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh17 = 0.799407 + (((Th171avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh17 = 0.145 + (((Th171avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh17 = 10400 + (((Th171avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th171avg <= 20 Then
ch17 = 1796 + (((Th171avg) / (20)) * (1880 - 1796))
rhoh17 = 899.12 + (((Th171avg) / (20)) * (888.23 - 899.12))
dynh17 = 3.84823 + (((Th171avg) / (20)) * (0.799407 - 3.84823))
kh17 = 0.147 + (((Th171avg) / (20)) * (0.145 - 0.147))
prh17 = 47100 + (((Th171avg) / (20)) * (10400 - 47100))

End If
End If
End If


If 140 <= Th181avg <= 160 Then 'first flow channel,eight partition
ch18 = 2395 + (((Th181avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh18 = 816.94 + (((Th181avg - 140) / (160 - 140)) * (805 - 816.94))
dynh18 = 65.3552 + (((Th181avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh18 = 0.133 + (((Th181avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh18 = 116 + (((Th181avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th181avg <= 140 Then
ch18 = 2307 + (((Th181avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh18 = 828.96 + (((Th181avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh18 = 102.79104 + (((Th181avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh18 = 0.135 + (((Th181avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh18 = 175 + (((Th181avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th181avg <= 120 Then
ch18 = 2219 + (((Th181avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh18 = 840.01 + (((Th181avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh18 = 170.52203 + (((Th181avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh18 = 0.137 + (((Th181avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh18 = 276 + (((Th181avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th181avg <= 100 Then
ch18 = 2131 + (((Th181avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh18 = 852.02 + (((Th181avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh18 = 319.5075 + (((Th181avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh18 = 0.138 + (((Th181avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh18 = 490 + (((Th181avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th181avg <= 80 Then
ch18 = 2047 + (((Th181avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh18 = 864.04 + (((Th181avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh18 = 0.072492956 + (((Th181avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh18 = 0.14 + (((Th181avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh18 = 1050 + (((Th181avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th181avg <= 60 Then
ch18 = 1964 + (((Th181avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh18 = 876.05 + (((Th181avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh18 = 0.210252 + (((Th181avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh18 = 0.144 + (((Th181avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh18 = 2870 + (((Th181avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th181avg <= 40 Then
ch18 = 1880 + (((Th181avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh18 = 888.23 + (((Th181avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh18 = 0.799407 + (((Th181avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh18 = 0.145 + (((Th181avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh18 = 10400 + (((Th181avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th181avg <= 20 Then
ch18 = 1796 + (((Th181avg) / (20)) * (1880 - 1796))
rhoh18 = 899.12 + (((Th181avg) / (20)) * (888.23 - 899.12))
dynh18 = 3.84823 + (((Th181avg) / (20)) * (0.799407 - 3.84823))
kh18 = 0.147 + (((Th181avg) / (20)) * (0.145 - 0.147))
prh18 = 47100 + (((Th181avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th191avg <= 160 Then
ch19 = 2395 + (((Th191avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh19 = 816.94 + (((Th191avg - 140) / (160 - 140)) * (805 - 816.94))
dynh19 = 65.3552 + (((Th191avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh19 = 0.133 + (((Th191avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh19 = 116 + (((Th191avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th191avg <= 140 Then
ch19 = 2307 + (((Th191avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh19 = 828.96 + (((Th191avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh19 = 102.79104 + (((Th191avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh19 = 0.135 + (((Th191avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh19 = 175 + (((Th191avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th191avg <= 120 Then
ch19 = 2219 + (((Th191avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh19 = 840.01 + (((Th191avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh19 = 170.52203 + (((Th191avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh19 = 0.137 + (((Th191avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh19 = 276 + (((Th191avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th191avg <= 100 Then
ch19 = 2131 + (((Th191avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh19 = 852.02 + (((Th191avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh19 = 319.5075 + (((Th191avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh19 = 0.138 + (((Th191avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh19 = 490 + (((Th191avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th191avg <= 80 Then
ch19 = 2047 + (((Th191avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh19 = 864.04 + (((Th191avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh19 = 0.072492956 + (((Th191avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh19 = 0.14 + (((Th191avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh19 = 1050 + (((Th191avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th191avg <= 60 Then
ch19 = 1964 + (((Th191avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh19 = 876.05 + (((Th191avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh19 = 0.210252 + (((Th191avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh19 = 0.144 + (((Th191avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh19 = 2870 + (((Th191avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th191avg <= 40 Then
ch19 = 1880 + (((Th191avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh19 = 888.23 + (((Th191avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh19 = 0.799407 + (((Th191avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh19 = 0.145 + (((Th191avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh19 = 10400 + (((Th191avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th191avg <= 20 Then
ch19 = 1796 + (((Th191avg) / (20)) * (1880 - 1796))
rhoh19 = 899.12 + (((Th191avg) / (20)) * (888.23 - 899.12))
dynh19 = 3.84823 + (((Th191avg) / (20)) * (0.799407 - 3.84823))
kh19 = 0.147 + (((Th191avg) / (20)) * (0.145 - 0.147))
prh19 = 47100 + (((Th191avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th1101avg <= 160 Then
ch110 = 2395 + (((Th1101avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh110 = 816.94 + (((Th1101avg - 140) / (160 - 140)) * (805 - 816.94))
dynh110 = 65.3552 + (((Th1101avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh110 = 0.133 + (((Th1101avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh110 = 116 + (((Th1101avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th1101avg <= 140 Then
ch110 = 2307 + (((Th1101avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh110 = 828.96 + (((Th1101avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh110 = 102.79104 + (((Th1101avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh110 = 0.135 + (((Th1101avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh110 = 175 + (((Th1101avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th1101avg <= 120 Then
ch110 = 2219 + (((Th1101avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh110 = 840.01 + (((Th1101avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh110 = 170.52203 + (((Th1101avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh110 = 0.137 + (((Th1101avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh110 = 276 + (((Th1101avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th1101avg <= 100 Then
ch110 = 2131 + (((Th1101avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh110 = 852.02 + (((Th1101avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh110 = 319.5075 + (((Th1101avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh110 = 0.138 + (((Th1101avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh110 = 490 + (((Th1101avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th1101avg <= 80 Then
ch110 = 2047 + (((Th1101avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh110 = 864.04 + (((Th1101avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh110 = 0.072492956 + (((Th1101avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh110 = 0.14 + (((Th1101avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh110 = 1050 + (((Th1101avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th1101avg <= 60 Then
ch110 = 1964 + (((Th1101avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh110 = 876.05 + (((Th1101avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh110 = 0.210252 + (((Th1101avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh110 = 0.144 + (((Th1101avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh110 = 2870 + (((Th1101avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th1101avg <= 40 Then
ch110 = 1880 + (((Th1101avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh110 = 888.23 + (((Th1101avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh110 = 0.799407 + (((Th1101avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh110 = 0.145 + (((Th1101avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh110 = 10400 + (((Th1101avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th1101avg <= 20 Then
ch110 = 1796 + (((Th1101avg) / (20)) * (1880 - 1796))
rhoh110 = 899.12 + (((Th1101avg) / (20)) * (888.23 - 899.12))
dynh110 = 3.84823 + (((Th1101avg) / (20)) * (0.799407 - 3.84823))
kh110 = 0.147 + (((Th1101avg) / (20)) * (0.145 - 0.147))
prh110 = 47100 + (((Th1101avg) / (20)) * (10400 - 47100))


End If
End If
End If


If 140 <= Th1111 <= 160 Then
ch111 = 2395 + (((Th1111 - 140) / (160 - 140)) * (2483 - 2395))
rhoh111 = 816.94 + (((Th1111 - 140) / (160 - 140)) * (805 - 816.94))
dynh111 = 65.3552 + (((Th1111 - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh111 = 0.133 + (((Th1111 - 140) / (160 - 140)) * (0.132 - 0.133))
prh111 = 116 + (((Th1111 - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th1111 <= 140 Then
ch111 = 2307 + (((Th1111 - 120) / (140 - 120)) * (2395 - 2307))
rhoh111 = 828.96 + (((Th1111 - 120) / (140 - 120)) * (816.94 - 828.96))
dynh111 = 102.79104 + (((Th1111 - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh111 = 0.135 + (((Th1111 - 120) / (140 - 120)) * (0.133 - 0.135))
prh111 = 175 + (((Th1111 - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th1111 <= 120 Then
ch111 = 2219 + (((Th1111 - 100) / (120 - 100)) * (2307 - 2219))
rhoh111 = 840.01 + (((Th1111 - 100) / (120 - 100)) * (828.96 - 840.01))
dynh111 = 170.52203 + (((Th1111 - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh111 = 0.137 + (((Th1111 - 100) / (120 - 100)) * (0.135 - 0.137))
prh111 = 276 + (((Th1111 - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th1111 <= 100 Then
ch111 = 2131 + (((Th1111 - 80) / (100 - 80)) * (2219 - 2131))
rhoh111 = 852.02 + (((Th1111 - 80) / (100 - 80)) * (840.01 - 852.02))
dynh111 = 319.5075 + (((Th1111 - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh111 = 0.138 + (((Th1111 - 80) / (100 - 80)) * (0.137 - 0.138))
prh111 = 490 + (((Th1111 - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th1111 <= 80 Then
ch111 = 2047 + (((Th1111 - 60) / (80 - 60)) * (2131 - 2047))
rhoh111 = 864.04 + (((Th1111 - 60) / (80 - 60)) * (852.02 - 864.04))
dynh111 = 0.072492956 + (((Th1111 - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh111 = 0.14 + (((Th1111 - 60) / (80 - 60)) * (0.138 - 0.14))
prh111 = 1050 + (((Th1111 - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th1111 <= 60 Then
ch111 = 1964 + (((Th1111 - 40) / (60 - 40)) * (2047 - 1964))
rhoh111 = 876.05 + (((Th1111 - 40) / (60 - 40)) * (864.04 - 876.05))
dynh111 = 0.210252 + (((Th1111 - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh111 = 0.144 + (((Th1111 - 40) / (60 - 40)) * (0.14 - 0.144))
prh111 = 2870 + (((Th1111 - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th1111 <= 40 Then
ch111 = 1880 + (((Th1111 - 20) / (40 - 20)) * (1964 - 1880))
rhoh111 = 888.23 + (((Th1111 - 20) / (40 - 20)) * (876.05 - 888.23))
dynh111 = 0.799407 + (((Th1111 - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh111 = 0.145 + (((Th1111 - 20) / (40 - 20)) * (0.144 - 0.145))
prh111 = 10400 + (((Th1111 - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th1111 <= 20 Then
ch111 = 1796 + (((Th1111) / (20)) * (1880 - 1796))
rhoh111 = 899.12 + (((Th1111) / (20)) * (888.23 - 899.12))
dynh111 = 3.84823 + (((Th1111) / (20)) * (0.799407 - 3.84823))
kh111 = 0.147 + (((Th1111) / (20)) * (0.145 - 0.147))
prh111 = 47100 + (((Th1111) / (20)) * (10400 - 47100))


End If
End If
End If




If 0 <= Tc211avg <= 4.44 Then 'second flow channel,first partion
cc21 = 4225 + (((Tc211avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc21 = 999.8 + (((Tc211avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync21 = 0.00179 + (((Tc211avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc21 = 0.566 + (((Tc211avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc21 = 13.25 + (((Tc211avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc211avg <= 10 Then
cc21 = 4208 + (((Tc211avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc21 = 999.8 + (((Tc211avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync21 = 1.55 + (((Tc211avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc21 = 0.575 + (((Tc211avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc21 = 11.35 + (((Tc211avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc211avg <= 15.56 Then
cc21 = 4195 + (((Tc211avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc21 = 999.2 + (((Tc211avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync21 = 1.31 + (((Tc211avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc21 = 0.585 + (((Tc211avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc21 = 9.4 + (((Tc211avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc211avg <= 21.11 Then
cc21 = 4186 + (((Tc211avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc21 = 998.6 + (((Tc211avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync21 = 1.12 + (((Tc211avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc21 = 0.595 + (((Tc211avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc21 = 7.88 + (((Tc211avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc211avg <= 26.67 Then
cc21 = 4179 + (((Tc211avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc21 = 997.4 + (((Tc211avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync21 = 0.00098 + (((Tc211avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc21 = 0.604 + (((Tc211avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc21 = 6.78 + (((Tc211avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc211avg <= 32.22 Then
cc21 = 4179 + (((Tc211avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc21 = 995.8 + (((Tc211avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync21 = 8.6 + (((Tc211avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc21 = 0.614 + (((Tc211avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc21 = 5.85 + (((Tc211avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc211avg <= 37.78 Then
cc21 = 4174 + (((Tc211avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc21 = 994.9 + (((Tc211avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync21 = 7.65 + (((Tc211avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc21 = 0.623 + (((Tc211avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc21 = 5.12 + (((Tc211avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc211avg <= 43.33 Then
cc21 = 4174 + (((Tc211avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc21 = 993 + (((Tc211avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync21 = 6.82 + (((Tc211avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc21 = 0.63 + (((Tc211avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc21 = 4.53 + (((Tc211avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc211avg <= 48.89 Then
cc21 = 4174 + (((Tc211avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc21 = 990.6 + (((Tc211avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync21 = 6.16 + (((Tc211avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc21 = 0.637 + (((Tc211avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc21 = 4.04 + (((Tc211avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc211avg <= 54.44 Then
cc21 = 4174 + (((Tc211avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc21 = 998.8 + (((Tc211avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync21 = 5.62 + (((Tc211avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc21 = 0.644 + (((Tc211avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc21 = 3.64 + (((Tc211avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc211avg <= 60 Then
cc21 = 4179 + (((Tc211avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc21 = 985.7 + (((Tc211avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync21 = 5.13 + (((Tc211avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc21 = 0.649 + (((Tc211avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc21 = 3.3 + (((Tc211avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc211avg <= 65.55 Then
cc21 = 4179 + (((Tc211avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc21 = 983.3 + (((Tc211avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync21 = 4.71 + (((Tc211avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc21 = 0.654 + (((Tc211avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc21 = 3.01 + (((Tc211avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc211avg <= 71.11 Then
cc21 = 4183 + (((Tc211avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc21 = 980.3 + (((Tc211avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync21 = 4.3 + (((Tc211avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc21 = 0.659 + (((Tc211avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc21 = 2.73 + (((Tc211avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc211avg <= 76.67 Then
cc21 = 4186 + (((Tc211avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc21 = 977.3 + (((Tc211avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync21 = 4.01 + (((Tc211avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc21 = 0.665 + (((Tc211avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc21 = 2.53 + (((Tc211avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc211avg <= 82.22 Then
cc21 = 4191 + (((Tc211avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc21 = 973.7 + (((Tc211avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync21 = 3.72 + (((Tc211avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc21 = 0.668 + (((Tc211avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc21 = 2.33 + (((Tc211avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc211avg <= 87.78 Then
cc21 = 4195 + (((Tc211avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc21 = 970.2 + (((Tc211avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync21 = 3.47 + (((Tc211avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc21 = 0.673 + (((Tc211avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc21 = 2.16 + (((Tc211avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc211avg <= 93.33 Then
cc21 = 4199 + (((Tc211avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc21 = 966.7 + (((Tc211avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync21 = 3.27 + (((Tc211avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc21 = 0.675 + (((Tc211avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc21 = 2.03 + (((Tc211avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc211avg <= 104.4 Then
cc21 = 4204 + (((Tc211avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc21 = 963.2 + (((Tc211avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync21 = 3.06 + (((Tc211avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc21 = 0.678 + (((Tc211avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc21 = 1.9 + (((Tc211avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc221avg <= 4.44 Then 'second flow channel,second partition
cc22 = 4225 + (((Tc221avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc22 = 999.8 + (((Tc221avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync22 = 0.00179 + (((Tc221avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc22 = 0.566 + (((Tc221avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc22 = 13.25 + (((Tc221avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc221avg <= 10 Then
cc22 = 4208 + (((Tc221avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc22 = 999.8 + (((Tc221avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync22 = 1.55 + (((Tc221avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc22 = 0.575 + (((Tc221avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc22 = 11.35 + (((Tc221avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc221avg <= 15.56 Then
cc22 = 4195 + (((Tc221avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc22 = 999.2 + (((Tc221avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync22 = 1.31 + (((Tc221avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc22 = 0.585 + (((Tc221avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc22 = 9.4 + (((Tc221avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc221avg <= 21.11 Then
cc22 = 4186 + (((Tc221avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc22 = 998.6 + (((Tc221avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync22 = 1.12 + (((Tc221avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc22 = 0.595 + (((Tc221avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc22 = 7.88 + (((Tc221avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc221avg <= 26.67 Then
cc22 = 4179 + (((Tc221avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc22 = 997.4 + (((Tc221avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync22 = 0.00098 + (((Tc221avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc22 = 0.604 + (((Tc221avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc22 = 6.78 + (((Tc221avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc221avg <= 32.22 Then
cc22 = 4179 + (((Tc221avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc22 = 995.8 + (((Tc221avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync22 = 8.6 + (((Tc221avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc22 = 0.614 + (((Tc221avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc22 = 5.85 + (((Tc221avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc221avg <= 37.78 Then
cc22 = 4174 + (((Tc221avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc22 = 994.9 + (((Tc221avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync22 = 7.65 + (((Tc221avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc22 = 0.623 + (((Tc221avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc22 = 5.12 + (((Tc221avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc221avg <= 43.33 Then
cc22 = 4174 + (((Tc221avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc22 = 993 + (((Tc221avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync22 = 6.82 + (((Tc221avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc22 = 0.63 + (((Tc221avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc22 = 4.53 + (((Tc221avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc221avg <= 48.89 Then
cc22 = 4174 + (((Tc221avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc22 = 990.6 + (((Tc221avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync22 = 6.16 + (((Tc221avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc22 = 0.637 + (((Tc221avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc22 = 4.04 + (((Tc221avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc221avg <= 54.44 Then
cc22 = 4174 + (((Tc221avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc22 = 998.8 + (((Tc221avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync22 = 5.62 + (((Tc221avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc22 = 0.644 + (((Tc221avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc22 = 3.64 + (((Tc221avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc221avg <= 60 Then
cc22 = 4179 + (((Tc221avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc22 = 985.7 + (((Tc221avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync22 = 5.13 + (((Tc221avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc22 = 0.649 + (((Tc221avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc22 = 3.3 + (((Tc221avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc221avg <= 65.55 Then
cc22 = 4179 + (((Tc221avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc22 = 983.3 + (((Tc221avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync22 = 4.71 + (((Tc221avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc22 = 0.654 + (((Tc221avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc22 = 3.01 + (((Tc221avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc221avg <= 71.11 Then
cc22 = 4183 + (((Tc221avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc22 = 980.3 + (((Tc221avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync22 = 4.3 + (((Tc221avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc22 = 0.659 + (((Tc221avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc22 = 2.73 + (((Tc221avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc221avg <= 76.67 Then
cc22 = 4186 + (((Tc221avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc22 = 977.3 + (((Tc221avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync22 = 4.01 + (((Tc221avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc22 = 0.665 + (((Tc221avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc22 = 2.53 + (((Tc221avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc221avg <= 82.22 Then
cc22 = 4191 + (((Tc221avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc22 = 973.7 + (((Tc221avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync22 = 3.72 + (((Tc221avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc22 = 0.668 + (((Tc221avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc22 = 2.33 + (((Tc221avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc221avg <= 87.78 Then
cc22 = 4195 + (((Tc221avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc22 = 970.2 + (((Tc221avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync22 = 3.47 + (((Tc221avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc22 = 0.673 + (((Tc221avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc22 = 2.16 + (((Tc221avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc221avg <= 93.33 Then
cc22 = 4199 + (((Tc221avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc22 = 966.7 + (((Tc221avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync22 = 3.27 + (((Tc221avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc22 = 0.675 + (((Tc221avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc22 = 2.03 + (((Tc221avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc221avg <= 104.4 Then
cc22 = 4204 + (((Tc221avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc22 = 963.2 + (((Tc221avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync22 = 3.06 + (((Tc221avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc22 = 0.678 + (((Tc221avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc22 = 1.9 + (((Tc221avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc231avg <= 4.44 Then 'second flow channel,Third partition
cc23 = 4225 + (((Tc231avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc23 = 999.8 + (((Tc231avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync23 = 0.00179 + (((Tc231avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc23 = 0.566 + (((Tc231avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc23 = 13.25 + (((Tc231avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc231avg <= 10 Then
cc23 = 4208 + (((Tc231avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc23 = 999.8 + (((Tc231avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync23 = 1.55 + (((Tc231avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc23 = 0.575 + (((Tc231avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc23 = 11.35 + (((Tc231avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc231avg <= 15.56 Then
cc23 = 4195 + (((Tc231avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc23 = 999.2 + (((Tc231avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync23 = 1.31 + (((Tc231avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc23 = 0.585 + (((Tc231avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc23 = 9.4 + (((Tc231avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc231avg <= 21.11 Then
cc23 = 4186 + (((Tc231avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc23 = 998.6 + (((Tc231avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync23 = 1.12 + (((Tc231avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc23 = 0.595 + (((Tc231avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc23 = 7.88 + (((Tc231avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc231avg <= 26.67 Then
cc23 = 4179 + (((Tc231avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc23 = 997.4 + (((Tc231avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync23 = 0.00098 + (((Tc231avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc23 = 0.604 + (((Tc231avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc23 = 6.78 + (((Tc231avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc231avg <= 32.22 Then
cc23 = 4179 + (((Tc231avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc23 = 995.8 + (((Tc231avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync23 = 8.6 + (((Tc231avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc23 = 0.614 + (((Tc231avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc23 = 5.85 + (((Tc231avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc231avg <= 37.78 Then
cc23 = 4174 + (((Tc231avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc23 = 994.9 + (((Tc231avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync23 = 7.65 + (((Tc231avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc23 = 0.623 + (((Tc231avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc23 = 5.12 + (((Tc231avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc231avg <= 43.33 Then
cc23 = 4174 + (((Tc231avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc23 = 993 + (((Tc231avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync23 = 6.82 + (((Tc231avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc23 = 0.63 + (((Tc231avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc23 = 4.53 + (((Tc231avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc231avg <= 48.89 Then
cc23 = 4174 + (((Tc231avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc23 = 990.6 + (((Tc231avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync23 = 6.16 + (((Tc231avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc23 = 0.637 + (((Tc231avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc23 = 4.04 + (((Tc231avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc231avg <= 54.44 Then
cc23 = 4174 + (((Tc231avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc23 = 998.8 + (((Tc231avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync23 = 5.62 + (((Tc231avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc23 = 0.644 + (((Tc231avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc23 = 3.64 + (((Tc231avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc231avg <= 60 Then
cc23 = 4179 + (((Tc231avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc23 = 985.7 + (((Tc231avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync23 = 5.13 + (((Tc231avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc23 = 0.649 + (((Tc231avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc23 = 3.3 + (((Tc231avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc231avg <= 65.55 Then
cc23 = 4179 + (((Tc231avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc23 = 983.3 + (((Tc231avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync23 = 4.71 + (((Tc231avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc23 = 0.654 + (((Tc231avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc23 = 3.01 + (((Tc231avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc231avg <= 71.11 Then
cc23 = 4183 + (((Tc231avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc23 = 980.3 + (((Tc231avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync23 = 4.3 + (((Tc231avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc23 = 0.659 + (((Tc231avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc23 = 2.73 + (((Tc231avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc231avg <= 76.67 Then
cc23 = 4186 + (((Tc231avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc23 = 977.3 + (((Tc231avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync23 = 4.01 + (((Tc231avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc23 = 0.665 + (((Tc231avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc23 = 2.53 + (((Tc231avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc231avg <= 82.22 Then
cc23 = 4191 + (((Tc231avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc23 = 973.7 + (((Tc231avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync23 = 3.72 + (((Tc231avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc23 = 0.668 + (((Tc231avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc23 = 2.33 + (((Tc231avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc231avg <= 87.78 Then
cc23 = 4195 + (((Tc231avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc23 = 970.2 + (((Tc231avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync23 = 3.47 + (((Tc231avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc23 = 0.673 + (((Tc231avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc23 = 2.16 + (((Tc231avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc231avg <= 93.33 Then
cc23 = 4199 + (((Tc231avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc23 = 966.7 + (((Tc231avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync23 = 3.27 + (((Tc231avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc23 = 0.675 + (((Tc231avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc23 = 2.03 + (((Tc231avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc231avg <= 104.4 Then
cc23 = 4204 + (((Tc231avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc23 = 963.2 + (((Tc231avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync23 = 3.06 + (((Tc231avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc23 = 0.678 + (((Tc231avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc23 = 1.9 + (((Tc231avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If


If 0 <= Tc241avg <= 4.44 Then 'second flow channel,fourth partition
cc24 = 4225 + (((Tc241avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc24 = 999.8 + (((Tc241avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync24 = 0.00179 + (((Tc241avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc24 = 0.566 + (((Tc241avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc24 = 13.25 + (((Tc241avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc241avg <= 10 Then
cc24 = 4208 + (((Tc241avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc24 = 999.8 + (((Tc241avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync24 = 1.55 + (((Tc241avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc24 = 0.575 + (((Tc241avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc24 = 11.35 + (((Tc241avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc241avg <= 15.56 Then
cc24 = 4195 + (((Tc241avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc24 = 999.2 + (((Tc241avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync24 = 1.31 + (((Tc241avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc24 = 0.585 + (((Tc241avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc24 = 9.4 + (((Tc241avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc241avg <= 21.11 Then
cc24 = 4186 + (((Tc241avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc24 = 998.6 + (((Tc241avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync24 = 1.12 + (((Tc241avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc24 = 0.595 + (((Tc241avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc24 = 7.88 + (((Tc241avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc241avg <= 26.67 Then
cc24 = 4179 + (((Tc241avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc24 = 997.4 + (((Tc241avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync24 = 0.00098 + (((Tc241avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc24 = 0.604 + (((Tc241avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc24 = 6.78 + (((Tc241avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc241avg <= 32.22 Then
cc24 = 4179 + (((Tc241avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc24 = 995.8 + (((Tc241avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync24 = 8.6 + (((Tc241avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc24 = 0.614 + (((Tc241avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc24 = 5.85 + (((Tc241avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc241avg <= 37.78 Then
cc24 = 4174 + (((Tc241avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc24 = 994.9 + (((Tc241avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync24 = 7.65 + (((Tc241avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc24 = 0.623 + (((Tc241avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc24 = 5.12 + (((Tc241avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc241avg <= 43.33 Then
cc24 = 4174 + (((Tc241avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc24 = 993 + (((Tc241avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync24 = 6.82 + (((Tc241avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc24 = 0.63 + (((Tc241avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc24 = 4.53 + (((Tc241avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc241avg <= 48.89 Then
cc24 = 4174 + (((Tc241avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc24 = 990.6 + (((Tc241avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync24 = 6.16 + (((Tc241avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc24 = 0.637 + (((Tc241avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc24 = 4.04 + (((Tc241avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc241avg <= 54.44 Then
cc24 = 4174 + (((Tc241avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc24 = 998.8 + (((Tc241avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync24 = 5.62 + (((Tc241avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc24 = 0.644 + (((Tc241avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc24 = 3.64 + (((Tc241avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc241avg <= 60 Then
cc24 = 4179 + (((Tc241avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc24 = 985.7 + (((Tc241avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync24 = 5.13 + (((Tc241avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc24 = 0.649 + (((Tc241avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc24 = 3.3 + (((Tc241avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc241avg <= 65.55 Then
cc24 = 4179 + (((Tc241avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc24 = 983.3 + (((Tc241avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync24 = 4.71 + (((Tc241avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc24 = 0.654 + (((Tc241avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc24 = 3.01 + (((Tc241avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc241avg <= 71.11 Then
cc24 = 4183 + (((Tc241avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc24 = 980.3 + (((Tc241avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync24 = 4.3 + (((Tc241avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc24 = 0.659 + (((Tc241avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc24 = 2.73 + (((Tc241avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc241avg <= 76.67 Then
cc24 = 4186 + (((Tc241avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc24 = 977.3 + (((Tc241avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync24 = 4.01 + (((Tc241avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc24 = 0.665 + (((Tc241avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc24 = 2.53 + (((Tc241avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc241avg <= 82.22 Then
cc24 = 4191 + (((Tc241avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc24 = 973.7 + (((Tc241avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync24 = 3.72 + (((Tc241avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc24 = 0.668 + (((Tc241avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc24 = 2.33 + (((Tc241avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc241avg <= 87.78 Then
cc24 = 4195 + (((Tc241avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc24 = 970.2 + (((Tc241avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync24 = 3.47 + (((Tc241avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc24 = 0.673 + (((Tc241avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc24 = 2.16 + (((Tc241avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc241avg <= 93.33 Then
cc24 = 4199 + (((Tc241avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc24 = 966.7 + (((Tc241avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync24 = 3.27 + (((Tc241avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc24 = 0.675 + (((Tc241avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc24 = 2.03 + (((Tc241avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc241avg <= 104.4 Then
cc24 = 4204 + (((Tc241avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc24 = 963.2 + (((Tc241avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync24 = 3.06 + (((Tc241avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc24 = 0.678 + (((Tc241avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc24 = 1.9 + (((Tc241avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc251avg <= 4.44 Then 'second flow channel,fifth partition
cc25 = 4225 + (((Tc251avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc25 = 999.8 + (((Tc251avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync25 = 0.00179 + (((Tc251avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc25 = 0.566 + (((Tc251avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc25 = 13.25 + (((Tc251avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc251avg <= 10 Then
cc25 = 4208 + (((Tc251avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc25 = 999.8 + (((Tc251avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync25 = 1.55 + (((Tc251avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc25 = 0.575 + (((Tc251avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc25 = 11.35 + (((Tc251avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc251 <= 15.56 Then
cc25 = 4195 + (((Tc251avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc25 = 999.2 + (((Tc251avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync25 = 1.31 + (((Tc251avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc25 = 0.585 + (((Tc251avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc25 = 9.4 + (((Tc251avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc251avg <= 21.11 Then
cc25 = 4186 + (((Tc251avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc25 = 998.6 + (((Tc251avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync25 = 1.12 + (((Tc251avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc25 = 0.595 + (((Tc251avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc25 = 7.88 + (((Tc251avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc251avg <= 26.67 Then
cc25 = 4179 + (((Tc251avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc25 = 997.4 + (((Tc251avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync25 = 0.00098 + (((Tc251avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc25 = 0.604 + (((Tc251avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc25 = 6.78 + (((Tc251avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc251avg <= 32.22 Then
cc25 = 4179 + (((Tc251avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc25 = 995.8 + (((Tc251avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync25 = 8.6 + (((Tc251avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc25 = 0.614 + (((Tc251avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc25 = 5.85 + (((Tc251avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc251avg <= 37.78 Then
cc25 = 4174 + (((Tc251avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc25 = 994.9 + (((Tc251avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync25 = 7.65 + (((Tc251avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc25 = 0.623 + (((Tc251avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc25 = 5.12 + (((Tc251avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc251avg <= 43.33 Then
cc25 = 4174 + (((Tc251avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc25 = 993 + (((Tc251avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync25 = 6.82 + (((Tc251avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc25 = 0.63 + (((Tc251avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc25 = 4.53 + (((Tc251avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc251avg <= 48.89 Then
cc25 = 4174 + (((Tc251avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc25 = 990.6 + (((Tc251avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync25 = 6.16 + (((Tc251avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc25 = 0.637 + (((Tc251avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc25 = 4.04 + (((Tc251avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc251avg <= 54.44 Then
cc25 = 4174 + (((Tc251avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc25 = 998.8 + (((Tc251avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync25 = 5.62 + (((Tc251avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc25 = 0.644 + (((Tc251avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc25 = 3.64 + (((Tc251avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc251avg <= 60 Then
cc25 = 4179 + (((Tc251avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc25 = 985.7 + (((Tc251avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync25 = 5.13 + (((Tc251avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc25 = 0.649 + (((Tc251avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc25 = 3.3 + (((Tc251avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc251avg <= 65.55 Then
cc25 = 4179 + (((Tc251avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc25 = 983.3 + (((Tc251avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync25 = 4.71 + (((Tc251avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc25 = 0.654 + (((Tc251avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc25 = 3.01 + (((Tc251avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc251avg <= 71.11 Then
cc25 = 4183 + (((Tc251avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc25 = 980.3 + (((Tc251avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync25 = 4.3 + (((Tc251avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc25 = 0.659 + (((Tc251avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc25 = 2.73 + (((Tc251avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc251avg <= 76.67 Then
cc25 = 4186 + (((Tc251avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc25 = 977.3 + (((Tc251avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync25 = 4.01 + (((Tc251avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc25 = 0.665 + (((Tc251avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc25 = 2.53 + (((Tc251avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc251avg <= 82.22 Then
cc25 = 4191 + (((Tc251avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc25 = 973.7 + (((Tc251avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync25 = 3.72 + (((Tc251avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc25 = 0.668 + (((Tc251avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc25 = 2.33 + (((Tc251avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc251avg <= 87.78 Then
cc25 = 4195 + (((Tc251avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc25 = 970.2 + (((Tc251avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync25 = 3.47 + (((Tc251avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc25 = 0.673 + (((Tc251avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc25 = 2.16 + (((Tc251avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc251avg <= 93.33 Then
cc25 = 4199 + (((Tc251avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc25 = 966.7 + (((Tc251avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync25 = 3.27 + (((Tc251avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc25 = 0.675 + (((Tc251avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc25 = 2.03 + (((Tc251avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc251avg <= 104.4 Then
cc25 = 4204 + (((Tc251avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc25 = 963.2 + (((Tc251avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync25 = 3.06 + (((Tc251avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc25 = 0.678 + (((Tc251avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc25 = 1.9 + (((Tc251avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If
If 0 <= Tc261avg <= 4.44 Then 'second flow channel,sixth partition
cc26 = 4225 + (((Tc261avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc26 = 999.8 + (((Tc261avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync26 = 0.00179 + (((Tc261avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc26 = 0.566 + (((Tc261avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc26 = 13.25 + (((Tc261avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc261avg <= 10 Then
cc26 = 4208 + (((Tc261avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc26 = 999.8 + (((Tc261avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync26 = 1.55 + (((Tc261avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc26 = 0.575 + (((Tc261avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc26 = 11.35 + (((Tc261avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc261avg <= 15.56 Then
cc26 = 4195 + (((Tc261avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc26 = 999.2 + (((Tc261avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync26 = 1.31 + (((Tc261avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc26 = 0.585 + (((Tc261avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc26 = 9.4 + (((Tc261avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc261avg <= 21.11 Then
cc26 = 4186 + (((Tc261avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc26 = 998.6 + (((Tc261avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync26 = 1.12 + (((Tc261avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc26 = 0.595 + (((Tc261avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc26 = 7.88 + (((Tc261avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc261avg <= 26.67 Then
cc26 = 4179 + (((Tc261avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc26 = 997.4 + (((Tc261avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync26 = 0.00098 + (((Tc261avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc26 = 0.604 + (((Tc261avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc26 = 6.78 + (((Tc261avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc261avg <= 32.22 Then
cc26 = 4179 + (((Tc261avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc26 = 995.8 + (((Tc261avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync26 = 8.6 + (((Tc261avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc26 = 0.614 + (((Tc261avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc26 = 5.85 + (((Tc261avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc261avg <= 37.78 Then
cc26 = 4174 + (((Tc261avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc26 = 994.9 + (((Tc261avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync26 = 7.65 + (((Tc261avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc26 = 0.623 + (((Tc261avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc26 = 5.12 + (((Tc261avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc261avg <= 43.33 Then
cc26 = 4174 + (((Tc261avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc26 = 993 + (((Tc261avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync26 = 6.82 + (((Tc261avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc26 = 0.63 + (((Tc261avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc26 = 4.53 + (((Tc261avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc261avg <= 48.89 Then
cc26 = 4174 + (((Tc261avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc26 = 990.6 + (((Tc261avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync26 = 6.16 + (((Tc261avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc26 = 0.637 + (((Tc261avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc26 = 4.04 + (((Tc261avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc261avg <= 54.44 Then
cc26 = 4174 + (((Tc261avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc26 = 998.8 + (((Tc261avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync26 = 5.62 + (((Tc261avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc26 = 0.644 + (((Tc261avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc26 = 3.64 + (((Tc261avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc261avg <= 60 Then
cc26 = 4179 + (((Tc261avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc26 = 985.7 + (((Tc261avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync26 = 5.13 + (((Tc261avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc26 = 0.649 + (((Tc261avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc26 = 3.3 + (((Tc261avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc261avg <= 65.55 Then
cc26 = 4179 + (((Tc261avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc26 = 983.3 + (((Tc261avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync26 = 4.71 + (((Tc261avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc26 = 0.654 + (((Tc261avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc26 = 3.01 + (((Tc261avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc261avg <= 71.11 Then
cc26 = 4183 + (((Tc261avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc26 = 980.3 + (((Tc261avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync26 = 4.3 + (((Tc261avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc26 = 0.659 + (((Tc261avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc26 = 2.73 + (((Tc261avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc261avg <= 76.67 Then
cc26 = 4186 + (((Tc261avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc26 = 977.3 + (((Tc261avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync26 = 4.01 + (((Tc261avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc26 = 0.665 + (((Tc261avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc26 = 2.53 + (((Tc261avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc261avg <= 82.22 Then
cc26 = 4191 + (((Tc261avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc26 = 973.7 + (((Tc261avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync26 = 3.72 + (((Tc261avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc26 = 0.668 + (((Tc261avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc26 = 2.33 + (((Tc261avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc261avg <= 87.78 Then
cc26 = 4195 + (((Tc261avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc26 = 970.2 + (((Tc261avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync26 = 3.47 + (((Tc261avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc26 = 0.673 + (((Tc261avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc26 = 2.16 + (((Tc261avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc261avg <= 93.33 Then
cc26 = 4199 + (((Tc261avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc26 = 966.7 + (((Tc261avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync26 = 3.27 + (((Tc261avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc26 = 0.675 + (((Tc261avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc26 = 2.03 + (((Tc261avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc261avg <= 104.4 Then
cc26 = 4204 + (((Tc261avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc26 = 963.2 + (((Tc261avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync26 = 3.06 + (((Tc261avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc26 = 0.678 + (((Tc261avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc26 = 1.9 + (((Tc261avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc271avg <= 4.44 Then 'second flow channel,seventh partition
cc27 = 4225 + (((Tc271avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc27 = 999.8 + (((Tc271avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync27 = 0.00179 + (((Tc271avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc27 = 0.566 + (((Tc271avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc27 = 13.25 + (((Tc271avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc271avg <= 10 Then
cc27 = 4208 + (((Tc271avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc27 = 999.8 + (((Tc271avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync27 = 1.55 + (((Tc271avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc27 = 0.575 + (((Tc271avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc27 = 11.35 + (((Tc271avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc271avg <= 15.56 Then
cc27 = 4195 + (((Tc271avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc27 = 999.2 + (((Tc271avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync27 = 1.31 + (((Tc271avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc27 = 0.585 + (((Tc271avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc27 = 9.4 + (((Tc271avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc271avg <= 21.11 Then
cc27 = 4186 + (((Tc271avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc27 = 998.6 + (((Tc271avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync27 = 1.12 + (((Tc271avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc27 = 0.595 + (((Tc271avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc27 = 7.88 + (((Tc271avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc271avg <= 26.67 Then
cc27 = 4179 + (((Tc271avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc27 = 997.4 + (((Tc271avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync27 = 0.00098 + (((Tc271avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc27 = 0.604 + (((Tc271avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc27 = 6.78 + (((Tc271avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc271avg <= 32.22 Then
cc27 = 4179 + (((Tc271avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc27 = 995.8 + (((Tc271avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync27 = 8.6 + (((Tc271avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc27 = 0.614 + (((Tc271avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc27 = 5.85 + (((Tc271avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc271avg <= 37.78 Then
cc27 = 4174 + (((Tc271avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc27 = 994.9 + (((Tc271avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync27 = 7.65 + (((Tc271avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc27 = 0.623 + (((Tc271avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc27 = 5.12 + (((Tc271avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc271avg <= 43.33 Then
cc27 = 4174 + (((Tc271avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc27 = 993 + (((Tc271avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync27 = 6.82 + (((Tc271avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc27 = 0.63 + (((Tc271avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc27 = 4.53 + (((Tc271avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc271avg <= 48.89 Then
cc27 = 4174 + (((Tc271avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc27 = 990.6 + (((Tc271avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync27 = 6.16 + (((Tc271avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc27 = 0.637 + (((Tc271avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc27 = 4.04 + (((Tc271avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc271avg <= 54.44 Then
cc27 = 4174 + (((Tc271avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc27 = 998.8 + (((Tc271avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync27 = 5.62 + (((Tc271avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc27 = 0.644 + (((Tc271avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc27 = 3.64 + (((Tc271avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc271avg <= 60 Then
cc27 = 4179 + (((Tc271avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc27 = 985.7 + (((Tc271avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync27 = 5.13 + (((Tc271avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc27 = 0.649 + (((Tc271avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc27 = 3.3 + (((Tc271avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc271avg <= 65.55 Then
cc27 = 4179 + (((Tc271avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc27 = 983.3 + (((Tc271avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync27 = 4.71 + (((Tc271avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc27 = 0.654 + (((Tc271avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc27 = 3.01 + (((Tc271avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc271avg <= 71.11 Then
cc27 = 4183 + (((Tc271avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc27 = 980.3 + (((Tc271avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync27 = 4.3 + (((Tc271avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc27 = 0.659 + (((Tc271avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc27 = 2.73 + (((Tc271avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc271avg <= 76.67 Then
cc27 = 4186 + (((Tc271avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc27 = 977.3 + (((Tc271avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync27 = 4.01 + (((Tc271avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc27 = 0.665 + (((Tc271avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc27 = 2.53 + (((Tc271avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc271avg <= 82.22 Then
cc27 = 4191 + (((Tc271avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc27 = 973.7 + (((Tc271avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync27 = 3.72 + (((Tc271avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc27 = 0.668 + (((Tc271avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc27 = 2.33 + (((Tc271avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc271avg <= 87.78 Then
cc27 = 4195 + (((Tc271avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc27 = 970.2 + (((Tc271avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync27 = 3.47 + (((Tc271avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc27 = 0.673 + (((Tc271avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc27 = 2.16 + (((Tc271avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc271avg <= 93.33 Then
cc27 = 4199 + (((Tc271avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc27 = 966.7 + (((Tc271avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync27 = 3.27 + (((Tc271avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc27 = 0.675 + (((Tc271avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc27 = 2.03 + (((Tc271avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc271avg <= 104.4 Then
cc27 = 4204 + (((Tc271avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc27 = 963.2 + (((Tc271avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync27 = 3.06 + (((Tc271avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc27 = 0.678 + (((Tc271avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc27 = 1.9 + (((Tc271avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc281avg <= 4.44 Then 'second flow channel,eighth partition
cc28 = 4225 + (((Tc281avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc28 = 999.8 + (((Tc281avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync28 = 0.00179 + (((Tc281avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc28 = 0.566 + (((Tc281avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc28 = 13.25 + (((Tc281avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc281avg <= 10 Then
cc28 = 4208 + (((Tc281avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc28 = 999.8 + (((Tc281avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync28 = 1.55 + (((Tc281avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc28 = 0.575 + (((Tc281avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc28 = 11.35 + (((Tc281avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc281avg <= 15.56 Then
cc28 = 4195 + (((Tc281avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc28 = 999.2 + (((Tc281avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync28 = 1.31 + (((Tc281avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc28 = 0.585 + (((Tc281avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc28 = 9.4 + (((Tc281avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc281avg <= 21.11 Then
cc28 = 4186 + (((Tc281avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc28 = 998.6 + (((Tc281avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync28 = 1.12 + (((Tc281avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc28 = 0.595 + (((Tc281avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc28 = 7.88 + (((Tc281avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc281avg <= 26.67 Then
cc28 = 4179 + (((Tc281avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc28 = 997.4 + (((Tc281avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync28 = 0.00098 + (((Tc281avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc28 = 0.604 + (((Tc281avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc28 = 6.78 + (((Tc281avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc281avg <= 32.22 Then
cc28 = 4179 + (((Tc281avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc28 = 995.8 + (((Tc281avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync28 = 8.6 + (((Tc281avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc28 = 0.614 + (((Tc281avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc28 = 5.85 + (((Tc281avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc281avg <= 37.78 Then
cc28 = 4174 + (((Tc281avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc28 = 994.9 + (((Tc281avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync28 = 7.65 + (((Tc281avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc28 = 0.623 + (((Tc281avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc28 = 5.12 + (((Tc281avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc281avg <= 43.33 Then
cc28 = 4174 + (((Tc281avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc28 = 993 + (((Tc281avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync28 = 6.82 + (((Tc281avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc28 = 0.63 + (((Tc281avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc28 = 4.53 + (((Tc281avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc281avg <= 48.89 Then
cc28 = 4174 + (((Tc281avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc28 = 990.6 + (((Tc281avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync28 = 6.16 + (((Tc281avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc28 = 0.637 + (((Tc281avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc28 = 4.04 + (((Tc281avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc281avg <= 54.44 Then
cc28 = 4174 + (((Tc281avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc28 = 998.8 + (((Tc281avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync28 = 5.62 + (((Tc281avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc28 = 0.644 + (((Tc281avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc28 = 3.64 + (((Tc281avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc281avg <= 60 Then
cc28 = 4179 + (((Tc281avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc28 = 985.7 + (((Tc281avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync28 = 5.13 + (((Tc281avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc28 = 0.649 + (((Tc281avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc28 = 3.3 + (((Tc281avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc281avg <= 65.55 Then
cc28 = 4179 + (((Tc281avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc28 = 983.3 + (((Tc281avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync28 = 4.71 + (((Tc281avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc28 = 0.654 + (((Tc281avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc28 = 3.01 + (((Tc281avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc281avg <= 71.11 Then
cc28 = 4183 + (((Tc281avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc28 = 980.3 + (((Tc281avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync28 = 4.3 + (((Tc281avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc28 = 0.659 + (((Tc281avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc28 = 2.73 + (((Tc281avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc281avg <= 76.67 Then
cc28 = 4186 + (((Tc281avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc28 = 977.3 + (((Tc281avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync28 = 4.01 + (((Tc281avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc28 = 0.665 + (((Tc281avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc28 = 2.53 + (((Tc281avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc281avg <= 82.22 Then
cc28 = 4191 + (((Tc281avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc28 = 973.7 + (((Tc281avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync28 = 3.72 + (((Tc281avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc28 = 0.668 + (((Tc281avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc28 = 2.33 + (((Tc281avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc281avg <= 87.78 Then
cc28 = 4195 + (((Tc281avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc28 = 970.2 + (((Tc281avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync28 = 3.47 + (((Tc281avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc28 = 0.673 + (((Tc281avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc28 = 2.16 + (((Tc281avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc281avg <= 93.33 Then
cc28 = 4199 + (((Tc281avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc28 = 966.7 + (((Tc281avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync28 = 3.27 + (((Tc281avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc28 = 0.675 + (((Tc281avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc28 = 2.03 + (((Tc281avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc281avg <= 104.4 Then
cc28 = 4204 + (((Tc281avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc28 = 963.2 + (((Tc281avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync28 = 3.06 + (((Tc281avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc28 = 0.678 + (((Tc281avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc28 = 1.9 + (((Tc281avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If




If 0 <= Tc291avg <= 4.44 Then 'second flow channel,ninth partition
cc29 = 4225 + (((Tc291avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc29 = 999.8 + (((Tc291avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync29 = 0.00179 + (((Tc291avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc29 = 0.566 + (((Tc291avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc29 = 13.25 + (((Tc291avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc291avg <= 10 Then
cc29 = 4208 + (((Tc291avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc29 = 999.8 + (((Tc291avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync29 = 1.55 + (((Tc291avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc29 = 0.575 + (((Tc291avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc29 = 11.35 + (((Tc291avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc291avg <= 15.56 Then
cc29 = 4195 + (((Tc291avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc29 = 999.2 + (((Tc291avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync29 = 1.31 + (((Tc291avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc29 = 0.585 + (((Tc291avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc29 = 9.4 + (((Tc291avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc291avg <= 21.11 Then
cc29 = 4186 + (((Tc291avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc29 = 998.6 + (((Tc291avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync29 = 1.12 + (((Tc291avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc29 = 0.595 + (((Tc291avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc29 = 7.88 + (((Tc291avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc291avg <= 26.67 Then
cc29 = 4179 + (((Tc291avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc29 = 997.4 + (((Tc291avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync29 = 0.00098 + (((Tc291avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc29 = 0.604 + (((Tc291avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc29 = 6.78 + (((Tc291avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc291avg <= 32.22 Then
cc29 = 4179 + (((Tc291avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc29 = 995.8 + (((Tc291avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync29 = 8.6 + (((Tc291avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc29 = 0.614 + (((Tc291avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc29 = 5.85 + (((Tc291avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc291avg <= 37.78 Then
cc29 = 4174 + (((Tc291avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc29 = 994.9 + (((Tc291avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync29 = 7.65 + (((Tc291avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc29 = 0.623 + (((Tc291avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc29 = 5.12 + (((Tc291avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc291avg <= 43.33 Then
cc29 = 4174 + (((Tc291avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc29 = 993 + (((Tc291avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync29 = 6.82 + (((Tc291avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc29 = 0.63 + (((Tc291avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc29 = 4.53 + (((Tc291avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc291avg <= 48.89 Then
cc29 = 4174 + (((Tc291avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc29 = 990.6 + (((Tc291avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync29 = 6.16 + (((Tc291avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc29 = 0.637 + (((Tc291avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc29 = 4.04 + (((Tc291avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc291avg <= 54.44 Then
cc29 = 4174 + (((Tc291avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc29 = 998.8 + (((Tc291avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync29 = 5.62 + (((Tc291avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc29 = 0.644 + (((Tc291avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc29 = 3.64 + (((Tc291avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc291avg <= 60 Then
cc29 = 4179 + (((Tc291avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc29 = 985.7 + (((Tc291avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync29 = 5.13 + (((Tc291avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc29 = 0.649 + (((Tc291avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc29 = 3.3 + (((Tc291avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc291avg <= 65.55 Then
cc29 = 4179 + (((Tc291avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc29 = 983.3 + (((Tc291avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync29 = 4.71 + (((Tc291avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc29 = 0.654 + (((Tc291avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc29 = 3.01 + (((Tc291avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc291avg <= 71.11 Then
cc29 = 4183 + (((Tc291avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc29 = 980.3 + (((Tc291avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync29 = 4.3 + (((Tc291avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc29 = 0.659 + (((Tc291avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc29 = 2.73 + (((Tc291avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc291avg <= 76.67 Then
cc29 = 4186 + (((Tc291avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc29 = 977.3 + (((Tc291avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync29 = 4.01 + (((Tc291avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc29 = 0.665 + (((Tc291avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc29 = 2.53 + (((Tc291avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc291avg <= 82.22 Then
cc29 = 4191 + (((Tc291avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc29 = 973.7 + (((Tc291avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync29 = 3.72 + (((Tc291avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc29 = 0.668 + (((Tc291avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc29 = 2.33 + (((Tc291avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc291avg <= 87.78 Then
cc29 = 4195 + (((Tc291avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc29 = 970.2 + (((Tc291avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync29 = 3.47 + (((Tc291avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc29 = 0.673 + (((Tc291avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc29 = 2.16 + (((Tc291avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc291avg <= 93.33 Then
cc29 = 4199 + (((Tc291avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc29 = 966.7 + (((Tc291avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync29 = 3.27 + (((Tc291avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc29 = 0.675 + (((Tc291avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc29 = 2.03 + (((Tc291avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc291avg <= 104.4 Then
cc29 = 4204 + (((Tc291avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc29 = 963.2 + (((Tc291avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync29 = 3.06 + (((Tc291avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc29 = 0.678 + (((Tc291avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc29 = 1.9 + (((Tc291avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc2101avg <= 4.44 Then 'second flow channel,tenth partition
cc210 = 4225 + (((Tc2101avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc210 = 999.8 + (((Tc2101avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync210 = 0.00179 + (((Tc2101avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc210 = 0.566 + (((Tc2101avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc210 = 13.25 + (((Tc2101avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc2101avg <= 10 Then
cc210 = 4208 + (((Tc2101avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc210 = 999.8 + (((Tc2101avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync210 = 1.55 + (((Tc2101avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc210 = 0.575 + (((Tc2101avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc210 = 11.35 + (((Tc2101avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc2101avg <= 15.56 Then
cc210 = 4195 + (((Tc2101avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc210 = 999.2 + (((Tc2101avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync210 = 1.31 + (((Tc2101avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc210 = 0.585 + (((Tc2101avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc210 = 9.4 + (((Tc2101avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc2101avg <= 21.11 Then
cc210 = 4186 + (((Tc2101avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc210 = 998.6 + (((Tc2101avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync210 = 1.12 + (((Tc2101avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc210 = 0.595 + (((Tc2101avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc210 = 7.88 + (((Tc2101avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc2101avg <= 26.67 Then
cc210 = 4179 + (((Tc2101avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc210 = 997.4 + (((Tc2101avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync210 = 0.00098 + (((Tc2101avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc210 = 0.604 + (((Tc2101avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc210 = 6.78 + (((Tc2101avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc2101avg <= 32.22 Then
cc210 = 4179 + (((Tc2101avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc210 = 995.8 + (((Tc2101avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync210 = 8.6 + (((Tc2101avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc210 = 0.614 + (((Tc2101avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc210 = 5.85 + (((Tc2101avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc2101avg <= 37.78 Then
cc210 = 4174 + (((Tc2101avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc210 = 994.9 + (((Tc2101avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync210 = 7.65 + (((Tc2101avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc210 = 0.623 + (((Tc2101avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc210 = 5.12 + (((Tc2101avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc2101avg <= 43.33 Then
cc210 = 4174 + (((Tc2101avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc210 = 993 + (((Tc2101avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync210 = 6.82 + (((Tc2101avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc210 = 0.63 + (((Tc2101avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc210 = 4.53 + (((Tc2101avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc2101avg <= 48.89 Then
cc210 = 4174 + (((Tc2101avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc210 = 990.6 + (((Tc2101avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync210 = 6.16 + (((Tc2101avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc210 = 0.637 + (((Tc2101avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc210 = 4.04 + (((Tc2101avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc2101avg <= 54.44 Then
cc210 = 4174 + (((Tc2101avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc210 = 998.8 + (((Tc2101avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync210 = 5.62 + (((Tc2101avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc210 = 0.644 + (((Tc2101avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc210 = 3.64 + (((Tc2101avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc2101avg <= 60 Then
cc210 = 4179 + (((Tc2101avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc210 = 985.7 + (((Tc2101avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync210 = 5.13 + (((Tc2101avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc210 = 0.649 + (((Tc2101avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc210 = 3.3 + (((Tc2101avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc2101avg <= 65.55 Then
cc210 = 4179 + (((Tc2101avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc210 = 983.3 + (((Tc2101avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync210 = 4.71 + (((Tc2101avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc210 = 0.654 + (((Tc2101avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc210 = 3.01 + (((Tc2101avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc2101avg <= 71.11 Then
cc210 = 4183 + (((Tc2101avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc210 = 980.3 + (((Tc2101avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync210 = 4.3 + (((Tc2101avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc210 = 0.659 + (((Tc2101avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc210 = 2.73 + (((Tc2101avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc2101avg <= 76.67 Then
cc210 = 4186 + (((Tc2101avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc210 = 977.3 + (((Tc2101avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync210 = 4.01 + (((Tc2101avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc210 = 0.665 + (((Tc2101avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc210 = 2.53 + (((Tc2101avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc2101avg <= 82.22 Then
cc210 = 4191 + (((Tc2101avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc210 = 973.7 + (((Tc2101avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync210 = 3.72 + (((Tc2101avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc210 = 0.668 + (((Tc2101avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc210 = 2.33 + (((Tc2101avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc2101avg <= 87.78 Then
cc210 = 4195 + (((Tc2101avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc210 = 970.2 + (((Tc2101avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync210 = 3.47 + (((Tc2101avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc210 = 0.673 + (((Tc2101avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc210 = 2.16 + (((Tc2101avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc2101avg <= 93.33 Then
cc210 = 4199 + (((Tc2101avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc210 = 966.7 + (((Tc2101avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync210 = 3.27 + (((Tc2101avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc210 = 0.675 + (((Tc2101avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc210 = 2.03 + (((Tc2101avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc2101avg <= 104.4 Then
cc210 = 4204 + (((Tc2101avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc210 = 963.2 + (((Tc2101avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync210 = 3.06 + (((Tc2101avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc210 = 0.678 + (((Tc2101avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc210 = 1.9 + (((Tc2101avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 140 <= Th311avg <= 160 Then 'Third flow channel,first partition

ch31 = 2395 + (((Th311avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh31 = 816.94 + (((Th311avg - 140) / (160 - 140)) * (805 - 816.94))
dynh31 = 65.3552 + (((Th311avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh31 = 0.133 + (((Th311avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh31 = 116 + (((Th311avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th311avg <= 140 Then
ch31 = 2307 + (((Th311avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh31 = 828.96 + (((Th311avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh31 = 102.79104 + (((Th311avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh31 = 0.135 + (((Th311avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh31 = 175 + (((Th311avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th311avg <= 120 Then
ch31 = 2219 + (((Th311avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh31 = 840.01 + (((Th311avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh31 = 170.52203 + (((Th311avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh31 = 0.137 + (((Th311avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh31 = 276 + (((Th311avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th311avg <= 100 Then
ch31 = 2131 + (((Th311avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh31 = 852.02 + (((Th311avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh31 = 319.5075 + (((Th311avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh31 = 0.138 + (((Th311avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh31 = 490 + (((Th311avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th311avg <= 80 Then
ch31 = 2047 + (((Th311avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh31 = 864.04 + (((Th311avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh31 = 0.072492956 + (((Th311avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh31 = 0.14 + (((Th311avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh31 = 1050 + (((Th311avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th311avg <= 60 Then
ch31 = 1964 + (((Th311avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh31 = 876.05 + (((Th311avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh31 = 0.210252 + (((Th311avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh31 = 0.144 + (((Th311avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh31 = 2870 + (((Th311avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th311avg <= 40 Then
ch31 = 1880 + (((Th311avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh31 = 888.23 + (((Th311avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh31 = 0.799407 + (((Th311avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh31 = 0.145 + (((Th311avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh31 = 10400 + (((Th311avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th311avg <= 20 Then
ch31 = 1796 + (((Th311avg) / (20)) * (1880 - 1796))
rhoh31 = 899.12 + (((Th311avg) / (20)) * (888.23 - 899.12))
dynh31 = 3.84823 + (((Th311avg) / (20)) * (0.799407 - 3.84823))
kh31 = 0.147 + (((Th311avg) / (20)) * (0.145 - 0.147))
prh31 = 47100 + (((Th311avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th321avg <= 160 Then 'Third flow channel,second partition

ch32 = 2395 + (((Th321avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh32 = 816.94 + (((Th321avg - 140) / (160 - 140)) * (805 - 816.94))
dynh32 = 65.3552 + (((Th321avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh32 = 0.133 + (((Th321avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh32 = 116 + (((Th321avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th321avg <= 140 Then
ch32 = 2307 + (((Th321avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh32 = 828.96 + (((Th321avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh32 = 102.79104 + (((Th321avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh32 = 0.135 + (((Th321avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh32 = 175 + (((Th321avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th321avg <= 120 Then
ch32 = 2219 + (((Th321avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh32 = 840.01 + (((Th321avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh32 = 170.52203 + (((Th321avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh32 = 0.137 + (((Th321avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh32 = 276 + (((Th321avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th321avg <= 100 Then
ch32 = 2131 + (((Th321avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh32 = 852.02 + (((Th321avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh32 = 319.5075 + (((Th321avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh32 = 0.138 + (((Th321avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh32 = 490 + (((Th321avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th321avg <= 80 Then
ch32 = 2047 + (((Th321avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh32 = 864.04 + (((Th321avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh32 = 0.072492956 + (((Th321avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh32 = 0.14 + (((Th321avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh32 = 1050 + (((Th321avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th321avg <= 60 Then
ch32 = 1964 + (((Th321avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh32 = 876.05 + (((Th321avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh32 = 0.210252 + (((Th321avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh32 = 0.144 + (((Th321avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh32 = 2870 + (((Th321avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th321avg <= 40 Then
ch32 = 1880 + (((Th321avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh32 = 888.23 + (((Th321avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh32 = 0.799407 + (((Th321avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh32 = 0.145 + (((Th321avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh32 = 10400 + (((Th321avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th321avg <= 20 Then
ch32 = 1796 + (((Th321avg) / (20)) * (1880 - 1796))
rhoh32 = 899.12 + (((Th321avg) / (20)) * (888.23 - 899.12))
dynh32 = 3.84823 + (((Th321avg) / (20)) * (0.799407 - 3.84823))
kh32 = 0.147 + (((Th321avg) / (20)) * (0.145 - 0.147))
prh32 = 47100 + (((Th321avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th331avg <= 160 Then 'Third flow channel,Third partition

ch33 = 2395 + (((Th331avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh33 = 816.94 + (((Th331avg - 140) / (160 - 140)) * (805 - 816.94))
dynh33 = 65.3552 + (((Th331avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh33 = 0.133 + (((Th331avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh33 = 116 + (((Th331avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th331avg <= 140 Then
ch33 = 2307 + (((Th331avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh33 = 828.96 + (((Th331avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh33 = 102.79104 + (((Th331avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh33 = 0.135 + (((Th331avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh33 = 175 + (((Th331avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th331avg <= 120 Then
ch33 = 2219 + (((Th331avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh33 = 840.01 + (((Th331avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh33 = 170.52203 + (((Th331avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh33 = 0.137 + (((Th331avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh33 = 276 + (((Th331avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th331avg <= 100 Then
ch33 = 2131 + (((Th331avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh33 = 852.02 + (((Th331avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh33 = 319.5075 + (((Th331avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh33 = 0.138 + (((Th331avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh33 = 490 + (((Th331avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th331avg <= 80 Then
ch33 = 2047 + (((Th331avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh33 = 864.04 + (((Th331avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh33 = 0.072492956 + (((Th331avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh33 = 0.14 + (((Th331avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh33 = 1050 + (((Th331avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th331avg <= 60 Then
ch33 = 1964 + (((Th331avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh33 = 876.05 + (((Th331avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh33 = 0.210252 + (((Th331avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh33 = 0.144 + (((Th331avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh33 = 2870 + (((Th331avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th331avg <= 40 Then
ch33 = 1880 + (((Th331avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh33 = 888.23 + (((Th331avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh33 = 0.799407 + (((Th331avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh33 = 0.145 + (((Th331avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh33 = 10400 + (((Th331avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th331avg <= 20 Then
ch33 = 1796 + (((Th331avg) / (20)) * (1880 - 1796))
rhoh33 = 899.12 + (((Th331avg) / (20)) * (888.23 - 899.12))
dynh33 = 3.84823 + (((Th331avg) / (20)) * (0.799407 - 3.84823))
kh33 = 0.147 + (((Th331avg) / (20)) * (0.145 - 0.147))
prh33 = 47100 + (((Th331avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th341avg <= 160 Then 'Third flow channel,fourth partition
ch34 = 2395 + (((Th341avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh34 = 816.94 + (((Th341avg - 140) / (160 - 140)) * (805 - 816.94))
dynh34 = 65.3552 + (((Th341avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh34 = 0.133 + (((Th341avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh34 = 116 + (((Th341avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th341avg <= 140 Then
ch34 = 2307 + (((Th341avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh34 = 828.96 + (((Th341avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh34 = 102.79104 + (((Th341avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh34 = 0.135 + (((Th341avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh34 = 175 + (((Th341avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th341avg <= 120 Then
ch34 = 2219 + (((Th341avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh34 = 840.01 + (((Th341avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh34 = 170.52203 + (((Th341avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh34 = 0.137 + (((Th341avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh34 = 276 + (((Th341avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th341avg <= 100 Then
ch34 = 2131 + (((Th341avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh34 = 852.02 + (((Th341avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh34 = 319.5075 + (((Th341avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh34 = 0.138 + (((Th341avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh34 = 490 + (((Th341avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th341avg <= 80 Then
ch34 = 2047 + (((Th341avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh34 = 864.04 + (((Th341avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh34 = 0.072492956 + (((Th341avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh34 = 0.14 + (((Th341avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh34 = 1050 + (((Th341avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th341avg <= 60 Then
ch34 = 1964 + (((Th341avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh34 = 876.05 + (((Th341avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh34 = 0.210252 + (((Th341avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh34 = 0.144 + (((Th341avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh34 = 2870 + (((Th341avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th341avg <= 40 Then
ch34 = 1880 + (((Th341avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh34 = 888.23 + (((Th341avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh34 = 0.799407 + (((Th341avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh34 = 0.145 + (((Th341avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh34 = 10400 + (((Th341avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th341avg <= 20 Then
ch34 = 1796 + (((Th341avg) / (20)) * (1880 - 1796))
rhoh34 = 899.12 + (((Th341avg) / (20)) * (888.23 - 899.12))
dynh34 = 3.84823 + (((Th341avg) / (20)) * (0.799407 - 3.84823))
kh34 = 0.147 + (((Th341avg) / (20)) * (0.145 - 0.147))
prh34 = 47100 + (((Th341avg) / (20)) * (10400 - 47100))


End If
End If
End If

If 340 <= Th351avg <= 160 Then 'Third flow channel,fifth partition
ch35 = 2395 + (((Th351avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh35 = 816.94 + (((Th351avg - 140) / (160 - 140)) * (805 - 816.94))
dynh35 = 65.3552 + (((Th351avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh35 = 0.133 + (((Th351avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh35 = 116 + (((Th351avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th351avg <= 140 Then
ch35 = 2307 + (((Th351avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh35 = 828.96 + (((Th351avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh35 = 102.79104 + (((Th351avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh35 = 0.135 + (((Th351avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh35 = 175 + (((Th351avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th351avg <= 120 Then
ch35 = 2219 + (((Th351avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh35 = 840.01 + (((Th351avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh35 = 170.52203 + (((Th351avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh35 = 0.137 + (((Th351avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh35 = 276 + (((Th351avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th351avg <= 100 Then
ch35 = 2131 + (((Th351avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh35 = 852.02 + (((Th351avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh35 = 319.5075 + (((Th351avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh35 = 0.138 + (((Th351avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh35 = 490 + (((Th351avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th351avg <= 80 Then
ch35 = 2047 + (((Th351avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh35 = 864.04 + (((Th351avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh35 = 0.072492956 + (((Th351avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh35 = 0.14 + (((Th351avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh35 = 1050 + (((Th351avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th351avg <= 60 Then
ch35 = 1964 + (((Th351avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh35 = 876.05 + (((Th351avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh35 = 0.210252 + (((Th351avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh35 = 0.144 + (((Th351avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh35 = 2870 + (((Th351avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th351avg <= 40 Then
ch35 = 1880 + (((Th351avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh35 = 888.23 + (((Th351avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh35 = 0.799407 + (((Th351avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh35 = 0.145 + (((Th351avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh35 = 10400 + (((Th351avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th351avg <= 20 Then
ch35 = 1796 + (((Th351avg) / (20)) * (1880 - 1796))
rhoh35 = 899.12 + (((Th351avg) / (20)) * (888.23 - 899.12))
dynh35 = 3.84823 + (((Th351avg) / (20)) * (0.799407 - 3.84823))
kh35 = 0.147 + (((Th351avg) / (20)) * (0.145 - 0.147))
prh35 = 47100 + (((Th351avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th361avg <= 160 Then 'Third flow channel,sixth partition
ch36 = 2395 + (((Th361avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh36 = 816.94 + (((Th361avg - 140) / (160 - 140)) * (805 - 816.94))
dynh36 = 65.3552 + (((Th361avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh36 = 0.133 + (((Th361avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh36 = 116 + (((Th361avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th361avg <= 140 Then
ch36 = 2307 + (((Th361avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh36 = 828.96 + (((Th361avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh36 = 102.79104 + (((Th361avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh36 = 0.135 + (((Th361avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh36 = 175 + (((Th361avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th361avg <= 120 Then
ch36 = 2219 + (((Th361avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh36 = 840.01 + (((Th361avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh36 = 170.52203 + (((Th361avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh36 = 0.137 + (((Th361avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh36 = 276 + (((Th361avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th361avg <= 100 Then
ch36 = 2131 + (((Th361avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh36 = 852.02 + (((Th361avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh36 = 319.5075 + (((Th361avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh36 = 0.138 + (((Th361avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh36 = 490 + (((Th361avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th361avg <= 80 Then
ch36 = 2047 + (((Th361avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh36 = 864.04 + (((Th361avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh36 = 0.072492956 + (((Th361avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh36 = 0.14 + (((Th361avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh36 = 1050 + (((Th361avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th361avg <= 60 Then
ch36 = 1964 + (((Th361avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh36 = 876.05 + (((Th361avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh36 = 0.210252 + (((Th361avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh36 = 0.144 + (((Th361avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh36 = 2870 + (((Th361avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th361avg <= 40 Then
ch36 = 1880 + (((Th361avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh36 = 888.23 + (((Th361avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh36 = 0.799407 + (((Th361avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh36 = 0.145 + (((Th361avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh36 = 10400 + (((Th361avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th361avg <= 20 Then
ch36 = 1796 + (((Th361avg) / (20)) * (1880 - 1796))
rhoh36 = 899.12 + (((Th361avg) / (20)) * (888.23 - 899.12))
dynh36 = 3.84823 + (((Th361avg) / (20)) * (0.799407 - 3.84823))
kh36 = 0.147 + (((Th361avg) / (20)) * (0.145 - 0.147))
prh36 = 47100 + (((Th361avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th371avg <= 160 Then 'Third flow channel,seventh partition
ch37 = 2395 + (((Th371avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh37 = 816.94 + (((Th371avg - 140) / (160 - 140)) * (805 - 816.94))
dynh37 = 65.3552 + (((Th371avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh37 = 0.133 + (((Th371avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh37 = 116 + (((Th371avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th371avg <= 140 Then
ch37 = 2307 + (((Th371avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh37 = 828.96 + (((Th371avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh37 = 102.79104 + (((Th371avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh37 = 0.135 + (((Th371avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh37 = 175 + (((Th371avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th371avg <= 120 Then
ch37 = 2219 + (((Th371avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh37 = 840.01 + (((Th371avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh37 = 170.52203 + (((Th371avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh37 = 0.137 + (((Th371avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh37 = 276 + (((Th371avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th371avg <= 100 Then
ch37 = 2131 + (((Th371avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh37 = 852.02 + (((Th371avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh37 = 319.5075 + (((Th371avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh37 = 0.138 + (((Th371avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh37 = 490 + (((Th371avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th371avg <= 80 Then
ch37 = 2047 + (((Th371avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh37 = 864.04 + (((Th371avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh37 = 0.072492956 + (((Th371avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh37 = 0.14 + (((Th371avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh37 = 1050 + (((Th371avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th371avg <= 60 Then
ch37 = 1964 + (((Th371avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh37 = 876.05 + (((Th371avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh37 = 0.210252 + (((Th371avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh37 = 0.144 + (((Th371avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh37 = 2870 + (((Th371avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th371avg <= 40 Then
ch37 = 1880 + (((Th371avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh37 = 888.23 + (((Th371avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh37 = 0.799407 + (((Th371avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh37 = 0.145 + (((Th371avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh37 = 10400 + (((Th371avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th371avg <= 20 Then
ch37 = 1796 + (((Th371avg) / (20)) * (1880 - 1796))
rhoh37 = 899.12 + (((Th371avg) / (20)) * (888.23 - 899.12))
dynh37 = 3.84823 + (((Th371avg) / (20)) * (0.799407 - 3.84823))
kh37 = 0.147 + (((Th371avg) / (20)) * (0.145 - 0.147))
prh37 = 47100 + (((Th371avg) / (20)) * (10400 - 47100))

End If
End If
End If


If 140 <= Th381avg <= 160 Then 'Third flow channel,eight partition
ch38 = 2395 + (((Th381avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh38 = 816.94 + (((Th381avg - 140) / (160 - 140)) * (805 - 816.94))
dynh38 = 65.3552 + (((Th381avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh38 = 0.133 + (((Th381avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh38 = 116 + (((Th381avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th381avg <= 140 Then
ch38 = 2307 + (((Th381avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh38 = 828.96 + (((Th381avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh38 = 102.79104 + (((Th381avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh38 = 0.135 + (((Th381avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh38 = 175 + (((Th381avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th381avg <= 120 Then
ch38 = 2219 + (((Th381avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh38 = 840.01 + (((Th381avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh38 = 170.52203 + (((Th381avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh38 = 0.137 + (((Th381avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh38 = 276 + (((Th381avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th381avg <= 100 Then
ch38 = 2131 + (((Th381avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh38 = 852.02 + (((Th381avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh38 = 319.5075 + (((Th381avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh38 = 0.138 + (((Th381avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh38 = 490 + (((Th381avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th381avg <= 80 Then
ch38 = 2047 + (((Th381avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh38 = 864.04 + (((Th381avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh38 = 0.072492956 + (((Th381avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh38 = 0.14 + (((Th381avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh38 = 1050 + (((Th381avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th381avg <= 60 Then
ch38 = 1964 + (((Th381avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh38 = 876.05 + (((Th381avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh38 = 0.210252 + (((Th381avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh38 = 0.144 + (((Th381avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh38 = 2870 + (((Th381avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th381avg <= 40 Then
ch38 = 1880 + (((Th381avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh38 = 888.23 + (((Th381avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh38 = 0.799407 + (((Th381avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh38 = 0.145 + (((Th381avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh38 = 10400 + (((Th381avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th381avg <= 20 Then
ch38 = 1796 + (((Th381avg) / (20)) * (1880 - 1796))
rhoh38 = 899.12 + (((Th381avg) / (20)) * (888.23 - 899.12))
dynh38 = 3.84823 + (((Th381avg) / (20)) * (0.799407 - 3.84823))
kh38 = 0.147 + (((Th381avg) / (20)) * (0.145 - 0.147))
prh38 = 47100 + (((Th381avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th391avg <= 160 Then 'Third flow channel,ninth partition
ch39 = 2395 + (((Th391avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh39 = 816.94 + (((Th391avg - 140) / (160 - 140)) * (805 - 816.94))
dynh39 = 65.3552 + (((Th391avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh39 = 0.133 + (((Th391avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh39 = 116 + (((Th391avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th391avg <= 140 Then
ch39 = 2307 + (((Th391avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh39 = 828.96 + (((Th391avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh39 = 102.79104 + (((Th391avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh39 = 0.135 + (((Th391avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh39 = 175 + (((Th391avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th391avg <= 120 Then
ch39 = 2219 + (((Th391avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh39 = 840.01 + (((Th391avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh39 = 170.52203 + (((Th391avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh39 = 0.137 + (((Th391avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh39 = 276 + (((Th391avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th391avg <= 100 Then
ch39 = 2131 + (((Th391avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh39 = 852.02 + (((Th391avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh39 = 319.5075 + (((Th391avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh39 = 0.138 + (((Th391avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh39 = 490 + (((Th391avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th391avg <= 80 Then
ch39 = 2047 + (((Th391avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh39 = 864.04 + (((Th391avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh39 = 0.072492956 + (((Th391avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh39 = 0.14 + (((Th391avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh39 = 1050 + (((Th391avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th391avg <= 60 Then
ch39 = 1964 + (((Th391avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh39 = 876.05 + (((Th391avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh39 = 0.210252 + (((Th391avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh39 = 0.144 + (((Th391avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh39 = 2870 + (((Th391avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th391avg <= 40 Then
ch39 = 1880 + (((Th391avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh39 = 888.23 + (((Th391avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh39 = 0.799407 + (((Th391avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh39 = 0.145 + (((Th391avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh39 = 10400 + (((Th391avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th391avg <= 20 Then
ch39 = 1796 + (((Th391avg) / (20)) * (1880 - 1796))
rhoh39 = 899.12 + (((Th391avg) / (20)) * (888.23 - 899.12))
dynh39 = 3.84823 + (((Th391avg) / (20)) * (0.799407 - 3.84823))
kh39 = 0.147 + (((Th391avg) / (20)) * (0.145 - 0.147))
prh39 = 47100 + (((Th391avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th3101avg <= 160 Then 'Third flow channel,Tenth partition
ch310 = 2395 + (((Th3101avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh310 = 816.94 + (((Th3101avg - 140) / (160 - 140)) * (805 - 816.94))
dynh310 = 65.3552 + (((Th3101avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh310 = 0.133 + (((Th3101avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh310 = 116 + (((Th3101avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th3101avg <= 140 Then
ch310 = 2307 + (((Th3101avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh310 = 828.96 + (((Th3101avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh310 = 102.79104 + (((Th3101avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh310 = 0.135 + (((Th3101avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh310 = 175 + (((Th3101avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th3101avg <= 120 Then
ch310 = 2219 + (((Th3101avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh310 = 840.01 + (((Th3101avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh310 = 170.52203 + (((Th3101avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh310 = 0.137 + (((Th3101avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh310 = 276 + (((Th3101avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th3101avg <= 100 Then
ch310 = 2131 + (((Th3101avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh310 = 852.02 + (((Th3101avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh310 = 319.5075 + (((Th3101avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh310 = 0.138 + (((Th3101avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh310 = 490 + (((Th3101avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th3101avg <= 80 Then
ch310 = 2047 + (((Th3101avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh310 = 864.04 + (((Th3101avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh310 = 0.072492956 + (((Th3101avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh310 = 0.14 + (((Th3101avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh310 = 1050 + (((Th3101avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th3101avg <= 60 Then
ch310 = 1964 + (((Th3101avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh310 = 876.05 + (((Th3101avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh310 = 0.210252 + (((Th3101avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh310 = 0.144 + (((Th3101avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh310 = 2870 + (((Th3101avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th3101avg <= 40 Then
ch310 = 1880 + (((Th3101avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh310 = 888.23 + (((Th3101avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh310 = 0.799407 + (((Th3101avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh310 = 0.145 + (((Th3101avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh310 = 10400 + (((Th3101avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th3101avg <= 20 Then
ch310 = 1796 + (((Th3101avg) / (20)) * (1880 - 1796))
rhoh310 = 899.12 + (((Th3101avg) / (20)) * (888.23 - 899.12))
dynh310 = 3.84823 + (((Th3101avg) / (20)) * (0.799407 - 3.84823))
kh310 = 0.147 + (((Th3101avg) / (20)) * (0.145 - 0.147))
prh310 = 47100 + (((Th3101avg) / (20)) * (10400 - 47100))


End If
End If
End If


If 140 <= Th3111 <= 160 Then
ch311 = 2395 + (((Th3111 - 140) / (160 - 140)) * (2483 - 2395))
rhoh311 = 816.94 + (((Th3111 - 140) / (160 - 140)) * (805 - 816.94))
dynh311 = 65.3552 + (((Th3111 - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh311 = 0.133 + (((Th3111 - 140) / (160 - 140)) * (0.132 - 0.133))
prh311 = 116 + (((Th3111 - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th3111 <= 140 Then
ch311 = 2307 + (((Th3111 - 120) / (140 - 120)) * (2395 - 2307))
rhoh311 = 828.96 + (((Th3111 - 120) / (140 - 120)) * (816.94 - 828.96))
dynh311 = 102.79104 + (((Th3111 - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh311 = 0.135 + (((Th3111 - 120) / (140 - 120)) * (0.133 - 0.135))
prh311 = 175 + (((Th3111 - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th3111 <= 120 Then
ch311 = 2219 + (((Th3111 - 100) / (120 - 100)) * (2307 - 2219))
rhoh311 = 840.01 + (((Th3111 - 100) / (120 - 100)) * (828.96 - 840.01))
dynh311 = 170.52203 + (((Th3111 - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh311 = 0.137 + (((Th3111 - 100) / (120 - 100)) * (0.135 - 0.137))
prh311 = 276 + (((Th3111 - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th3111 <= 100 Then
ch311 = 2131 + (((Th3111 - 80) / (100 - 80)) * (2219 - 2131))
rhoh311 = 852.02 + (((Th3111 - 80) / (100 - 80)) * (840.01 - 852.02))
dynh311 = 319.5075 + (((Th3111 - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh311 = 0.138 + (((Th3111 - 80) / (100 - 80)) * (0.137 - 0.138))
prh311 = 490 + (((Th3111 - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th3111 <= 80 Then
ch311 = 2047 + (((Th3111 - 60) / (80 - 60)) * (2131 - 2047))
rhoh311 = 864.04 + (((Th3111 - 60) / (80 - 60)) * (852.02 - 864.04))
dynh311 = 0.072492956 + (((Th3111 - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh311 = 0.14 + (((Th3111 - 60) / (80 - 60)) * (0.138 - 0.14))
prh311 = 1050 + (((Th3111 - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th3111 <= 60 Then
ch311 = 1964 + (((Th3111 - 40) / (60 - 40)) * (2047 - 1964))
rhoh311 = 876.05 + (((Th3111 - 40) / (60 - 40)) * (864.04 - 876.05))
dynh311 = 0.210252 + (((Th3111 - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh311 = 0.144 + (((Th3111 - 40) / (60 - 40)) * (0.14 - 0.144))
prh311 = 2870 + (((Th3111 - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th3111 <= 40 Then
ch311 = 1880 + (((Th3111 - 20) / (40 - 20)) * (1964 - 1880))
rhoh311 = 888.23 + (((Th3111 - 20) / (40 - 20)) * (876.05 - 888.23))
dynh311 = 0.799407 + (((Th3111 - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh311 = 0.145 + (((Th3111 - 20) / (40 - 20)) * (0.144 - 0.145))
prh311 = 10400 + (((Th3111 - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th3111 <= 20 Then
ch311 = 1796 + (((Th3111) / (20)) * (1880 - 1796))
rhoh311 = 899.12 + (((Th3111) / (20)) * (888.23 - 899.12))
dynh311 = 3.84823 + (((Th3111) / (20)) * (0.799407 - 3.84823))
kh311 = 0.147 + (((Th3111) / (20)) * (0.145 - 0.147))
prh311 = 47100 + (((Th3111) / (20)) * (10400 - 47100))


End If
End If
End If

If 0 <= Tc411avg <= 4.44 Then 'Fourth flow channel,first partion
cc41 = 4225 + (((Tc411avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc41 = 999.8 + (((Tc411avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync41 = 0.00179 + (((Tc411avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc41 = 0.566 + (((Tc411avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc41 = 13.25 + (((Tc411avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc411avg <= 10 Then
cc41 = 4208 + (((Tc411avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc41 = 999.8 + (((Tc411avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync41 = 1.55 + (((Tc411avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc41 = 0.575 + (((Tc411avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc41 = 11.35 + (((Tc411avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc411avg <= 15.56 Then
cc41 = 4195 + (((Tc411avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc41 = 999.2 + (((Tc411avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync41 = 1.31 + (((Tc411avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc41 = 0.585 + (((Tc411avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc41 = 9.4 + (((Tc411avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc411avg <= 21.11 Then
cc41 = 4186 + (((Tc411avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc41 = 998.6 + (((Tc411avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync41 = 1.12 + (((Tc411avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc41 = 0.595 + (((Tc411avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc41 = 7.88 + (((Tc411avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc411avg <= 26.67 Then
cc41 = 4179 + (((Tc411avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc41 = 997.4 + (((Tc411avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync41 = 0.00098 + (((Tc411avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc41 = 0.604 + (((Tc411avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc41 = 6.78 + (((Tc411avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc411avg <= 32.22 Then
cc41 = 4179 + (((Tc411avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc41 = 995.8 + (((Tc411avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync41 = 8.6 + (((Tc411avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc41 = 0.614 + (((Tc411avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc41 = 5.85 + (((Tc411avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc411avg <= 37.78 Then
cc41 = 4174 + (((Tc411avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc41 = 994.9 + (((Tc411avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync41 = 7.65 + (((Tc411avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc41 = 0.623 + (((Tc411avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc41 = 5.12 + (((Tc411avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc411avg <= 43.33 Then
cc41 = 4174 + (((Tc411avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc41 = 993 + (((Tc411avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync41 = 6.82 + (((Tc411avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc41 = 0.63 + (((Tc411avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc41 = 4.53 + (((Tc411avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc411avg <= 48.89 Then
cc41 = 4174 + (((Tc411avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc41 = 990.6 + (((Tc411avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync41 = 6.16 + (((Tc411avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc41 = 0.637 + (((Tc411avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc41 = 4.04 + (((Tc411avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc411avg <= 54.44 Then
cc41 = 4174 + (((Tc411avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc41 = 998.8 + (((Tc411avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync41 = 5.62 + (((Tc411avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc41 = 0.644 + (((Tc411avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc41 = 3.64 + (((Tc411avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc411avg <= 60 Then
cc41 = 4179 + (((Tc411avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc41 = 985.7 + (((Tc411avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync41 = 5.13 + (((Tc411avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc41 = 0.649 + (((Tc411avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc41 = 3.3 + (((Tc411avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc411avg <= 65.55 Then
cc41 = 4179 + (((Tc411avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc41 = 983.3 + (((Tc411avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync41 = 4.71 + (((Tc411avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc41 = 0.654 + (((Tc411avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc41 = 3.01 + (((Tc411avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc411avg <= 71.11 Then
cc41 = 4183 + (((Tc411avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc41 = 980.3 + (((Tc411avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync41 = 4.3 + (((Tc411avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc41 = 0.659 + (((Tc411avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc41 = 2.73 + (((Tc411avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc411avg <= 76.67 Then
cc41 = 4186 + (((Tc411avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc41 = 977.3 + (((Tc411avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync41 = 4.01 + (((Tc411avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc41 = 0.665 + (((Tc411avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc41 = 2.53 + (((Tc411avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc411avg <= 82.22 Then
cc41 = 4191 + (((Tc411avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc41 = 973.7 + (((Tc411avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync41 = 3.72 + (((Tc411avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc41 = 0.668 + (((Tc411avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc41 = 2.33 + (((Tc411avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc411avg <= 87.78 Then
cc41 = 4195 + (((Tc411avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc41 = 970.2 + (((Tc411avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync41 = 3.47 + (((Tc411avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc41 = 0.673 + (((Tc411avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc41 = 2.16 + (((Tc411avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc411avg <= 93.33 Then
cc41 = 4199 + (((Tc411avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc41 = 966.7 + (((Tc411avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync41 = 3.27 + (((Tc411avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc41 = 0.675 + (((Tc411avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc41 = 2.03 + (((Tc411avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc411avg <= 104.4 Then
cc41 = 4204 + (((Tc411avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc41 = 963.2 + (((Tc411avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync41 = 3.06 + (((Tc411avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc41 = 0.678 + (((Tc411avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc41 = 1.9 + (((Tc411avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc421avg <= 4.44 Then 'fourth flow channel,second partition
cc42 = 4225 + (((Tc421avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc42 = 999.8 + (((Tc421avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync42 = 0.00179 + (((Tc421avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc42 = 0.566 + (((Tc421avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc42 = 13.25 + (((Tc421avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc421avg <= 10 Then
cc42 = 4208 + (((Tc421avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc42 = 999.8 + (((Tc421avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync42 = 1.55 + (((Tc421avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc42 = 0.575 + (((Tc421avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc42 = 11.35 + (((Tc421avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc421avg <= 15.56 Then
cc42 = 4195 + (((Tc421avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc42 = 999.2 + (((Tc421avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync42 = 1.31 + (((Tc421avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc42 = 0.585 + (((Tc421avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc42 = 9.4 + (((Tc421avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc421avg <= 21.11 Then
cc42 = 4186 + (((Tc421avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc42 = 998.6 + (((Tc421avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync42 = 1.12 + (((Tc421avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc42 = 0.595 + (((Tc421avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc42 = 7.88 + (((Tc421avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc421avg <= 26.67 Then
cc42 = 4179 + (((Tc421avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc42 = 997.4 + (((Tc421avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync42 = 0.00098 + (((Tc421avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc42 = 0.604 + (((Tc421avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc42 = 6.78 + (((Tc421avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc421avg <= 32.22 Then
cc42 = 4179 + (((Tc421avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc42 = 995.8 + (((Tc421avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync42 = 8.6 + (((Tc421avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc42 = 0.614 + (((Tc421avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc42 = 5.85 + (((Tc421avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc421avg <= 37.78 Then
cc42 = 4174 + (((Tc421avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc42 = 994.9 + (((Tc421avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync42 = 7.65 + (((Tc421avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc42 = 0.623 + (((Tc421avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc42 = 5.12 + (((Tc421avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc421avg <= 43.33 Then
cc42 = 4174 + (((Tc421avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc42 = 993 + (((Tc421avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync42 = 6.82 + (((Tc421avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc42 = 0.63 + (((Tc421avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc42 = 4.53 + (((Tc421avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc421avg <= 48.89 Then
cc42 = 4174 + (((Tc421avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc42 = 990.6 + (((Tc421avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync42 = 6.16 + (((Tc421avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc42 = 0.637 + (((Tc421avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc42 = 4.04 + (((Tc421avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc421avg <= 54.44 Then
cc42 = 4174 + (((Tc421avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc42 = 998.8 + (((Tc421avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync42 = 5.62 + (((Tc421avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc42 = 0.644 + (((Tc421avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc42 = 3.64 + (((Tc421avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc421avg <= 60 Then
cc42 = 4179 + (((Tc421avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc42 = 985.7 + (((Tc421avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync42 = 5.13 + (((Tc421avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc42 = 0.649 + (((Tc421avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc42 = 3.3 + (((Tc421avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc421avg <= 65.55 Then
cc42 = 4179 + (((Tc421avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc42 = 983.3 + (((Tc421avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync42 = 4.71 + (((Tc421avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc42 = 0.654 + (((Tc421avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc42 = 3.01 + (((Tc421avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc421avg <= 71.11 Then
cc42 = 4183 + (((Tc421avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc42 = 980.3 + (((Tc421avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync42 = 4.3 + (((Tc421avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc42 = 0.659 + (((Tc421avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc42 = 2.73 + (((Tc421avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc421avg <= 76.67 Then
cc42 = 4186 + (((Tc421avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc42 = 977.3 + (((Tc421avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync42 = 4.01 + (((Tc421avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc42 = 0.665 + (((Tc421avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc42 = 2.53 + (((Tc421avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc421avg <= 82.22 Then
cc42 = 4191 + (((Tc421avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc42 = 973.7 + (((Tc421avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync42 = 3.72 + (((Tc421avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc42 = 0.668 + (((Tc421avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc42 = 2.33 + (((Tc421avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc421avg <= 87.78 Then
cc42 = 4195 + (((Tc421avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc42 = 970.2 + (((Tc421avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync42 = 3.47 + (((Tc421avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc42 = 0.673 + (((Tc421avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc42 = 2.16 + (((Tc421avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc421avg <= 93.33 Then
cc42 = 4199 + (((Tc421avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc42 = 966.7 + (((Tc421avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync42 = 3.27 + (((Tc421avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc42 = 0.675 + (((Tc421avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc42 = 2.03 + (((Tc421avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc421avg <= 104.4 Then
cc42 = 4204 + (((Tc421avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc42 = 963.2 + (((Tc421avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync42 = 3.06 + (((Tc421avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc42 = 0.678 + (((Tc421avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc42 = 1.9 + (((Tc421avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc431avg <= 4.44 Then 'Fourth flow channel,Third partition
cc43 = 4225 + (((Tc431avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc43 = 999.8 + (((Tc431avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync43 = 0.00179 + (((Tc431avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc43 = 0.566 + (((Tc431avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc43 = 13.25 + (((Tc431avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc431avg <= 10 Then
cc43 = 4208 + (((Tc431avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc43 = 999.8 + (((Tc431avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync43 = 1.55 + (((Tc431avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc43 = 0.575 + (((Tc431avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc43 = 11.35 + (((Tc431avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc431avg <= 15.56 Then
cc43 = 4195 + (((Tc431avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc43 = 999.2 + (((Tc431avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync43 = 1.31 + (((Tc431avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc43 = 0.585 + (((Tc431avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc43 = 9.4 + (((Tc431avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc431avg <= 21.11 Then
cc43 = 4186 + (((Tc431avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc43 = 998.6 + (((Tc431avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync43 = 1.12 + (((Tc431avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc43 = 0.595 + (((Tc431avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc43 = 7.88 + (((Tc431avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc431avg <= 26.67 Then
cc43 = 4179 + (((Tc431avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc43 = 997.4 + (((Tc431avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync43 = 0.00098 + (((Tc431avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc43 = 0.604 + (((Tc431avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc43 = 6.78 + (((Tc431avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc431avg <= 32.22 Then
cc43 = 4179 + (((Tc431avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc43 = 995.8 + (((Tc431avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync43 = 8.6 + (((Tc431avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc43 = 0.614 + (((Tc431avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc43 = 5.85 + (((Tc431avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc431avg <= 37.78 Then
cc43 = 4174 + (((Tc431avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc43 = 994.9 + (((Tc431avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync43 = 7.65 + (((Tc431avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc43 = 0.623 + (((Tc431avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc43 = 5.12 + (((Tc431avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc431avg <= 43.33 Then
cc43 = 4174 + (((Tc431avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc43 = 993 + (((Tc431avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync43 = 6.82 + (((Tc431avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc43 = 0.63 + (((Tc431avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc43 = 4.53 + (((Tc431avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc431avg <= 48.89 Then
cc43 = 4174 + (((Tc431avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc43 = 990.6 + (((Tc431avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync43 = 6.16 + (((Tc431avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc43 = 0.637 + (((Tc431avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc43 = 4.04 + (((Tc431avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc431avg <= 54.44 Then
cc43 = 4174 + (((Tc431avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc43 = 998.8 + (((Tc431avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync43 = 5.62 + (((Tc431avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc43 = 0.644 + (((Tc431avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc43 = 3.64 + (((Tc431avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc431avg <= 60 Then
cc43 = 4179 + (((Tc431avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc43 = 985.7 + (((Tc431avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync43 = 5.13 + (((Tc431avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc43 = 0.649 + (((Tc431avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc43 = 3.3 + (((Tc431avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc431avg <= 65.55 Then
cc43 = 4179 + (((Tc431avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc43 = 983.3 + (((Tc431avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync43 = 4.71 + (((Tc431avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc43 = 0.654 + (((Tc431avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc43 = 3.01 + (((Tc431avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc431avg <= 71.11 Then
cc43 = 4183 + (((Tc431avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc43 = 980.3 + (((Tc431avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync43 = 4.3 + (((Tc431avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc43 = 0.659 + (((Tc431avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc43 = 2.73 + (((Tc431avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc431avg <= 76.67 Then
cc43 = 4186 + (((Tc431avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc43 = 977.3 + (((Tc431avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync43 = 4.01 + (((Tc431avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc43 = 0.665 + (((Tc431avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc43 = 2.53 + (((Tc431avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc431avg <= 82.22 Then
cc43 = 4191 + (((Tc431avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc43 = 973.7 + (((Tc431avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync43 = 3.72 + (((Tc431avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc43 = 0.668 + (((Tc431avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc43 = 2.33 + (((Tc431avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc431avg <= 87.78 Then
cc43 = 4195 + (((Tc431avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc43 = 970.2 + (((Tc431avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync43 = 3.47 + (((Tc431avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc43 = 0.673 + (((Tc431avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc43 = 2.16 + (((Tc431avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc431avg <= 93.33 Then
cc43 = 4199 + (((Tc431avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc43 = 966.7 + (((Tc431avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync43 = 3.27 + (((Tc431avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc43 = 0.675 + (((Tc431avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc43 = 2.03 + (((Tc431avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc431avg <= 104.4 Then
cc43 = 4204 + (((Tc431avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc43 = 963.2 + (((Tc431avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync43 = 3.06 + (((Tc431avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc43 = 0.678 + (((Tc431avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc43 = 1.9 + (((Tc431avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If


If 0 <= Tc441avg <= 4.44 Then 'Fourth flow channel,fourth partition
cc44 = 4225 + (((Tc441avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc44 = 999.8 + (((Tc441avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync44 = 0.00179 + (((Tc441avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc44 = 0.566 + (((Tc441avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc44 = 13.25 + (((Tc441avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc441avg <= 10 Then
cc44 = 4208 + (((Tc441avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc44 = 999.8 + (((Tc441avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync44 = 1.55 + (((Tc441avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc44 = 0.575 + (((Tc441avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc44 = 11.35 + (((Tc441avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc441avg <= 15.56 Then
cc44 = 4195 + (((Tc441avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc44 = 999.2 + (((Tc441avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync44 = 1.31 + (((Tc441avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc44 = 0.585 + (((Tc441avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc44 = 9.4 + (((Tc441avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc441avg <= 21.11 Then
cc44 = 4186 + (((Tc441avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc44 = 998.6 + (((Tc441avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync44 = 1.12 + (((Tc441avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc44 = 0.595 + (((Tc441avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc44 = 7.88 + (((Tc441avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc441avg <= 26.67 Then
cc44 = 4179 + (((Tc441avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc44 = 997.4 + (((Tc441avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync44 = 0.00098 + (((Tc441avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc44 = 0.604 + (((Tc441avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc44 = 6.78 + (((Tc441avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc441avg <= 32.22 Then
cc44 = 4179 + (((Tc441avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc44 = 995.8 + (((Tc441avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync44 = 8.6 + (((Tc441avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc44 = 0.614 + (((Tc441avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc44 = 5.85 + (((Tc441avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc441avg <= 37.78 Then
cc44 = 4174 + (((Tc441avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc44 = 994.9 + (((Tc441avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync44 = 7.65 + (((Tc441avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc44 = 0.623 + (((Tc441avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc44 = 5.12 + (((Tc441avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc441avg <= 43.33 Then
cc44 = 4174 + (((Tc441avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc44 = 993 + (((Tc441avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync44 = 6.82 + (((Tc441avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc44 = 0.63 + (((Tc441avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc44 = 4.53 + (((Tc441avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc441avg <= 48.89 Then
cc44 = 4174 + (((Tc441avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc44 = 990.6 + (((Tc441avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync44 = 6.16 + (((Tc441avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc44 = 0.637 + (((Tc441avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc44 = 4.04 + (((Tc441avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc441avg <= 54.44 Then
cc44 = 4174 + (((Tc441avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc44 = 998.8 + (((Tc441avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync44 = 5.62 + (((Tc441avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc44 = 0.644 + (((Tc441avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc44 = 3.64 + (((Tc441avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc441avg <= 60 Then
cc44 = 4179 + (((Tc441avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc44 = 985.7 + (((Tc441avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync44 = 5.13 + (((Tc441avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc44 = 0.649 + (((Tc441avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc44 = 3.3 + (((Tc441avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc441avg <= 65.55 Then
cc44 = 4179 + (((Tc441avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc44 = 983.3 + (((Tc441avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync44 = 4.71 + (((Tc441avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc44 = 0.654 + (((Tc441avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc44 = 3.01 + (((Tc441avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc441avg <= 71.11 Then
cc44 = 4183 + (((Tc441avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc44 = 980.3 + (((Tc441avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync44 = 4.3 + (((Tc441avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc44 = 0.659 + (((Tc441avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc44 = 2.73 + (((Tc441avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc441avg <= 76.67 Then
cc44 = 4186 + (((Tc441avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc44 = 977.3 + (((Tc441avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync44 = 4.01 + (((Tc441avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc44 = 0.665 + (((Tc441avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc44 = 2.53 + (((Tc441avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc441avg <= 82.22 Then
cc44 = 4191 + (((Tc441avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc44 = 973.7 + (((Tc441avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync44 = 3.72 + (((Tc441avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc44 = 0.668 + (((Tc441avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc44 = 2.33 + (((Tc441avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc441avg <= 87.78 Then
cc44 = 4195 + (((Tc441avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc44 = 970.2 + (((Tc441avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync44 = 3.47 + (((Tc441avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc44 = 0.673 + (((Tc441avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc44 = 2.16 + (((Tc441avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc441avg <= 93.33 Then
cc44 = 4199 + (((Tc441avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc44 = 966.7 + (((Tc441avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync44 = 3.27 + (((Tc441avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc44 = 0.675 + (((Tc441avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc44 = 2.03 + (((Tc441avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc441avg <= 104.4 Then
cc44 = 4204 + (((Tc441avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc44 = 963.2 + (((Tc441avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync44 = 3.06 + (((Tc441avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc44 = 0.678 + (((Tc441avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc44 = 1.9 + (((Tc441avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc451avg <= 4.44 Then 'Fourth flow channel,fifth partition
cc45 = 4225 + (((Tc451avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc45 = 999.8 + (((Tc451avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync45 = 0.00179 + (((Tc451avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc45 = 0.566 + (((Tc451avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc45 = 13.25 + (((Tc451avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc451avg <= 10 Then
cc45 = 4208 + (((Tc451avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc45 = 999.8 + (((Tc451avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync45 = 1.55 + (((Tc451avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc45 = 0.575 + (((Tc451avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc45 = 11.35 + (((Tc451avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc451avg <= 15.56 Then
cc45 = 4195 + (((Tc451avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc45 = 999.2 + (((Tc451avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync45 = 1.31 + (((Tc451avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc45 = 0.585 + (((Tc451avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc45 = 9.4 + (((Tc451avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc451avg <= 21.11 Then
cc45 = 4186 + (((Tc451avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc45 = 998.6 + (((Tc451avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync45 = 1.12 + (((Tc451avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc45 = 0.595 + (((Tc451avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc45 = 7.88 + (((Tc451avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc451avg <= 26.67 Then
cc45 = 4179 + (((Tc451avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc45 = 997.4 + (((Tc451avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync45 = 0.00098 + (((Tc451avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc45 = 0.604 + (((Tc451avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc45 = 6.78 + (((Tc451avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc451avg <= 32.22 Then
cc45 = 4179 + (((Tc451avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc45 = 995.8 + (((Tc451avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync45 = 8.6 + (((Tc451avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc45 = 0.614 + (((Tc451avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc45 = 5.85 + (((Tc451avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc451avg <= 37.78 Then
cc45 = 4174 + (((Tc451avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc45 = 994.9 + (((Tc451avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync45 = 7.65 + (((Tc451avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc45 = 0.623 + (((Tc451avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc45 = 5.12 + (((Tc451avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc451avg <= 43.33 Then
cc45 = 4174 + (((Tc451avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc45 = 993 + (((Tc451avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync45 = 6.82 + (((Tc451avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc45 = 0.63 + (((Tc451avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc45 = 4.53 + (((Tc451avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc451avg <= 48.89 Then
cc45 = 4174 + (((Tc451avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc45 = 990.6 + (((Tc451avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync45 = 6.16 + (((Tc451avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc45 = 0.637 + (((Tc451avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc45 = 4.04 + (((Tc451avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc451avg <= 54.44 Then
cc45 = 4174 + (((Tc451avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc45 = 998.8 + (((Tc451avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync45 = 5.62 + (((Tc451avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc45 = 0.644 + (((Tc451avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc45 = 3.64 + (((Tc451avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc451avg <= 60 Then
cc45 = 4179 + (((Tc451avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc45 = 985.7 + (((Tc451avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync45 = 5.13 + (((Tc451avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc45 = 0.649 + (((Tc451avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc45 = 3.3 + (((Tc451avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc451avg <= 65.55 Then
cc45 = 4179 + (((Tc451avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc45 = 983.3 + (((Tc451avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync45 = 4.71 + (((Tc451avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc45 = 0.654 + (((Tc451avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc45 = 3.01 + (((Tc451avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc451avg <= 71.11 Then
cc45 = 4183 + (((Tc451avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc45 = 980.3 + (((Tc451avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync45 = 4.3 + (((Tc451avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc45 = 0.659 + (((Tc451avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc45 = 2.73 + (((Tc451avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc451avg <= 76.67 Then
cc45 = 4186 + (((Tc451avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc45 = 977.3 + (((Tc451avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync45 = 4.01 + (((Tc451avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc45 = 0.665 + (((Tc451avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc45 = 2.53 + (((Tc451avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc451avg <= 82.22 Then
cc45 = 4191 + (((Tc451avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc45 = 973.7 + (((Tc451avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync45 = 3.72 + (((Tc451avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc45 = 0.668 + (((Tc441avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc45 = 2.33 + (((Tc451avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc451avg <= 87.78 Then
cc45 = 4195 + (((Tc451avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc45 = 970.2 + (((Tc451avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync45 = 3.47 + (((Tc451avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc45 = 0.673 + (((Tc451avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc45 = 2.16 + (((Tc451avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc451avg <= 93.33 Then
cc45 = 4199 + (((Tc451avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc45 = 966.7 + (((Tc451avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync45 = 3.27 + (((Tc451avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc45 = 0.675 + (((Tc451avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc45 = 2.03 + (((Tc451avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc451avg <= 104.4 Then
cc45 = 4204 + (((Tc451avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc45 = 963.2 + (((Tc451avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync45 = 3.06 + (((Tc451avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc45 = 0.678 + (((Tc451avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc45 = 1.9 + (((Tc451avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If
If 0 <= Tc461avg <= 4.44 Then 'Fourth flow channel,sixth partition
cc46 = 4225 + (((Tc461avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc46 = 999.8 + (((Tc461avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync46 = 0.00179 + (((Tc461avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc46 = 0.566 + (((Tc461avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc46 = 13.25 + (((Tc461avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc461avg <= 10 Then
cc46 = 4208 + (((Tc461avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc46 = 999.8 + (((Tc461avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync46 = 1.55 + (((Tc461avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc46 = 0.575 + (((Tc461avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc46 = 11.35 + (((Tc461avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc461avg <= 15.56 Then
cc46 = 4195 + (((Tc461avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc46 = 999.2 + (((Tc461avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync46 = 1.31 + (((Tc461avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc46 = 0.585 + (((Tc461avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc46 = 9.4 + (((Tc461avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc461avg <= 21.11 Then
cc46 = 4186 + (((Tc461avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc46 = 998.6 + (((Tc461avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync46 = 1.12 + (((Tc461avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc46 = 0.595 + (((Tc461avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc46 = 7.88 + (((Tc461avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc461avg <= 26.67 Then
cc46 = 4179 + (((Tc461avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc46 = 997.4 + (((Tc461avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync46 = 0.00098 + (((Tc461avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc46 = 0.604 + (((Tc461avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc46 = 6.78 + (((Tc461avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc461avg <= 32.22 Then
cc46 = 4179 + (((Tc461avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc46 = 995.8 + (((Tc461avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync46 = 8.6 + (((Tc461avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc46 = 0.614 + (((Tc461avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc46 = 5.85 + (((Tc461avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc461avg <= 37.78 Then
cc46 = 4174 + (((Tc461avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc46 = 994.9 + (((Tc461avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync46 = 7.65 + (((Tc461avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc46 = 0.623 + (((Tc461avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc46 = 5.12 + (((Tc461avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc461avg <= 43.33 Then
cc46 = 4174 + (((Tc461avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc46 = 993 + (((Tc461avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync46 = 6.82 + (((Tc461avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc46 = 0.63 + (((Tc461avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc46 = 4.53 + (((Tc461avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc461avg <= 48.89 Then
cc46 = 4174 + (((Tc461avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc46 = 990.6 + (((Tc461avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync46 = 6.16 + (((Tc461avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc46 = 0.637 + (((Tc461avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc46 = 4.04 + (((Tc461avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc461avg <= 54.44 Then
cc46 = 4174 + (((Tc461avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc46 = 998.8 + (((Tc461avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync46 = 5.62 + (((Tc461avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc46 = 0.644 + (((Tc461avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc46 = 3.64 + (((Tc461avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc461avg <= 60 Then
cc46 = 4179 + (((Tc461avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc46 = 985.7 + (((Tc461avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync46 = 5.13 + (((Tc461avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc46 = 0.649 + (((Tc461avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc46 = 3.3 + (((Tc461avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc461avg <= 65.55 Then
cc46 = 4179 + (((Tc461avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc46 = 983.3 + (((Tc461avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync46 = 4.71 + (((Tc461avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc46 = 0.654 + (((Tc461avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc46 = 3.01 + (((Tc461avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc461avg <= 71.11 Then
cc46 = 4183 + (((Tc461avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc46 = 980.3 + (((Tc461avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync46 = 4.3 + (((Tc461avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc46 = 0.659 + (((Tc461avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc46 = 2.73 + (((Tc461avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc461avg <= 76.67 Then
cc46 = 4186 + (((Tc461avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc46 = 977.3 + (((Tc461avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync46 = 4.01 + (((Tc461avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc46 = 0.665 + (((Tc461avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc46 = 2.53 + (((Tc461avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc461avg <= 82.22 Then
cc46 = 4191 + (((Tc461avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc46 = 973.7 + (((Tc461avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync46 = 3.72 + (((Tc461avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc46 = 0.668 + (((Tc461avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc46 = 2.33 + (((Tc461avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc461avg <= 87.78 Then
cc46 = 4195 + (((Tc461avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc46 = 970.2 + (((Tc461avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync46 = 3.47 + (((Tc461avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc46 = 0.673 + (((Tc461avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc46 = 2.16 + (((Tc461avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc461avg <= 93.33 Then
cc46 = 4199 + (((Tc461avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc46 = 966.7 + (((Tc461avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync46 = 3.27 + (((Tc461avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc46 = 0.675 + (((Tc461avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc46 = 2.03 + (((Tc461avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc461avg <= 104.4 Then
cc46 = 4204 + (((Tc461avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc46 = 963.2 + (((Tc461avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync46 = 3.06 + (((Tc461avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc46 = 0.678 + (((Tc461avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc46 = 1.9 + (((Tc461avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc471avg <= 4.44 Then 'Fourth flow channel,seventh partition
cc47 = 4225 + (((Tc471avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc47 = 999.8 + (((Tc471avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync47 = 0.00179 + (((Tc471avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc47 = 0.566 + (((Tc471avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc47 = 13.25 + (((Tc471avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc471avg <= 10 Then
cc47 = 4208 + (((Tc471avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc47 = 999.8 + (((Tc471avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync47 = 1.55 + (((Tc471avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc47 = 0.575 + (((Tc471avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc47 = 11.35 + (((Tc471avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc471avg <= 15.56 Then
cc47 = 4195 + (((Tc471avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc47 = 999.2 + (((Tc471avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync47 = 1.31 + (((Tc471avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc47 = 0.585 + (((Tc471avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc47 = 9.4 + (((Tc471avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc471avg <= 21.11 Then
cc47 = 4186 + (((Tc471avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc47 = 998.6 + (((Tc471avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync47 = 1.12 + (((Tc471avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc47 = 0.595 + (((Tc471avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc47 = 7.88 + (((Tc471avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc471avg <= 26.67 Then
cc47 = 4179 + (((Tc471avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc47 = 997.4 + (((Tc471avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync47 = 0.00098 + (((Tc471avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc47 = 0.604 + (((Tc471avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc47 = 6.78 + (((Tc471avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc471avg <= 32.22 Then
cc47 = 4179 + (((Tc471avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc47 = 995.8 + (((Tc471avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync47 = 8.6 + (((Tc471avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc47 = 0.614 + (((Tc471avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc47 = 5.85 + (((Tc471avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc471avg <= 37.78 Then
cc47 = 4174 + (((Tc471avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc47 = 994.9 + (((Tc471avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync47 = 7.65 + (((Tc471avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc47 = 0.623 + (((Tc471avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc47 = 5.12 + (((Tc471avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc471avg <= 43.33 Then
cc47 = 4174 + (((Tc471avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc47 = 993 + (((Tc471avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync47 = 6.82 + (((Tc471avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc47 = 0.63 + (((Tc471avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc47 = 4.53 + (((Tc471avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc471avg <= 48.89 Then
cc47 = 4174 + (((Tc471avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc47 = 990.6 + (((Tc471avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync47 = 6.16 + (((Tc471avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc47 = 0.637 + (((Tc471avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc47 = 4.04 + (((Tc471avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc471avg <= 54.44 Then
cc47 = 4174 + (((Tc471avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc47 = 998.8 + (((Tc471avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync47 = 5.62 + (((Tc471avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc47 = 0.644 + (((Tc471avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc47 = 3.64 + (((Tc471avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc471avg <= 60 Then
cc47 = 4179 + (((Tc471avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc47 = 985.7 + (((Tc471avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync47 = 5.13 + (((Tc471avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc47 = 0.649 + (((Tc471avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc47 = 3.3 + (((Tc471avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc471avg <= 65.55 Then
cc47 = 4179 + (((Tc471avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc47 = 983.3 + (((Tc471avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync47 = 4.71 + (((Tc471avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc47 = 0.654 + (((Tc471avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc47 = 3.01 + (((Tc471avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc471avg <= 71.11 Then
cc47 = 4183 + (((Tc471avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc47 = 980.3 + (((Tc471avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync47 = 4.3 + (((Tc471avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc47 = 0.659 + (((Tc471avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc47 = 2.73 + (((Tc471avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc471avg <= 76.67 Then
cc47 = 4186 + (((Tc471avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc47 = 977.3 + (((Tc471avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync47 = 4.01 + (((Tc471avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc47 = 0.665 + (((Tc471avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc47 = 2.53 + (((Tc471avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc471avg <= 82.22 Then
cc47 = 4191 + (((Tc471avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc47 = 973.7 + (((Tc471avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync47 = 3.72 + (((Tc471avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc47 = 0.668 + (((Tc471avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc47 = 2.33 + (((Tc471avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc471avg <= 87.78 Then
cc47 = 4195 + (((Tc471avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc47 = 970.2 + (((Tc471avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync47 = 3.47 + (((Tc471avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc47 = 0.673 + (((Tc471avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc47 = 2.16 + (((Tc471avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc471avg <= 93.33 Then
cc47 = 4199 + (((Tc471avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc47 = 966.7 + (((Tc471avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync47 = 3.27 + (((Tc471avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc47 = 0.675 + (((Tc471avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc47 = 2.03 + (((Tc471avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc471avg <= 104.4 Then
cc47 = 4204 + (((Tc471avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc47 = 963.2 + (((Tc471avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync47 = 3.06 + (((Tc471avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc47 = 0.678 + (((Tc471avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc47 = 1.9 + (((Tc471avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc481avg <= 4.44 Then 'Fourth flow channel,eighth partition
cc48 = 4225 + (((Tc481avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc48 = 999.8 + (((Tc481avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync48 = 0.00179 + (((Tc481avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc48 = 0.566 + (((Tc481avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc48 = 13.25 + (((Tc481avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc481avg <= 10 Then
cc48 = 4208 + (((Tc481avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc48 = 999.8 + (((Tc481avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync48 = 1.55 + (((Tc481avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc48 = 0.575 + (((Tc481avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc48 = 11.35 + (((Tc481avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc481avg <= 15.56 Then
cc48 = 4195 + (((Tc481avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc48 = 999.2 + (((Tc481avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync48 = 1.31 + (((Tc481avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc48 = 0.585 + (((Tc481avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc48 = 9.4 + (((Tc481avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc481avg <= 21.11 Then
cc48 = 4186 + (((Tc481avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc48 = 998.6 + (((Tc481avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync48 = 1.12 + (((Tc481avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc48 = 0.595 + (((Tc481avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc48 = 7.88 + (((Tc481avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc481avg <= 26.67 Then
cc48 = 4179 + (((Tc481avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc48 = 997.4 + (((Tc481avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync48 = 0.00098 + (((Tc481avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc48 = 0.604 + (((Tc481avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc48 = 6.78 + (((Tc481avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc481avg <= 32.22 Then
cc48 = 4179 + (((Tc481avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc48 = 995.8 + (((Tc481avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync48 = 8.6 + (((Tc481avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc48 = 0.614 + (((Tc481avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc48 = 5.85 + (((Tc481avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc481avg <= 37.78 Then
cc48 = 4174 + (((Tc481avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc48 = 994.9 + (((Tc481avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync48 = 7.65 + (((Tc481avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc48 = 0.623 + (((Tc481avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc48 = 5.12 + (((Tc481avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc481avg <= 43.33 Then
cc48 = 4174 + (((Tc481avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc48 = 993 + (((Tc481avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync48 = 6.82 + (((Tc481avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc48 = 0.63 + (((Tc481avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc48 = 4.53 + (((Tc481avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc481avg <= 48.89 Then
cc48 = 4174 + (((Tc481avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc48 = 990.6 + (((Tc481avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync48 = 6.16 + (((Tc481avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc48 = 0.637 + (((Tc481avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc48 = 4.04 + (((Tc481avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc481avg <= 54.44 Then
cc48 = 4174 + (((Tc481avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc48 = 998.8 + (((Tc481avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync48 = 5.62 + (((Tc481avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc48 = 0.644 + (((Tc481avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc48 = 3.64 + (((Tc481avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc481avg <= 60 Then
cc48 = 4179 + (((Tc481avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc48 = 985.7 + (((Tc481avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync48 = 5.13 + (((Tc481avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc48 = 0.649 + (((Tc481avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc48 = 3.3 + (((Tc481avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc481avg <= 65.55 Then
cc48 = 4179 + (((Tc481avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc48 = 983.3 + (((Tc481avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync48 = 4.71 + (((Tc481avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc48 = 0.654 + (((Tc481avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc48 = 3.01 + (((Tc481avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc481avg <= 71.11 Then
cc48 = 4183 + (((Tc481avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc48 = 980.3 + (((Tc481avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync48 = 4.3 + (((Tc481avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc48 = 0.659 + (((Tc481avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc48 = 2.73 + (((Tc481avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc481avg <= 76.67 Then
cc48 = 4186 + (((Tc481avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc48 = 977.3 + (((Tc481avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync48 = 4.01 + (((Tc481avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc48 = 0.665 + (((Tc481avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc48 = 2.53 + (((Tc481avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc481avg <= 82.22 Then
cc48 = 4191 + (((Tc481avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc48 = 973.7 + (((Tc481avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync48 = 3.72 + (((Tc481avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc48 = 0.668 + (((Tc481avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc48 = 2.33 + (((Tc481avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc481avg <= 87.78 Then
cc48 = 4195 + (((Tc481avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc48 = 970.2 + (((Tc481avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync48 = 3.47 + (((Tc481avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc48 = 0.673 + (((Tc481avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc48 = 2.16 + (((Tc481avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc481avg <= 93.33 Then
cc48 = 4199 + (((Tc481avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc48 = 966.7 + (((Tc481avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync48 = 3.27 + (((Tc481avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc48 = 0.675 + (((Tc481avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc48 = 2.03 + (((Tc481avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc481avg <= 104.4 Then
cc48 = 4204 + (((Tc481avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc48 = 963.2 + (((Tc481avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync48 = 3.06 + (((Tc481avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc48 = 0.678 + (((Tc481avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc48 = 1.9 + (((Tc481avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If




If 0 <= Tc491avg <= 4.44 Then 'Fourth flow channel,ninth partition
cc49 = 4225 + (((Tc491avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc49 = 999.8 + (((Tc491avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync49 = 0.00179 + (((Tc491avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc49 = 0.566 + (((Tc491avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc49 = 13.25 + (((Tc491avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc491avg <= 10 Then
cc49 = 4208 + (((Tc491avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc49 = 999.8 + (((Tc491avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync49 = 1.55 + (((Tc491avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc49 = 0.575 + (((Tc491avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc49 = 11.35 + (((Tc491avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc491avg <= 15.56 Then
cc49 = 4195 + (((Tc491avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc49 = 999.2 + (((Tc491avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync49 = 1.31 + (((Tc491avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc49 = 0.585 + (((Tc491avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc49 = 9.4 + (((Tc491avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc491avg <= 21.11 Then
cc49 = 4186 + (((Tc491avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc49 = 998.6 + (((Tc491avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync49 = 1.12 + (((Tc491avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc49 = 0.595 + (((Tc491avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc49 = 7.88 + (((Tc491avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc491avg <= 26.67 Then
cc49 = 4179 + (((Tc491avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc49 = 997.4 + (((Tc491avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync49 = 0.00098 + (((Tc491avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc49 = 0.604 + (((Tc491avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc49 = 6.78 + (((Tc491avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc491avg <= 32.22 Then
cc49 = 4179 + (((Tc491avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc49 = 995.8 + (((Tc491avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync49 = 8.6 + (((Tc491avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc49 = 0.614 + (((Tc491avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc49 = 5.85 + (((Tc491avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc491avg <= 37.78 Then
cc49 = 4174 + (((Tc491avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc49 = 994.9 + (((Tc491avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync49 = 7.65 + (((Tc491avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc49 = 0.623 + (((Tc491avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc49 = 5.12 + (((Tc491avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc491avg <= 43.33 Then
cc49 = 4174 + (((Tc491avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc49 = 993 + (((Tc491avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync49 = 6.82 + (((Tc491avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc49 = 0.63 + (((Tc491avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc49 = 4.53 + (((Tc491avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc491avg <= 48.89 Then
cc49 = 4174 + (((Tc491avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc49 = 990.6 + (((Tc491avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync49 = 6.16 + (((Tc491avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc49 = 0.637 + (((Tc491avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc49 = 4.04 + (((Tc491avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc491avg <= 54.44 Then
cc49 = 4174 + (((Tc491avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc49 = 998.8 + (((Tc491avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync49 = 5.62 + (((Tc491avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc49 = 0.644 + (((Tc491avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc49 = 3.64 + (((Tc491avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc491avg <= 60 Then
cc49 = 4179 + (((Tc491avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc49 = 985.7 + (((Tc491avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync49 = 5.13 + (((Tc491avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc49 = 0.649 + (((Tc491avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc49 = 3.3 + (((Tc491avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc491avg <= 65.55 Then
cc49 = 4179 + (((Tc491avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc49 = 983.3 + (((Tc491avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync49 = 4.71 + (((Tc491avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc49 = 0.654 + (((Tc491avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc49 = 3.01 + (((Tc491avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc491avg <= 71.11 Then
cc49 = 4183 + (((Tc491avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc49 = 980.3 + (((Tc491avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync49 = 4.3 + (((Tc491avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc49 = 0.659 + (((Tc491avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc49 = 2.73 + (((Tc491avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc491avg <= 76.67 Then
cc49 = 4186 + (((Tc491avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc49 = 977.3 + (((Tc491avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync49 = 4.01 + (((Tc491avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc49 = 0.665 + (((Tc491avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc49 = 2.53 + (((Tc491avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc491avg <= 82.22 Then
cc49 = 4191 + (((Tc491avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc49 = 973.7 + (((Tc491avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync49 = 3.72 + (((Tc491avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc49 = 0.668 + (((Tc491avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc49 = 2.33 + (((Tc491avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc491avg <= 87.78 Then
cc49 = 4195 + (((Tc491avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc49 = 970.2 + (((Tc491avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync49 = 3.47 + (((Tc491avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc49 = 0.673 + (((Tc491avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc49 = 2.16 + (((Tc491avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc491avg <= 93.33 Then
cc49 = 4199 + (((Tc491avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc49 = 966.7 + (((Tc491avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync49 = 3.27 + (((Tc491avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc49 = 0.675 + (((Tc491avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc49 = 2.03 + (((Tc491avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc491avg <= 104.4 Then
cc49 = 4204 + (((Tc491avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc49 = 963.2 + (((Tc491avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync49 = 3.06 + (((Tc491avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc49 = 0.678 + (((Tc491avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc49 = 1.9 + (((Tc491avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc4101avg <= 4.44 Then 'Fourth flow channel,tenth partition
cc410 = 4225 + (((Tc4101avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc410 = 999.8 + (((Tc4101avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync410 = 0.00179 + (((Tc4101avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc410 = 0.566 + (((Tc4101avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc410 = 13.25 + (((Tc4101avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc4101avg <= 10 Then
cc410 = 4208 + (((Tc4101avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc410 = 999.8 + (((Tc4101avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync410 = 1.55 + (((Tc4101avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc410 = 0.575 + (((Tc4101avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc410 = 11.35 + (((Tc4101avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc4101avg <= 15.56 Then
cc410 = 4195 + (((Tc4101avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc410 = 999.2 + (((Tc4101avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync410 = 1.31 + (((Tc4101avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc410 = 0.585 + (((Tc4101avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc410 = 9.4 + (((Tc4101avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc4101avg <= 21.11 Then
cc410 = 4186 + (((Tc4101avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc410 = 998.6 + (((Tc4101avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync410 = 1.12 + (((Tc4101avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc410 = 0.595 + (((Tc4101avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc410 = 7.88 + (((Tc4101avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc4101avg <= 26.67 Then
cc410 = 4179 + (((Tc4101avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc410 = 997.4 + (((Tc4101avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync410 = 0.00098 + (((Tc4101avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc410 = 0.604 + (((Tc4101avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc410 = 6.78 + (((Tc4101avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc4101avg <= 32.22 Then
cc410 = 4179 + (((Tc4101avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc410 = 995.8 + (((Tc4101avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync410 = 8.6 + (((Tc4101avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc410 = 0.614 + (((Tc4101avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc410 = 5.85 + (((Tc4101avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc4101avg <= 37.78 Then
cc410 = 4174 + (((Tc4101avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc410 = 994.9 + (((Tc4101avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync410 = 7.65 + (((Tc4101avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc410 = 0.623 + (((Tc4101avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc410 = 5.12 + (((Tc4101avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc4101avg <= 43.33 Then
cc410 = 4174 + (((Tc4101avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc410 = 993 + (((Tc4101avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync410 = 6.82 + (((Tc4101avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc410 = 0.63 + (((Tc4101avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc410 = 4.53 + (((Tc4101avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc4101avg <= 48.89 Then
cc410 = 4174 + (((Tc4101avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc410 = 990.6 + (((Tc4101avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync410 = 6.16 + (((Tc4101avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc410 = 0.637 + (((Tc4101avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc410 = 4.04 + (((Tc4101avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc4101avg <= 54.44 Then
cc410 = 4174 + (((Tc4101avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc410 = 998.8 + (((Tc4101avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync410 = 5.62 + (((Tc4101avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc410 = 0.644 + (((Tc4101avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc410 = 3.64 + (((Tc4101avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc4101avg <= 60 Then
cc410 = 4179 + (((Tc4101avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc410 = 985.7 + (((Tc4101avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync410 = 5.13 + (((Tc4101avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc410 = 0.649 + (((Tc4101avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc410 = 3.3 + (((Tc4101avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc4101avg <= 65.55 Then
cc410 = 4179 + (((Tc4101avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc410 = 983.3 + (((Tc4101avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync410 = 4.71 + (((Tc4101avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc410 = 0.654 + (((Tc4101avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc410 = 3.01 + (((Tc4101avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc4101avg <= 71.11 Then
cc410 = 4183 + (((Tc4101avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc410 = 980.3 + (((Tc4101avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync410 = 4.3 + (((Tc4101avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc410 = 0.659 + (((Tc4101avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc410 = 2.73 + (((Tc4101avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc4101avg <= 76.67 Then
cc410 = 4186 + (((Tc4101avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc410 = 977.3 + (((Tc4101avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync410 = 4.01 + (((Tc4101avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc410 = 0.665 + (((Tc4101avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc410 = 2.53 + (((Tc4101avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc4101avg <= 82.22 Then
cc410 = 4191 + (((Tc4101avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc410 = 973.7 + (((Tc4101avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync410 = 3.72 + (((Tc4101avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc410 = 0.668 + (((Tc4101avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc410 = 2.33 + (((Tc4101avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc4101avg <= 87.78 Then
cc410 = 4195 + (((Tc4101avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc410 = 970.2 + (((Tc4101avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync410 = 3.47 + (((Tc4101avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc410 = 0.673 + (((Tc4101avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc410 = 2.16 + (((Tc4101avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc4101avg <= 93.33 Then
cc410 = 4199 + (((Tc4101avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc410 = 966.7 + (((Tc4101avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync410 = 3.27 + (((Tc4101avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc410 = 0.675 + (((Tc4101avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc410 = 2.03 + (((Tc4101avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc4101avg <= 104.4 Then
cc410 = 4204 + (((Tc4101avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc410 = 963.2 + (((Tc4101avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync410 = 3.06 + (((Tc4101avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc410 = 0.678 + (((Tc4101avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc410 = 1.9 + (((Tc4101avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 140 <= Th511avg <= 160 Then 'Fifth flow channel,first partition

ch51 = 2395 + (((Th511avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh51 = 816.94 + (((Th511avg - 140) / (160 - 140)) * (805 - 816.94))
dynh51 = 65.3552 + (((Th511avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh51 = 0.133 + (((Th511avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh51 = 116 + (((Th511avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th511avg <= 140 Then
ch51 = 2307 + (((Th511avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh51 = 828.96 + (((Th511avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh51 = 102.79104 + (((Th511avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh51 = 0.135 + (((Th511avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh51 = 175 + (((Th511avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th511avg <= 120 Then
ch51 = 2219 + (((Th511avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh51 = 840.01 + (((Th511avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh51 = 170.52203 + (((Th511avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh51 = 0.137 + (((Th511avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh51 = 276 + (((Th511avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th511avg <= 100 Then
ch51 = 2131 + (((Th511avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh51 = 852.02 + (((Th511avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh51 = 319.5075 + (((Th511avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh51 = 0.138 + (((Th511avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh51 = 490 + (((Th511avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th511avg <= 80 Then
ch51 = 2047 + (((Th511avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh51 = 864.04 + (((Th511avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh51 = 0.072492956 + (((Th511avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh51 = 0.14 + (((Th511avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh51 = 1050 + (((Th511avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th511avg <= 60 Then
ch51 = 1964 + (((Th511avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh51 = 876.05 + (((Th511avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh51 = 0.210252 + (((Th511avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh51 = 0.144 + (((Th511avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh51 = 2870 + (((Th511avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th511avg <= 40 Then
ch51 = 1880 + (((Th511avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh51 = 888.23 + (((Th511avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh51 = 0.799407 + (((Th511avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh51 = 0.145 + (((Th511avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh51 = 10400 + (((Th511avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th511avg <= 20 Then
ch51 = 1796 + (((Th511avg) / (20)) * (1880 - 1796))
rhoh51 = 899.12 + (((Th511avg) / (20)) * (888.23 - 899.12))
dynh51 = 3.84823 + (((Th511avg) / (20)) * (0.799407 - 3.84823))
kh51 = 0.147 + (((Th511avg) / (20)) * (0.145 - 0.147))
prh51 = 47100 + (((Th511avg) / (20)) * (10400 - 47100))

End If
End If
End If
If 140 <= Th521avg <= 160 Then 'Fifth flow channel,second partition

ch52 = 2395 + (((Th521avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh52 = 816.94 + (((Th521avg - 140) / (160 - 140)) * (805 - 816.94))
dynh52 = 65.3552 + (((Th521avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh52 = 0.133 + (((Th521avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh52 = 116 + (((Th521avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th521avg <= 140 Then
ch52 = 2307 + (((Th521avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh52 = 828.96 + (((Th521avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh52 = 102.79104 + (((Th521avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh52 = 0.135 + (((Th521avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh52 = 175 + (((Th521avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th521avg <= 120 Then
ch52 = 2219 + (((Th521avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh52 = 840.01 + (((Th521avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh52 = 170.52203 + (((Th521avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh52 = 0.137 + (((Th521avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh52 = 276 + (((Th521avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th521avg <= 100 Then
ch52 = 2131 + (((Th521avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh52 = 852.02 + (((Th521avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh52 = 319.5075 + (((Th521avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh52 = 0.138 + (((Th521avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh52 = 490 + (((Th521avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th521avg <= 80 Then
ch52 = 2047 + (((Th521avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh52 = 864.04 + (((Th521avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh52 = 0.072492956 + (((Th521avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh52 = 0.14 + (((Th521avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh52 = 1050 + (((Th521avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th521avg <= 60 Then
ch52 = 1964 + (((Th521avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh52 = 876.05 + (((Th521avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh52 = 0.210252 + (((Th521avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh52 = 0.144 + (((Th521avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh52 = 2870 + (((Th521avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th521avg <= 40 Then
ch52 = 1880 + (((Th521avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh52 = 888.23 + (((Th521avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh52 = 0.799407 + (((Th521avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh52 = 0.145 + (((Th521avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh52 = 10400 + (((Th521avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th521avg <= 20 Then
ch52 = 1796 + (((Th521avg) / (20)) * (1880 - 1796))
rhoh52 = 899.12 + (((Th521avg) / (20)) * (888.23 - 899.12))
dynh52 = 3.84823 + (((Th521avg) / (20)) * (0.799407 - 3.84823))
kh52 = 0.147 + (((Th521avg) / (20)) * (0.145 - 0.147))
prh52 = 47100 + (((Th521avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th531avg <= 160 Then 'Fifth flow channel,Third partition

ch53 = 2395 + (((Th531avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh53 = 816.94 + (((Th531avg - 140) / (160 - 140)) * (805 - 816.94))
dynh53 = 65.3552 + (((Th531avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh53 = 0.133 + (((Th531avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh53 = 116 + (((Th531avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th531avg <= 140 Then
ch53 = 2307 + (((Th531avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh53 = 828.96 + (((Th531avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh53 = 102.79104 + (((Th531avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh53 = 0.135 + (((Th531avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh53 = 175 + (((Th531avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th531avg <= 120 Then
ch53 = 2219 + (((Th531avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh53 = 840.01 + (((Th531avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh53 = 170.52203 + (((Th531avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh53 = 0.137 + (((Th531avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh53 = 276 + (((Th531avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th531avg <= 100 Then
ch53 = 2131 + (((Th531avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh53 = 852.02 + (((Th531avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh53 = 319.5075 + (((Th531avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh53 = 0.138 + (((Th531avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh53 = 490 + (((Th531avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th531avg <= 80 Then
ch53 = 2047 + (((Th531avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh53 = 864.04 + (((Th531avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh53 = 0.072492956 + (((Th531avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh53 = 0.14 + (((Th531avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh53 = 1050 + (((Th531avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th531avg <= 60 Then
ch53 = 1964 + (((Th531avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh53 = 876.05 + (((Th531avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh53 = 0.210252 + (((Th531avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh53 = 0.144 + (((Th531avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh53 = 2870 + (((Th531avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th531avg <= 40 Then
ch53 = 1880 + (((Th531avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh53 = 888.23 + (((Th531avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh53 = 0.799407 + (((Th531avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh53 = 0.145 + (((Th531avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh53 = 10400 + (((Th531avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th531avg <= 20 Then
ch53 = 1796 + (((Th531avg) / (20)) * (1880 - 1796))
rhoh53 = 899.12 + (((Th531avg) / (20)) * (888.23 - 899.12))
dynh53 = 3.84823 + (((Th531avg) / (20)) * (0.799407 - 3.84823))
kh53 = 0.147 + (((Th531avg) / (20)) * (0.145 - 0.147))
prh53 = 47100 + (((Th531avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th541avg <= 160 Then 'Fifth flow channel,fourth partition
ch54 = 2395 + (((Th541avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh54 = 816.94 + (((Th541avg - 140) / (160 - 140)) * (805 - 816.94))
dynh54 = 65.3552 + (((Th541avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh54 = 0.133 + (((Th541avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh54 = 116 + (((Th541avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th541avg <= 140 Then
ch54 = 2307 + (((Th541avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh54 = 828.96 + (((Th541avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh54 = 102.79104 + (((Th541avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh54 = 0.135 + (((Th541avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh54 = 175 + (((Th541avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th541avg <= 120 Then
ch54 = 2219 + (((Th541avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh54 = 840.01 + (((Th541avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh54 = 170.52203 + (((Th541avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh54 = 0.137 + (((Th541avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh54 = 276 + (((Th541avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th541avg <= 100 Then
ch54 = 2131 + (((Th541avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh54 = 852.02 + (((Th541avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh54 = 319.5075 + (((Th541avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh54 = 0.138 + (((Th541avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh54 = 490 + (((Th541avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th541avg <= 80 Then
ch54 = 2047 + (((Th541avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh54 = 864.04 + (((Th541avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh54 = 0.072492956 + (((Th541avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh54 = 0.14 + (((Th541avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh54 = 1050 + (((Th541avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th541avg <= 60 Then
ch54 = 1964 + (((Th541avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh54 = 876.05 + (((Th541avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh54 = 0.210252 + (((Th541avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh54 = 0.144 + (((Th541avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh54 = 2870 + (((Th541avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th541avg <= 40 Then
ch54 = 1880 + (((Th541avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh54 = 888.23 + (((Th541avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh54 = 0.799407 + (((Th541avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh54 = 0.145 + (((Th541avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh54 = 10400 + (((Th541avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th541avg <= 20 Then
ch54 = 1796 + (((Th541avg) / (20)) * (1880 - 1796))
rhoh54 = 899.12 + (((Th541avg) / (20)) * (888.23 - 899.12))
dynh54 = 3.84823 + (((Th541avg) / (20)) * (0.799407 - 3.84823))
kh54 = 0.147 + (((Th541avg) / (20)) * (0.145 - 0.147))
prh54 = 47100 + (((Th541avg) / (20)) * (10400 - 47100))


End If
End If
End If

If 340 <= Th551avg <= 160 Then 'Fifth flow channel,fifth partition
ch55 = 2395 + (((Th551avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh55 = 816.94 + (((Th551avg - 140) / (160 - 140)) * (805 - 816.94))
dynh55 = 65.3552 + (((Th551avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh55 = 0.133 + (((Th551avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh55 = 116 + (((Th551avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th551avg <= 140 Then
ch55 = 2307 + (((Th551avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh55 = 828.96 + (((Th551avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh55 = 102.79104 + (((Th551avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh55 = 0.135 + (((Th551avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh55 = 175 + (((Th551avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th551avg <= 120 Then
ch55 = 2219 + (((Th551avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh55 = 840.01 + (((Th551avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh55 = 170.52203 + (((Th551avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh55 = 0.137 + (((Th551avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh55 = 276 + (((Th551avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th551avg <= 100 Then
ch55 = 2131 + (((Th551avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh55 = 852.02 + (((Th551avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh55 = 319.5075 + (((Th551avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh55 = 0.138 + (((Th551avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh55 = 490 + (((Th551avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th551avg <= 80 Then
ch55 = 2047 + (((Th551avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh55 = 864.04 + (((Th551avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh55 = 0.072492956 + (((Th551avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh55 = 0.14 + (((Th551avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh55 = 1050 + (((Th551avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th551avg <= 60 Then
ch55 = 1964 + (((Th551avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh55 = 876.05 + (((Th551avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh55 = 0.210252 + (((Th551avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh55 = 0.144 + (((Th551avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh55 = 2870 + (((Th551avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th551avg <= 40 Then
ch55 = 1880 + (((Th551avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh55 = 888.23 + (((Th551avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh55 = 0.799407 + (((Th551avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh55 = 0.145 + (((Th551avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh55 = 10400 + (((Th551avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th551avg <= 20 Then
ch55 = 1796 + (((Th551avg) / (20)) * (1880 - 1796))
rhoh55 = 899.12 + (((Th551avg) / (20)) * (888.23 - 899.12))
dynh55 = 3.84823 + (((Th551avg) / (20)) * (0.799407 - 3.84823))
kh55 = 0.147 + (((Th551avg) / (20)) * (0.145 - 0.147))
prh55 = 47100 + (((Th551avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th561avg <= 160 Then 'Fifth flow channel,sixth partition
ch56 = 2395 + (((Th561avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh56 = 816.94 + (((Th561avg - 140) / (160 - 140)) * (805 - 816.94))
dynh56 = 65.3552 + (((Th561avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh56 = 0.133 + (((Th561avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh56 = 116 + (((Th561avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th561avg <= 140 Then
ch56 = 2307 + (((Th561avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh56 = 828.96 + (((Th561avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh56 = 102.79104 + (((Th561avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh56 = 0.135 + (((Th561avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh56 = 175 + (((Th561avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th561avg <= 120 Then
ch56 = 2219 + (((Th561avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh56 = 840.01 + (((Th561avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh56 = 170.52203 + (((Th561avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh56 = 0.137 + (((Th561avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh56 = 276 + (((Th561avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th561avg <= 100 Then
ch56 = 2131 + (((Th561avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh56 = 852.02 + (((Th561avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh56 = 319.5075 + (((Th561avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh56 = 0.138 + (((Th561avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh56 = 490 + (((Th561avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th561avg <= 80 Then
ch56 = 2047 + (((Th561avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh56 = 864.04 + (((Th561avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh56 = 0.072492956 + (((Th561avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh56 = 0.14 + (((Th561avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh56 = 1050 + (((Th561avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th561avg <= 60 Then
ch56 = 1964 + (((Th561avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh56 = 876.05 + (((Th561avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh56 = 0.210252 + (((Th561avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh56 = 0.144 + (((Th561avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh56 = 2870 + (((Th561avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th561avg <= 40 Then
ch56 = 1880 + (((Th561avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh56 = 888.23 + (((Th561avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh56 = 0.799407 + (((Th561avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh56 = 0.145 + (((Th561avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh56 = 10400 + (((Th561avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th561avg <= 20 Then
ch56 = 1796 + (((Th561avg) / (20)) * (1880 - 1796))
rhoh56 = 899.12 + (((Th561avg) / (20)) * (888.23 - 899.12))
dynh56 = 3.84823 + (((Th561avg) / (20)) * (0.799407 - 3.84823))
kh56 = 0.147 + (((Th561avg) / (20)) * (0.145 - 0.147))
prh56 = 47100 + (((Th561avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th571avg <= 160 Then 'Fifth flow channel,seventh partition
ch57 = 2395 + (((Th571avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh57 = 816.94 + (((Th571avg - 140) / (160 - 140)) * (805 - 816.94))
dynh57 = 65.3552 + (((Th571avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh57 = 0.133 + (((Th571avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh57 = 116 + (((Th571avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th571avg <= 140 Then
ch57 = 2307 + (((Th571avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh57 = 828.96 + (((Th571avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh57 = 102.79104 + (((Th571avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh57 = 0.135 + (((Th571avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh57 = 175 + (((Th571avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th571avg <= 120 Then
ch57 = 2219 + (((Th571avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh57 = 840.01 + (((Th571avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh57 = 170.52203 + (((Th571avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh57 = 0.137 + (((Th571avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh57 = 276 + (((Th571avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th571avg <= 100 Then
ch57 = 2131 + (((Th571avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh57 = 852.02 + (((Th571avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh57 = 319.5075 + (((Th571avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh57 = 0.138 + (((Th571avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh57 = 490 + (((Th571avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th571avg <= 80 Then
ch57 = 2047 + (((Th571avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh57 = 864.04 + (((Th571avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh57 = 0.072492956 + (((Th571avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh57 = 0.14 + (((Th571avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh57 = 1050 + (((Th571avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th571avg <= 60 Then
ch57 = 1964 + (((Th571avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh57 = 876.05 + (((Th571avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh57 = 0.210252 + (((Th571avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh57 = 0.144 + (((Th571avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh57 = 2870 + (((Th571avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th571avg <= 40 Then
ch57 = 1880 + (((Th571avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh57 = 888.23 + (((Th571avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh57 = 0.799407 + (((Th571avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh57 = 0.145 + (((Th571avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh57 = 10400 + (((Th571avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th571avg <= 20 Then
ch57 = 1796 + (((Th571avg) / (20)) * (1880 - 1796))
rhoh57 = 899.12 + (((Th571avg) / (20)) * (888.23 - 899.12))
dynh57 = 3.84823 + (((Th571avg) / (20)) * (0.799407 - 3.84823))
kh57 = 0.147 + (((Th571avg) / (20)) * (0.145 - 0.147))
prh57 = 47100 + (((Th571avg) / (20)) * (10400 - 47100))

End If
End If
End If


If 140 <= Th581avg <= 160 Then 'Fifth flow channel,eight partition
ch58 = 2395 + (((Th581avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh58 = 816.94 + (((Th581avg - 140) / (160 - 140)) * (805 - 816.94))
dynh58 = 65.3552 + (((Th581avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh58 = 0.133 + (((Th581avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh58 = 116 + (((Th581avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th581avg <= 140 Then
ch58 = 2307 + (((Th581avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh58 = 828.96 + (((Th581avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh58 = 102.79104 + (((Th581avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh58 = 0.135 + (((Th581avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh58 = 175 + (((Th581avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th581avg <= 120 Then
ch58 = 2219 + (((Th581avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh58 = 840.01 + (((Th581avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh58 = 170.52203 + (((Th581avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh58 = 0.137 + (((Th581avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh58 = 276 + (((Th581avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th581avg <= 100 Then
ch58 = 2131 + (((Th581avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh58 = 852.02 + (((Th581avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh58 = 319.5075 + (((Th581avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh58 = 0.138 + (((Th581avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh58 = 490 + (((Th581avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th581avg <= 80 Then
ch58 = 2047 + (((Th581avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh58 = 864.04 + (((Th581avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh58 = 0.072492956 + (((Th581avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh58 = 0.14 + (((Th581avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh58 = 1050 + (((Th581avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th581avg <= 60 Then
ch58 = 1964 + (((Th581avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh58 = 876.05 + (((Th581avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh58 = 0.210252 + (((Th581avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh58 = 0.144 + (((Th581avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh58 = 2870 + (((Th581avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th581avg <= 40 Then
ch58 = 1880 + (((Th581avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh58 = 888.23 + (((Th581avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh58 = 0.799407 + (((Th581avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh58 = 0.145 + (((Th581avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh58 = 10400 + (((Th581avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th581avg <= 20 Then
ch58 = 1796 + (((Th581avg) / (20)) * (1880 - 1796))
rhoh58 = 899.12 + (((Th581avg) / (20)) * (888.23 - 899.12))
dynh58 = 3.84823 + (((Th581avg) / (20)) * (0.799407 - 3.84823))
kh58 = 0.147 + (((Th581avg) / (20)) * (0.145 - 0.147))
prh58 = 47100 + (((Th581avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th591avg <= 160 Then 'Fifth flow channel,ninth partition
ch59 = 2395 + (((Th591avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh59 = 816.94 + (((Th591avg - 140) / (160 - 140)) * (805 - 816.94))
dynh59 = 65.3552 + (((Th591avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh59 = 0.133 + (((Th591avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh59 = 116 + (((Th591avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th591avg <= 140 Then
ch59 = 2307 + (((Th591avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh59 = 828.96 + (((Th591avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh59 = 102.79104 + (((Th591avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh59 = 0.135 + (((Th591avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh59 = 175 + (((Th591avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th591avg <= 120 Then
ch59 = 2219 + (((Th591avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh59 = 840.01 + (((Th591avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh59 = 170.52203 + (((Th591avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh59 = 0.137 + (((Th591avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh59 = 276 + (((Th591avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th591avg <= 100 Then
ch59 = 2131 + (((Th591avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh59 = 852.02 + (((Th591avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh59 = 319.5075 + (((Th591avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh59 = 0.138 + (((Th591avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh59 = 490 + (((Th591avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th591avg <= 80 Then
ch59 = 2047 + (((Th591avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh59 = 864.04 + (((Th591avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh59 = 0.072492956 + (((Th591avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh59 = 0.14 + (((Th591avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh59 = 1050 + (((Th591avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th591avg <= 60 Then
ch59 = 1964 + (((Th591avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh59 = 876.05 + (((Th591avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh59 = 0.210252 + (((Th591avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh59 = 0.144 + (((Th591avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh59 = 2870 + (((Th591avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th591avg <= 40 Then
ch59 = 1880 + (((Th591avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh59 = 888.23 + (((Th591avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh59 = 0.799407 + (((Th591avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh59 = 0.145 + (((Th591avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh59 = 10400 + (((Th591avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th591avg <= 20 Then
ch59 = 1796 + (((Th591avg) / (20)) * (1880 - 1796))
rhoh59 = 899.12 + (((Th591avg) / (20)) * (888.23 - 899.12))
dynh59 = 3.84823 + (((Th591avg) / (20)) * (0.799407 - 3.84823))
kh59 = 0.147 + (((Th591avg) / (20)) * (0.145 - 0.147))
prh59 = 47100 + (((Th591avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th5101avg <= 160 Then 'Fifth flow channel,Tenth partition
ch510 = 2395 + (((Th5101avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh510 = 816.94 + (((Th5101avg - 140) / (160 - 140)) * (805 - 816.94))
dynh510 = 65.3552 + (((Th5101avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh510 = 0.133 + (((Th5101avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh510 = 116 + (((Th5101avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th5101avg <= 140 Then
ch510 = 2307 + (((Th5101avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh510 = 828.96 + (((Th5101avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh510 = 102.79104 + (((Th5101avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh510 = 0.135 + (((Th5101avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh510 = 175 + (((Th5101avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th5101avg <= 120 Then
ch510 = 2219 + (((Th5101avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh510 = 840.01 + (((Th5101avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh510 = 170.52203 + (((Th5101avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh510 = 0.137 + (((Th5101avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh510 = 276 + (((Th5101avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th5101avg <= 100 Then
ch510 = 2131 + (((Th5101avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh510 = 852.02 + (((Th5101avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh510 = 319.5075 + (((Th5101avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh510 = 0.138 + (((Th5101avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh510 = 490 + (((Th5101avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th5101avg <= 80 Then
ch510 = 2047 + (((Th5101avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh510 = 864.04 + (((Th5101avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh510 = 0.072492956 + (((Th5101avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh510 = 0.14 + (((Th5101avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh510 = 1050 + (((Th5101avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th5101avg <= 60 Then
ch510 = 1964 + (((Th5101avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh510 = 876.05 + (((Th5101avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh510 = 0.210252 + (((Th5101avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh510 = 0.144 + (((Th5101avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh510 = 2870 + (((Th5101avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th5101avg <= 40 Then
ch510 = 1880 + (((Th5101avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh510 = 888.23 + (((Th5101avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh510 = 0.799407 + (((Th5101avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh510 = 0.145 + (((Th5101avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh510 = 10400 + (((Th5101avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th5101avg <= 20 Then
ch510 = 1796 + (((Th5101avg) / (20)) * (1880 - 1796))
rhoh510 = 899.12 + (((Th5101avg) / (20)) * (888.23 - 899.12))
dynh510 = 3.84823 + (((Th5101avg) / (20)) * (0.799407 - 3.84823))
kh510 = 0.147 + (((Th5101avg) / (20)) * (0.145 - 0.147))
prh510 = 47100 + (((Th5101avg) / (20)) * (10400 - 47100))


End If
End If
End If


If 140 <= Th5111 <= 160 Then
ch511 = 2395 + (((Th5111 - 140) / (160 - 140)) * (2483 - 2395))
rhoh511 = 816.94 + (((Th5111 - 140) / (160 - 140)) * (805 - 816.94))
dynh511 = 65.3552 + (((Th5111 - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh511 = 0.133 + (((Th5111 - 140) / (160 - 140)) * (0.132 - 0.133))
prh511 = 116 + (((Th5111 - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th5111 <= 140 Then
ch511 = 2307 + (((Th5111 - 120) / (140 - 120)) * (2395 - 2307))
rhoh511 = 828.96 + (((Th5111 - 120) / (140 - 120)) * (816.94 - 828.96))
dynh511 = 102.79104 + (((Th5111 - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh511 = 0.135 + (((Th5111 - 120) / (140 - 120)) * (0.133 - 0.135))
prh511 = 175 + (((Th5111 - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th5111 <= 120 Then
ch511 = 2219 + (((Th5111 - 100) / (120 - 100)) * (2307 - 2219))
rhoh511 = 840.01 + (((Th5111 - 100) / (120 - 100)) * (828.96 - 840.01))
dynh511 = 170.52203 + (((Th5111 - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh511 = 0.137 + (((Th5111 - 100) / (120 - 100)) * (0.135 - 0.137))
prh511 = 276 + (((Th5111 - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th5111 <= 100 Then
ch511 = 2131 + (((Th5111 - 80) / (100 - 80)) * (2219 - 2131))
rhoh511 = 852.02 + (((Th5111 - 80) / (100 - 80)) * (840.01 - 852.02))
dynh511 = 319.5075 + (((Th5111 - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh511 = 0.138 + (((Th5111 - 80) / (100 - 80)) * (0.137 - 0.138))
prh511 = 490 + (((Th5111 - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th5111 <= 80 Then
ch511 = 2047 + (((Th5111 - 60) / (80 - 60)) * (2131 - 2047))
rhoh511 = 864.04 + (((Th5111 - 60) / (80 - 60)) * (852.02 - 864.04))
dynh511 = 0.072492956 + (((Th5111 - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh511 = 0.14 + (((Th5111 - 60) / (80 - 60)) * (0.138 - 0.14))
prh511 = 1050 + (((Th5111 - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th5111 <= 60 Then
ch511 = 1964 + (((Th5111 - 40) / (60 - 40)) * (2047 - 1964))
rhoh511 = 876.05 + (((Th5111 - 40) / (60 - 40)) * (864.04 - 876.05))
dynh511 = 0.210252 + (((Th5111 - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh511 = 0.144 + (((Th5111 - 40) / (60 - 40)) * (0.14 - 0.144))
prh511 = 2870 + (((Th5111 - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th5111 <= 40 Then
ch511 = 1880 + (((Th5111 - 20) / (40 - 20)) * (1964 - 1880))
rhoh511 = 888.23 + (((Th5111 - 20) / (40 - 20)) * (876.05 - 888.23))
dynh511 = 0.799407 + (((Th5111 - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh511 = 0.145 + (((Th5111 - 20) / (40 - 20)) * (0.144 - 0.145))
prh511 = 10400 + (((Th5111 - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th5111 <= 20 Then
ch511 = 1796 + (((Th5111) / (20)) * (1880 - 1796))
rhoh511 = 899.12 + (((Th5111) / (20)) * (888.23 - 899.12))
dynh511 = 3.84823 + (((Th5111) / (20)) * (0.799407 - 3.84823))
kh511 = 0.147 + (((Th5111) / (20)) * (0.145 - 0.147))
prh511 = 47100 + (((Th5111) / (20)) * (10400 - 47100))


End If
End If
End If




If 0 <= Tc611avg <= 4.44 Then 'Sixth flow channel,first partion
cc61 = 4225 + (((Tc611avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc61 = 999.8 + (((Tc611avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync61 = 0.00179 + (((Tc611avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc61 = 0.566 + (((Tc611avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc61 = 13.25 + (((Tc611avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc611avg <= 10 Then
cc61 = 4208 + (((Tc611avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc61 = 999.8 + (((Tc611avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync61 = 1.55 + (((Tc611avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc61 = 0.575 + (((Tc611avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc61 = 11.35 + (((Tc611avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc611avg <= 15.56 Then
cc61 = 4195 + (((Tc611avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc61 = 999.2 + (((Tc611avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync61 = 1.31 + (((Tc611avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc61 = 0.585 + (((Tc611avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc61 = 9.4 + (((Tc611avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc611avg <= 21.11 Then
cc61 = 4186 + (((Tc611avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc61 = 998.6 + (((Tc611avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync61 = 1.12 + (((Tc611avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc61 = 0.595 + (((Tc611avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc61 = 7.88 + (((Tc611avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc611avg <= 26.67 Then
cc61 = 4179 + (((Tc611avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc61 = 997.4 + (((Tc611avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync61 = 0.00098 + (((Tc611avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc61 = 0.604 + (((Tc611avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc61 = 6.78 + (((Tc611avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc611avg <= 32.22 Then
cc61 = 4179 + (((Tc611avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc61 = 995.8 + (((Tc611avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync61 = 8.6 + (((Tc611avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc61 = 0.614 + (((Tc611avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc61 = 5.85 + (((Tc611avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc611avg <= 37.78 Then
cc61 = 4174 + (((Tc611avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc61 = 994.9 + (((Tc611avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync61 = 7.65 + (((Tc611avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc61 = 0.623 + (((Tc611avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc61 = 5.12 + (((Tc611avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc611avg <= 43.33 Then
cc61 = 4174 + (((Tc611avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc61 = 993 + (((Tc611avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync61 = 6.82 + (((Tc611avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc61 = 0.63 + (((Tc611avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc61 = 4.53 + (((Tc611avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc611avg <= 48.89 Then
cc61 = 4174 + (((Tc611avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc61 = 990.6 + (((Tc611avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync61 = 6.16 + (((Tc611avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc61 = 0.637 + (((Tc611avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc61 = 4.04 + (((Tc611avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc611avg <= 54.44 Then
cc61 = 4174 + (((Tc611avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc61 = 998.8 + (((Tc611avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync61 = 5.62 + (((Tc611avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc61 = 0.644 + (((Tc611avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc61 = 3.64 + (((Tc611avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc611avg <= 60 Then
cc61 = 4179 + (((Tc611avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc61 = 985.7 + (((Tc611avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync61 = 5.13 + (((Tc611avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc61 = 0.649 + (((Tc611avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc61 = 3.3 + (((Tc611avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc611avg <= 65.55 Then
cc61 = 4179 + (((Tc611avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc61 = 983.3 + (((Tc611avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync61 = 4.71 + (((Tc611avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc61 = 0.654 + (((Tc611avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc61 = 3.01 + (((Tc611avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc611avg <= 71.11 Then
cc61 = 4183 + (((Tc611avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc61 = 980.3 + (((Tc611avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync61 = 4.3 + (((Tc611avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc61 = 0.659 + (((Tc611avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc61 = 2.73 + (((Tc611avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc611avg <= 76.67 Then
cc61 = 4186 + (((Tc611avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc61 = 977.3 + (((Tc611avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync61 = 4.01 + (((Tc611avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc61 = 0.665 + (((Tc611avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc61 = 2.53 + (((Tc611avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc611avg <= 82.22 Then
cc61 = 4191 + (((Tc611avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc61 = 973.7 + (((Tc611avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync61 = 3.72 + (((Tc611avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc61 = 0.668 + (((Tc611avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc61 = 2.33 + (((Tc611avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc611avg <= 87.78 Then
cc61 = 4195 + (((Tc611avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc61 = 970.2 + (((Tc611avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync61 = 3.47 + (((Tc611avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc61 = 0.673 + (((Tc611avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc61 = 2.16 + (((Tc611avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc611avg <= 93.33 Then
cc61 = 4199 + (((Tc611avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc61 = 966.7 + (((Tc611avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync61 = 3.27 + (((Tc611avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc61 = 0.675 + (((Tc611avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc61 = 2.03 + (((Tc611avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc611avg <= 104.4 Then
cc61 = 4204 + (((Tc611avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc61 = 963.2 + (((Tc611avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync61 = 3.06 + (((Tc611avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc61 = 0.678 + (((Tc611avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc61 = 1.9 + (((Tc611avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc621avg <= 4.44 Then 'Sixth flow channel,second partition
cc62 = 4225 + (((Tc621avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc62 = 999.8 + (((Tc621avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync62 = 0.00179 + (((Tc621avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc62 = 0.566 + (((Tc621avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc62 = 13.25 + (((Tc621avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc621avg <= 10 Then
cc62 = 4208 + (((Tc621avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc62 = 999.8 + (((Tc621avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync62 = 1.55 + (((Tc621avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc62 = 0.575 + (((Tc621avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc62 = 11.35 + (((Tc621avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc621avg <= 15.56 Then
cc62 = 4195 + (((Tc621avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc62 = 999.2 + (((Tc621avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync62 = 1.31 + (((Tc621avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc62 = 0.585 + (((Tc621avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc62 = 9.4 + (((Tc621avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc621avg <= 21.11 Then
cc62 = 4186 + (((Tc621avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc62 = 998.6 + (((Tc621avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync62 = 1.12 + (((Tc621avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc62 = 0.595 + (((Tc621avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc62 = 7.88 + (((Tc621avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc621avg <= 26.67 Then
cc62 = 4179 + (((Tc621avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc62 = 997.4 + (((Tc621avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync62 = 0.00098 + (((Tc621avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc62 = 0.604 + (((Tc621avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc62 = 6.78 + (((Tc621avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc621avg <= 32.22 Then
cc62 = 4179 + (((Tc621avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc62 = 995.8 + (((Tc621avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync62 = 8.6 + (((Tc621avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc62 = 0.614 + (((Tc621avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc62 = 5.85 + (((Tc621avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc621avg <= 37.78 Then
cc62 = 4174 + (((Tc621avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc62 = 994.9 + (((Tc621avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync62 = 7.65 + (((Tc621avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc62 = 0.623 + (((Tc621avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc62 = 5.12 + (((Tc621avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc621avg <= 43.33 Then
cc62 = 4174 + (((Tc621avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc62 = 993 + (((Tc621avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync62 = 6.82 + (((Tc621avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc62 = 0.63 + (((Tc621avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc62 = 4.53 + (((Tc621avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc621avg <= 48.89 Then
cc62 = 4174 + (((Tc621avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc62 = 990.6 + (((Tc621avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync62 = 6.16 + (((Tc621avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc62 = 0.637 + (((Tc621avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc62 = 4.04 + (((Tc621avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc621avg <= 54.44 Then
cc62 = 4174 + (((Tc621avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc62 = 998.8 + (((Tc621avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync62 = 5.62 + (((Tc621avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc62 = 0.644 + (((Tc621avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc62 = 3.64 + (((Tc621avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc621avg <= 60 Then
cc62 = 4179 + (((Tc621avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc62 = 985.7 + (((Tc621avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync62 = 5.13 + (((Tc621avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc62 = 0.649 + (((Tc621avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc62 = 3.3 + (((Tc621avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc621avg <= 65.55 Then
cc62 = 4179 + (((Tc621avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc62 = 983.3 + (((Tc621avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync62 = 4.71 + (((Tc621avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc62 = 0.654 + (((Tc621avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc62 = 3.01 + (((Tc621avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc621avg <= 71.11 Then
cc62 = 4183 + (((Tc621avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc62 = 980.3 + (((Tc621avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync62 = 4.3 + (((Tc621avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc62 = 0.659 + (((Tc621avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc62 = 2.73 + (((Tc621avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc621avg <= 76.67 Then
cc62 = 4186 + (((Tc621avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc62 = 977.3 + (((Tc621avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync62 = 4.01 + (((Tc621avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc62 = 0.665 + (((Tc621avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc62 = 2.53 + (((Tc621avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc621avg <= 82.22 Then
cc62 = 4191 + (((Tc621avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc62 = 973.7 + (((Tc621avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync62 = 3.72 + (((Tc621avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc62 = 0.668 + (((Tc621avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc62 = 2.33 + (((Tc621avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc621avg <= 87.78 Then
cc62 = 4195 + (((Tc621avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc62 = 970.2 + (((Tc621avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync62 = 3.47 + (((Tc621avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc62 = 0.673 + (((Tc621avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc62 = 2.16 + (((Tc621avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc621avg <= 93.33 Then
cc62 = 4199 + (((Tc621avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc62 = 966.7 + (((Tc621avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync62 = 3.27 + (((Tc621avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc62 = 0.675 + (((Tc621avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc62 = 2.03 + (((Tc621avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc621avg <= 104.4 Then
cc62 = 4204 + (((Tc621avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc62 = 963.2 + (((Tc621avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync62 = 3.06 + (((Tc621avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc62 = 0.678 + (((Tc621avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc62 = 1.9 + (((Tc621avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc631avg <= 4.44 Then 'Sixth flow channel,Third partition
cc63 = 4225 + (((Tc631avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc63 = 999.8 + (((Tc631avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync63 = 0.00179 + (((Tc631avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc63 = 0.566 + (((Tc631avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc63 = 13.25 + (((Tc631avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc631avg <= 10 Then
cc63 = 4208 + (((Tc631avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc63 = 999.8 + (((Tc631avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync63 = 1.55 + (((Tc631avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc63 = 0.575 + (((Tc631avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc63 = 11.35 + (((Tc631avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc631avg <= 15.56 Then
cc63 = 4195 + (((Tc631avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc63 = 999.2 + (((Tc631avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync63 = 1.31 + (((Tc631avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc63 = 0.585 + (((Tc631avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc63 = 9.4 + (((Tc631avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc631avg <= 21.11 Then
cc63 = 4186 + (((Tc631avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc63 = 998.6 + (((Tc631avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync63 = 1.12 + (((Tc631avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc63 = 0.595 + (((Tc631avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc63 = 7.88 + (((Tc631avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc631avg <= 26.67 Then
cc63 = 4179 + (((Tc631avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc63 = 997.4 + (((Tc631avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync63 = 0.00098 + (((Tc631avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc63 = 0.604 + (((Tc631avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc63 = 6.78 + (((Tc631avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc631avg <= 32.22 Then
cc63 = 4179 + (((Tc631avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc63 = 995.8 + (((Tc631avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync63 = 8.6 + (((Tc631avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc63 = 0.614 + (((Tc631avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc63 = 5.85 + (((Tc631avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc631avg <= 37.78 Then
cc63 = 4174 + (((Tc631avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc63 = 994.9 + (((Tc631avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync63 = 7.65 + (((Tc631avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc63 = 0.623 + (((Tc631avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc63 = 5.12 + (((Tc631avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc631avg <= 43.33 Then
cc63 = 4174 + (((Tc631avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc63 = 993 + (((Tc631avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync63 = 6.82 + (((Tc631avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc63 = 0.63 + (((Tc631avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc63 = 4.53 + (((Tc631avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc631avg <= 48.89 Then
cc63 = 4174 + (((Tc631avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc63 = 990.6 + (((Tc631avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync63 = 6.16 + (((Tc631avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc63 = 0.637 + (((Tc631avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc63 = 4.04 + (((Tc631avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc631avg <= 54.44 Then
cc63 = 4174 + (((Tc631avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc63 = 998.8 + (((Tc631avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync63 = 5.62 + (((Tc631avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc63 = 0.644 + (((Tc631avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc63 = 3.64 + (((Tc631avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc631avg <= 60 Then
cc63 = 4179 + (((Tc631avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc63 = 985.7 + (((Tc631avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync63 = 5.13 + (((Tc631avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc63 = 0.649 + (((Tc631avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc63 = 3.3 + (((Tc631avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc631avg <= 65.55 Then
cc63 = 4179 + (((Tc631avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc63 = 983.3 + (((Tc631avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync63 = 4.71 + (((Tc631avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc63 = 0.654 + (((Tc631avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc63 = 3.01 + (((Tc631avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc631avg <= 71.11 Then
cc63 = 4183 + (((Tc631avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc63 = 980.3 + (((Tc631avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync63 = 4.3 + (((Tc631avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc63 = 0.659 + (((Tc631avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc63 = 2.73 + (((Tc631avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc631avg <= 76.67 Then
cc63 = 4186 + (((Tc631avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc63 = 977.3 + (((Tc631avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync63 = 4.01 + (((Tc631avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc63 = 0.665 + (((Tc631avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc63 = 2.53 + (((Tc631avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc631avg <= 82.22 Then
cc63 = 4191 + (((Tc631avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc63 = 973.7 + (((Tc631avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync63 = 3.72 + (((Tc631avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc63 = 0.668 + (((Tc631avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc63 = 2.33 + (((Tc631avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc631avg <= 87.78 Then
cc63 = 4195 + (((Tc631avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc63 = 970.2 + (((Tc631avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync63 = 3.47 + (((Tc631avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc63 = 0.673 + (((Tc631avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc63 = 2.16 + (((Tc631avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc631avg <= 93.33 Then
cc63 = 4199 + (((Tc631avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc63 = 966.7 + (((Tc631avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync63 = 3.27 + (((Tc631avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc63 = 0.675 + (((Tc631avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc63 = 2.03 + (((Tc631avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc631avg <= 104.4 Then
cc63 = 4204 + (((Tc631avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc63 = 963.2 + (((Tc631avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync63 = 3.06 + (((Tc631avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc63 = 0.678 + (((Tc631avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc63 = 1.9 + (((Tc631avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If


If 0 <= Tc641avg <= 4.44 Then 'Sixth flow channel,fourth partition
cc64 = 4225 + (((Tc641avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc64 = 999.8 + (((Tc641avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync64 = 0.00179 + (((Tc641avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc64 = 0.566 + (((Tc641avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc64 = 13.25 + (((Tc641avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc641avg <= 10 Then
cc64 = 4208 + (((Tc641avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc64 = 999.8 + (((Tc641avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync64 = 1.55 + (((Tc641avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc64 = 0.575 + (((Tc641avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc64 = 11.35 + (((Tc641avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc641avg <= 15.56 Then
cc64 = 4195 + (((Tc641avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc64 = 999.2 + (((Tc641avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync64 = 1.31 + (((Tc641avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc64 = 0.585 + (((Tc641avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc64 = 9.4 + (((Tc641avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc641avg <= 21.11 Then
cc64 = 4186 + (((Tc641avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc64 = 998.6 + (((Tc641avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync64 = 1.12 + (((Tc641avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc64 = 0.595 + (((Tc641avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc64 = 7.88 + (((Tc641avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc641avg <= 26.67 Then
cc64 = 4179 + (((Tc641avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc64 = 997.4 + (((Tc641avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync64 = 0.00098 + (((Tc641avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc64 = 0.604 + (((Tc641avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc64 = 6.78 + (((Tc641avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc641avg <= 32.22 Then
cc64 = 4179 + (((Tc641avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc64 = 995.8 + (((Tc641avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync64 = 8.6 + (((Tc641avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc64 = 0.614 + (((Tc641avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc64 = 5.85 + (((Tc641avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc641avg <= 37.78 Then
cc64 = 4174 + (((Tc641avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc64 = 994.9 + (((Tc641avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync64 = 7.65 + (((Tc641avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc64 = 0.623 + (((Tc641avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc64 = 5.12 + (((Tc641avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc641avg <= 43.33 Then
cc64 = 4174 + (((Tc641avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc64 = 993 + (((Tc641avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync64 = 6.82 + (((Tc641avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc64 = 0.63 + (((Tc641avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc64 = 4.53 + (((Tc641avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc641avg <= 48.89 Then
cc64 = 4174 + (((Tc641avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc64 = 990.6 + (((Tc641avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync64 = 6.16 + (((Tc641avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc64 = 0.637 + (((Tc641avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc64 = 4.04 + (((Tc641avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc641avg <= 54.44 Then
cc64 = 4174 + (((Tc641avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc64 = 998.8 + (((Tc641avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync64 = 5.62 + (((Tc641avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc64 = 0.644 + (((Tc641avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc64 = 3.64 + (((Tc641avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc641avg <= 60 Then
cc64 = 4179 + (((Tc641avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc64 = 985.7 + (((Tc641avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync64 = 5.13 + (((Tc641avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc64 = 0.649 + (((Tc641avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc64 = 3.3 + (((Tc641avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc641avg <= 65.55 Then
cc64 = 4179 + (((Tc641avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc64 = 983.3 + (((Tc641avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync64 = 4.71 + (((Tc641avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc64 = 0.654 + (((Tc641avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc64 = 3.01 + (((Tc641avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc641avg <= 71.11 Then
cc64 = 4183 + (((Tc641avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc64 = 980.3 + (((Tc641avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync64 = 4.3 + (((Tc641avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc64 = 0.659 + (((Tc641avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc64 = 2.73 + (((Tc641avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc641avg <= 76.67 Then
cc64 = 4186 + (((Tc641avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc64 = 977.3 + (((Tc641avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync64 = 4.01 + (((Tc641avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc64 = 0.665 + (((Tc641avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc64 = 2.53 + (((Tc641avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc641avg <= 82.22 Then
cc64 = 4191 + (((Tc641avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc64 = 973.7 + (((Tc641avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync64 = 3.72 + (((Tc641avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc64 = 0.668 + (((Tc641avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc64 = 2.33 + (((Tc641avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc641avg <= 87.78 Then
cc64 = 4195 + (((Tc641avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc64 = 970.2 + (((Tc641avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync64 = 3.47 + (((Tc641avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc64 = 0.673 + (((Tc641avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc64 = 2.16 + (((Tc641avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc641avg <= 93.33 Then
cc64 = 4199 + (((Tc641avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc64 = 966.7 + (((Tc641avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync64 = 3.27 + (((Tc641avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc64 = 0.675 + (((Tc641avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc64 = 2.03 + (((Tc641avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc641avg <= 104.4 Then
cc64 = 4204 + (((Tc641avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc64 = 963.2 + (((Tc641avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync64 = 3.06 + (((Tc641avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc64 = 0.678 + (((Tc641avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc64 = 1.9 + (((Tc641avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc651avg <= 4.44 Then 'Sixth flow channel,fifth partition
cc65 = 4225 + (((Tc651avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc65 = 999.8 + (((Tc651avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync65 = 0.00179 + (((Tc651avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc65 = 0.566 + (((Tc651avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc65 = 13.25 + (((Tc651avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc651avg <= 10 Then
cc65 = 4208 + (((Tc651avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc65 = 999.8 + (((Tc651avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync65 = 1.55 + (((Tc651avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc65 = 0.575 + (((Tc651avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc65 = 11.35 + (((Tc651avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc651avg <= 15.56 Then
cc65 = 4195 + (((Tc651avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc65 = 999.2 + (((Tc651avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync65 = 1.31 + (((Tc651avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc65 = 0.585 + (((Tc651avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc65 = 9.4 + (((Tc651avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc651avg <= 21.11 Then
cc65 = 4186 + (((Tc651avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc65 = 998.6 + (((Tc651avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync65 = 1.12 + (((Tc651avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc65 = 0.595 + (((Tc651avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc65 = 7.88 + (((Tc651avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc651avg <= 26.67 Then
cc65 = 4179 + (((Tc651avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc65 = 997.4 + (((Tc651avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync65 = 0.00098 + (((Tc651avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc65 = 0.604 + (((Tc651avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc65 = 6.78 + (((Tc651avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc651avg <= 32.22 Then
cc65 = 4179 + (((Tc651avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc65 = 995.8 + (((Tc651avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync65 = 8.6 + (((Tc651avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc65 = 0.614 + (((Tc651avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc65 = 5.85 + (((Tc651avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc651avg <= 37.78 Then
cc65 = 4174 + (((Tc651avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc65 = 994.9 + (((Tc651avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync65 = 7.65 + (((Tc651avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc65 = 0.623 + (((Tc651avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc65 = 5.12 + (((Tc651avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc651avg <= 43.33 Then
cc65 = 4174 + (((Tc651avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc65 = 993 + (((Tc651avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync65 = 6.82 + (((Tc651avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc65 = 0.63 + (((Tc651avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc65 = 4.53 + (((Tc651avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc651avg <= 48.89 Then
cc65 = 4174 + (((Tc651avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc65 = 990.6 + (((Tc651avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync65 = 6.16 + (((Tc651avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc65 = 0.637 + (((Tc651avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc65 = 4.04 + (((Tc651avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc651avg <= 54.44 Then
cc65 = 4174 + (((Tc651avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc65 = 998.8 + (((Tc651avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync65 = 5.62 + (((Tc651avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc65 = 0.644 + (((Tc651avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc65 = 3.64 + (((Tc651avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc651avg <= 60 Then
cc65 = 4179 + (((Tc651avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc65 = 985.7 + (((Tc651avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync65 = 5.13 + (((Tc651avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc65 = 0.649 + (((Tc651avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc65 = 3.3 + (((Tc651avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc651avg <= 65.55 Then
cc65 = 4179 + (((Tc651avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc65 = 983.3 + (((Tc651avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync65 = 4.71 + (((Tc651avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc65 = 0.654 + (((Tc651avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc65 = 3.01 + (((Tc651avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc651avg <= 71.11 Then
cc65 = 4183 + (((Tc651avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc65 = 980.3 + (((Tc651avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync65 = 4.3 + (((Tc651avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc65 = 0.659 + (((Tc651avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc65 = 2.73 + (((Tc651avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc651avg <= 76.67 Then
cc65 = 4186 + (((Tc651avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc65 = 977.3 + (((Tc651avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync65 = 4.01 + (((Tc651avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc65 = 0.665 + (((Tc651avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc65 = 2.53 + (((Tc651avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc651avg <= 82.22 Then
cc65 = 4191 + (((Tc651avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc65 = 973.7 + (((Tc651avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync65 = 3.72 + (((Tc651avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc65 = 0.668 + (((Tc651avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc65 = 2.33 + (((Tc651avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc651avg <= 87.78 Then
cc65 = 4195 + (((Tc651avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc65 = 970.2 + (((Tc651avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync65 = 3.47 + (((Tc651avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc65 = 0.673 + (((Tc651avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc65 = 2.16 + (((Tc651avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc651avg <= 93.33 Then
cc65 = 4199 + (((Tc651avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc65 = 966.7 + (((Tc651avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync65 = 3.27 + (((Tc651avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc65 = 0.675 + (((Tc651avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc65 = 2.03 + (((Tc651avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc651avg <= 104.4 Then
cc65 = 4204 + (((Tc651avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc65 = 963.2 + (((Tc651avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync65 = 3.06 + (((Tc651avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc65 = 0.678 + (((Tc651avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc65 = 1.9 + (((Tc651avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If
If 0 <= Tc661avg <= 4.44 Then 'Sixth flow channel,sixth partition
cc66 = 4225 + (((Tc661avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc66 = 999.8 + (((Tc661avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync66 = 0.00179 + (((Tc661avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc66 = 0.566 + (((Tc661avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc66 = 13.25 + (((Tc661avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc661avg <= 10 Then
cc66 = 4208 + (((Tc661avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc66 = 999.8 + (((Tc661avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync66 = 1.55 + (((Tc661avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc66 = 0.575 + (((Tc661avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc66 = 11.35 + (((Tc661avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc661avg <= 15.56 Then
cc66 = 4195 + (((Tc661avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc66 = 999.2 + (((Tc661avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync66 = 1.31 + (((Tc661avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc66 = 0.585 + (((Tc661avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc66 = 9.4 + (((Tc661avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc661avg <= 21.11 Then
cc66 = 4186 + (((Tc661avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc66 = 998.6 + (((Tc661avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync66 = 1.12 + (((Tc661avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc66 = 0.595 + (((Tc661avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc66 = 7.88 + (((Tc661avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc661avg <= 26.67 Then
cc66 = 4179 + (((Tc661avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc66 = 997.4 + (((Tc661avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync66 = 0.00098 + (((Tc661avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc66 = 0.604 + (((Tc661avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc66 = 6.78 + (((Tc661avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc661avg <= 32.22 Then
cc66 = 4179 + (((Tc661avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc66 = 995.8 + (((Tc661avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync66 = 8.6 + (((Tc661avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc66 = 0.614 + (((Tc661avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc66 = 5.85 + (((Tc661avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc661avg <= 37.78 Then
cc66 = 4174 + (((Tc661avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc66 = 994.9 + (((Tc661avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync66 = 7.65 + (((Tc661avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc66 = 0.623 + (((Tc661avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc66 = 5.12 + (((Tc661avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc661avg <= 43.33 Then
cc66 = 4174 + (((Tc661avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc66 = 993 + (((Tc661avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync66 = 6.82 + (((Tc661avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc66 = 0.63 + (((Tc661avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc66 = 4.53 + (((Tc661avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc661avg <= 48.89 Then
cc66 = 4174 + (((Tc661avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc66 = 990.6 + (((Tc661avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync66 = 6.16 + (((Tc661avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc66 = 0.637 + (((Tc661avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc66 = 4.04 + (((Tc661avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc661avg <= 54.44 Then
cc66 = 4174 + (((Tc661avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc66 = 998.8 + (((Tc661avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync66 = 5.62 + (((Tc661avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc66 = 0.644 + (((Tc661avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc66 = 3.64 + (((Tc661avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc661avg <= 60 Then
cc66 = 4179 + (((Tc661avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc66 = 985.7 + (((Tc661avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync66 = 5.13 + (((Tc661avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc66 = 0.649 + (((Tc661avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc66 = 3.3 + (((Tc661avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc661avg <= 65.55 Then
cc66 = 4179 + (((Tc661avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc66 = 983.3 + (((Tc661avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync66 = 4.71 + (((Tc661avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc66 = 0.654 + (((Tc661avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc66 = 3.01 + (((Tc661avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc661avg <= 71.11 Then
cc66 = 4183 + (((Tc661avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc66 = 980.3 + (((Tc661avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync66 = 4.3 + (((Tc661avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc66 = 0.659 + (((Tc661avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc66 = 2.73 + (((Tc661avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc661avg <= 76.67 Then
cc66 = 4186 + (((Tc661avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc66 = 977.3 + (((Tc661avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync66 = 4.01 + (((Tc661avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc66 = 0.665 + (((Tc661avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc66 = 2.53 + (((Tc661avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc661avg <= 82.22 Then
cc66 = 4191 + (((Tc661avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc66 = 973.7 + (((Tc661avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync66 = 3.72 + (((Tc661avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc66 = 0.668 + (((Tc661avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc66 = 2.33 + (((Tc661avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc661avg <= 87.78 Then
cc66 = 4195 + (((Tc661avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc66 = 970.2 + (((Tc661avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync66 = 3.47 + (((Tc661avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc66 = 0.673 + (((Tc661avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc66 = 2.16 + (((Tc661avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc661avg <= 93.33 Then
cc66 = 4199 + (((Tc661avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc66 = 966.7 + (((Tc661avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync66 = 3.27 + (((Tc661avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc66 = 0.675 + (((Tc661avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc66 = 2.03 + (((Tc661avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc661avg <= 104.4 Then
cc66 = 4204 + (((Tc661avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc66 = 963.2 + (((Tc661avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync66 = 3.06 + (((Tc661avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc66 = 0.678 + (((Tc661avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc66 = 1.9 + (((Tc661avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc671avg <= 4.44 Then 'Sixth flow channel,seventh partition
cc67 = 4225 + (((Tc671avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc67 = 999.8 + (((Tc671avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync67 = 0.00179 + (((Tc671avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc67 = 0.566 + (((Tc671avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc67 = 13.25 + (((Tc671avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc671avg <= 10 Then
cc67 = 4208 + (((Tc671avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc67 = 999.8 + (((Tc671avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync67 = 1.55 + (((Tc671avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc67 = 0.575 + (((Tc671avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc67 = 11.35 + (((Tc671avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc671avg <= 15.56 Then
cc67 = 4195 + (((Tc671avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc67 = 999.2 + (((Tc671avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync67 = 1.31 + (((Tc671avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc67 = 0.585 + (((Tc671avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc67 = 9.4 + (((Tc671avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc671avg <= 21.11 Then
cc67 = 4186 + (((Tc671avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc67 = 998.6 + (((Tc671avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync67 = 1.12 + (((Tc671avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc67 = 0.595 + (((Tc671avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc67 = 7.88 + (((Tc671avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc671avg <= 26.67 Then
cc67 = 4179 + (((Tc671avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc67 = 997.4 + (((Tc671avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync67 = 0.00098 + (((Tc671avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc67 = 0.604 + (((Tc671avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc67 = 6.78 + (((Tc671avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc671avg <= 32.22 Then
cc67 = 4179 + (((Tc671avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc67 = 995.8 + (((Tc671avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync67 = 8.6 + (((Tc671avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc67 = 0.614 + (((Tc671avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc67 = 5.85 + (((Tc671avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc671avg <= 37.78 Then
cc67 = 4174 + (((Tc671avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc67 = 994.9 + (((Tc671avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync67 = 7.65 + (((Tc671avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc67 = 0.623 + (((Tc671avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc67 = 5.12 + (((Tc671avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc671avg <= 43.33 Then
cc67 = 4174 + (((Tc671avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc67 = 993 + (((Tc671avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync67 = 6.82 + (((Tc671avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc67 = 0.63 + (((Tc671avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc67 = 4.53 + (((Tc671avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc671avg <= 48.89 Then
cc67 = 4174 + (((Tc671avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc67 = 990.6 + (((Tc671avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync67 = 6.16 + (((Tc671avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc67 = 0.637 + (((Tc671avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc67 = 4.04 + (((Tc671avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc671avg <= 54.44 Then
cc67 = 4174 + (((Tc671avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc67 = 998.8 + (((Tc671avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync67 = 5.62 + (((Tc671avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc67 = 0.644 + (((Tc671avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc67 = 3.64 + (((Tc671avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc671avg <= 60 Then
cc67 = 4179 + (((Tc671avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc67 = 985.7 + (((Tc671avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync67 = 5.13 + (((Tc671avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc67 = 0.649 + (((Tc671avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc67 = 3.3 + (((Tc671avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc671avg <= 65.55 Then
cc67 = 4179 + (((Tc671avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc67 = 983.3 + (((Tc671avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync67 = 4.71 + (((Tc671avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc67 = 0.654 + (((Tc671avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc67 = 3.01 + (((Tc671avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc671avg <= 71.11 Then
cc67 = 4183 + (((Tc671avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc67 = 980.3 + (((Tc671avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync67 = 4.3 + (((Tc671avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc67 = 0.659 + (((Tc671avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc67 = 2.73 + (((Tc671avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc671avg <= 76.67 Then
cc67 = 4186 + (((Tc671avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc67 = 977.3 + (((Tc671avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync67 = 4.01 + (((Tc671avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc67 = 0.665 + (((Tc671avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc67 = 2.53 + (((Tc671avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc671avg <= 82.22 Then
cc67 = 4191 + (((Tc671avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc67 = 973.7 + (((Tc671avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync67 = 3.72 + (((Tc671avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc67 = 0.668 + (((Tc671avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc67 = 2.33 + (((Tc671avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc671avg <= 87.78 Then
cc67 = 4195 + (((Tc671avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc67 = 970.2 + (((Tc671avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync67 = 3.47 + (((Tc671avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc67 = 0.673 + (((Tc671avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc67 = 2.16 + (((Tc671avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc671avg <= 93.33 Then
cc67 = 4199 + (((Tc671avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc67 = 966.7 + (((Tc671avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync67 = 3.27 + (((Tc671avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc67 = 0.675 + (((Tc671avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc67 = 2.03 + (((Tc671avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc671avg <= 104.4 Then
cc67 = 4204 + (((Tc671avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc67 = 963.2 + (((Tc671avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync67 = 3.06 + (((Tc671avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc67 = 0.678 + (((Tc671avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc67 = 1.9 + (((Tc671avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc681avg <= 4.44 Then 'Sixth flow channel,eighth partition
cc68 = 4225 + (((Tc681avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc68 = 999.8 + (((Tc681avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync68 = 0.00179 + (((Tc681avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc68 = 0.566 + (((Tc681avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc68 = 13.25 + (((Tc681avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc681avg <= 10 Then
cc68 = 4208 + (((Tc681avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc68 = 999.8 + (((Tc681avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync68 = 1.55 + (((Tc681avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc68 = 0.575 + (((Tc681avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc68 = 11.35 + (((Tc681avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc681avg <= 15.56 Then
cc68 = 4195 + (((Tc681avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc68 = 999.2 + (((Tc681avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync68 = 1.31 + (((Tc681avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc68 = 0.585 + (((Tc681avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc68 = 9.4 + (((Tc681avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc681avg <= 21.11 Then
cc68 = 4186 + (((Tc681avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc68 = 998.6 + (((Tc681avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync68 = 1.12 + (((Tc681avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc68 = 0.595 + (((Tc681avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc68 = 7.88 + (((Tc681avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc681avg <= 26.67 Then
cc68 = 4179 + (((Tc681avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc68 = 997.4 + (((Tc681avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync68 = 0.00098 + (((Tc681avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc68 = 0.604 + (((Tc681avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc68 = 6.78 + (((Tc681avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc681avg <= 32.22 Then
cc68 = 4179 + (((Tc681avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc68 = 995.8 + (((Tc681avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync68 = 8.6 + (((Tc681avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc68 = 0.614 + (((Tc681avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc68 = 5.85 + (((Tc681avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc681avg <= 37.78 Then
cc68 = 4174 + (((Tc681avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc68 = 994.9 + (((Tc681avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync68 = 7.65 + (((Tc681avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc68 = 0.623 + (((Tc681avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc68 = 5.12 + (((Tc681avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc681avg <= 43.33 Then
cc68 = 4174 + (((Tc681avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc68 = 993 + (((Tc681avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync68 = 6.82 + (((Tc681avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc68 = 0.63 + (((Tc681avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc68 = 4.53 + (((Tc681avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc681avg <= 48.89 Then
cc68 = 4174 + (((Tc681avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc68 = 990.6 + (((Tc681avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync68 = 6.16 + (((Tc681avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc68 = 0.637 + (((Tc681avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc68 = 4.04 + (((Tc681avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc681avg <= 54.44 Then
cc68 = 4174 + (((Tc681avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc68 = 998.8 + (((Tc681avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync68 = 5.62 + (((Tc681avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc68 = 0.644 + (((Tc681avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc68 = 3.64 + (((Tc681avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc681avg <= 60 Then
cc68 = 4179 + (((Tc681avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc68 = 985.7 + (((Tc681avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync68 = 5.13 + (((Tc681avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc68 = 0.649 + (((Tc681avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc68 = 3.3 + (((Tc681avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc681avg <= 65.55 Then
cc68 = 4179 + (((Tc681avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc68 = 983.3 + (((Tc681avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync68 = 4.71 + (((Tc681avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc68 = 0.654 + (((Tc681avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc68 = 3.01 + (((Tc681avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc681avg <= 71.11 Then
cc68 = 4183 + (((Tc681avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc68 = 980.3 + (((Tc681avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync68 = 4.3 + (((Tc681avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc68 = 0.659 + (((Tc681avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc68 = 2.73 + (((Tc681avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc681avg <= 76.67 Then
cc68 = 4186 + (((Tc681avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc68 = 977.3 + (((Tc681avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync68 = 4.01 + (((Tc681avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc68 = 0.665 + (((Tc681avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc68 = 2.53 + (((Tc681avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc681avg <= 82.22 Then
cc68 = 4191 + (((Tc681avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc68 = 973.7 + (((Tc681avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync68 = 3.72 + (((Tc681avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc68 = 0.668 + (((Tc681avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc68 = 2.33 + (((Tc681avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc681avg <= 87.78 Then
cc68 = 4195 + (((Tc681avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc68 = 970.2 + (((Tc681avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync68 = 3.47 + (((Tc681avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc68 = 0.673 + (((Tc681avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc68 = 2.16 + (((Tc681avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc681avg <= 93.33 Then
cc68 = 4199 + (((Tc681avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc68 = 966.7 + (((Tc681avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync68 = 3.27 + (((Tc681avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc68 = 0.675 + (((Tc681avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc68 = 2.03 + (((Tc681avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc681avg <= 104.4 Then
cc68 = 4204 + (((Tc681avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc68 = 963.2 + (((Tc681avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync68 = 3.06 + (((Tc681avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc68 = 0.678 + (((Tc681avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc68 = 1.9 + (((Tc681avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If




If 0 <= Tc691avg <= 4.44 Then 'Sixth flow channel,ninth partition
cc69 = 4225 + (((Tc691avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc69 = 999.8 + (((Tc691avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync69 = 0.00179 + (((Tc691avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc69 = 0.566 + (((Tc691avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc69 = 13.25 + (((Tc691avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc691avg <= 10 Then
cc69 = 4208 + (((Tc691avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc69 = 999.8 + (((Tc691avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync69 = 1.55 + (((Tc691avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc69 = 0.575 + (((Tc691avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc69 = 11.35 + (((Tc691avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc691avg <= 15.56 Then
cc69 = 4195 + (((Tc691avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc69 = 999.2 + (((Tc691avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync69 = 1.31 + (((Tc691avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc69 = 0.585 + (((Tc691avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc69 = 9.4 + (((Tc691avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc691avg <= 21.11 Then
cc69 = 4186 + (((Tc691avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc69 = 998.6 + (((Tc691avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync69 = 1.12 + (((Tc691avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc69 = 0.595 + (((Tc691avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc69 = 7.88 + (((Tc691avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc691avg <= 26.67 Then
cc69 = 4179 + (((Tc691avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc69 = 997.4 + (((Tc691avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync69 = 0.00098 + (((Tc691avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc69 = 0.604 + (((Tc691avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc69 = 6.78 + (((Tc691avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc691avg <= 32.22 Then
cc69 = 4179 + (((Tc691avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc69 = 995.8 + (((Tc691avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync69 = 8.6 + (((Tc691avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc69 = 0.614 + (((Tc691avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc69 = 5.85 + (((Tc691avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc691avg <= 37.78 Then
cc69 = 4174 + (((Tc691avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc69 = 994.9 + (((Tc691avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync69 = 7.65 + (((Tc691avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc69 = 0.623 + (((Tc691avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc69 = 5.12 + (((Tc691avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc691avg <= 43.33 Then
cc69 = 4174 + (((Tc691avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc69 = 993 + (((Tc691avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync69 = 6.82 + (((Tc691avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc69 = 0.63 + (((Tc691avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc69 = 4.53 + (((Tc691avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc691avg <= 48.89 Then
cc69 = 4174 + (((Tc691avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc69 = 990.6 + (((Tc691avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync69 = 6.16 + (((Tc691avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc69 = 0.637 + (((Tc691avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc69 = 4.04 + (((Tc691avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc691avg <= 54.44 Then
cc69 = 4174 + (((Tc691avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc69 = 998.8 + (((Tc691avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync69 = 5.62 + (((Tc691avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc69 = 0.644 + (((Tc691avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc69 = 3.64 + (((Tc691avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc691avg <= 60 Then
cc69 = 4179 + (((Tc691avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc69 = 985.7 + (((Tc691avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync69 = 5.13 + (((Tc691avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc69 = 0.649 + (((Tc691avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc69 = 3.3 + (((Tc691avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc691avg <= 65.55 Then
cc69 = 4179 + (((Tc691avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc69 = 983.3 + (((Tc691avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync69 = 4.71 + (((Tc691avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc69 = 0.654 + (((Tc691avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc69 = 3.01 + (((Tc691avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc691avg <= 71.11 Then
cc69 = 4183 + (((Tc691avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc69 = 980.3 + (((Tc691avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync69 = 4.3 + (((Tc691avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc69 = 0.659 + (((Tc691avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc69 = 2.73 + (((Tc691avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc691avg <= 76.67 Then
cc69 = 4186 + (((Tc691avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc69 = 977.3 + (((Tc691avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync69 = 4.01 + (((Tc691avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc69 = 0.665 + (((Tc691avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc69 = 2.53 + (((Tc691avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc691avg <= 82.22 Then
cc69 = 4191 + (((Tc691avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc69 = 973.7 + (((Tc691avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync69 = 3.72 + (((Tc691avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc69 = 0.668 + (((Tc691avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc69 = 2.33 + (((Tc691avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc691avg <= 87.78 Then
cc69 = 4195 + (((Tc691avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc69 = 970.2 + (((Tc691avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync69 = 3.47 + (((Tc691avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc69 = 0.673 + (((Tc691avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc69 = 2.16 + (((Tc691avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc691avg <= 93.33 Then
cc69 = 4199 + (((Tc691avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc69 = 966.7 + (((Tc691avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync69 = 3.27 + (((Tc691avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc69 = 0.675 + (((Tc691avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc69 = 2.03 + (((Tc691avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc691avg <= 104.4 Then
cc69 = 4204 + (((Tc691avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc69 = 963.2 + (((Tc691avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync69 = 3.06 + (((Tc691avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc69 = 0.678 + (((Tc691avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc69 = 1.9 + (((Tc691avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc6101avg <= 4.44 Then 'Sixth flow channel,tenth partition
cc610 = 4225 + (((Tc6101avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc610 = 999.8 + (((Tc6101avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync610 = 0.00179 + (((Tc6101avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc610 = 0.566 + (((Tc6101avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc610 = 13.25 + (((Tc6101avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc6101avg <= 10 Then
cc610 = 4208 + (((Tc6101avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc610 = 999.8 + (((Tc6101avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync610 = 1.55 + (((Tc6101avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc610 = 0.575 + (((Tc6101avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc610 = 11.35 + (((Tc6101avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc6101avg <= 15.56 Then
cc610 = 4195 + (((Tc6101avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc610 = 999.2 + (((Tc6101avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync610 = 1.31 + (((Tc6101avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc610 = 0.585 + (((Tc6101avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc610 = 9.4 + (((Tc6101avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc6101avg <= 21.11 Then
cc610 = 4186 + (((Tc6101avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc610 = 998.6 + (((Tc6101avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync610 = 1.12 + (((Tc6101avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc610 = 0.595 + (((Tc6101avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc610 = 7.88 + (((Tc6101avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc6101avg <= 26.67 Then
cc610 = 4179 + (((Tc6101avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc610 = 997.4 + (((Tc6101avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync610 = 0.00098 + (((Tc6101avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc610 = 0.604 + (((Tc6101avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc610 = 6.78 + (((Tc6101avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc6101avg <= 32.22 Then
cc610 = 4179 + (((Tc6101avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc610 = 995.8 + (((Tc6101avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync610 = 8.6 + (((Tc6101avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc610 = 0.614 + (((Tc6101avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc610 = 5.85 + (((Tc6101avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc6101avg <= 37.78 Then
cc610 = 4174 + (((Tc6101avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc610 = 994.9 + (((Tc6101avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync610 = 7.65 + (((Tc6101avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc610 = 0.623 + (((Tc6101avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc610 = 5.12 + (((Tc6101avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc6101avg <= 43.33 Then
cc610 = 4174 + (((Tc6101avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc610 = 993 + (((Tc6101avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync610 = 6.82 + (((Tc6101avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc610 = 0.63 + (((Tc6101avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc610 = 4.53 + (((Tc6101avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc6101avg <= 48.89 Then
cc610 = 4174 + (((Tc6101avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc610 = 990.6 + (((Tc6101avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync610 = 6.16 + (((Tc6101avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc610 = 0.637 + (((Tc6101avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc610 = 4.04 + (((Tc6101avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc6101avg <= 54.44 Then
cc610 = 4174 + (((Tc6101avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc610 = 998.8 + (((Tc6101avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync610 = 5.62 + (((Tc6101avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc610 = 0.644 + (((Tc6101avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc610 = 3.64 + (((Tc6101avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc6101avg <= 60 Then
cc610 = 4179 + (((Tc6101avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc610 = 985.7 + (((Tc6101avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync610 = 5.13 + (((Tc6101avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc610 = 0.649 + (((Tc6101avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc610 = 3.3 + (((Tc6101avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc6101avg <= 65.55 Then
cc610 = 4179 + (((Tc6101avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc610 = 983.3 + (((Tc6101avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync610 = 4.71 + (((Tc6101avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc610 = 0.654 + (((Tc6101avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc610 = 3.01 + (((Tc6101avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc6101avg <= 71.11 Then
cc610 = 4183 + (((Tc6101avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc610 = 980.3 + (((Tc6101avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync610 = 4.3 + (((Tc6101avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc610 = 0.659 + (((Tc6101avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc610 = 2.73 + (((Tc6101avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc6101avg <= 76.67 Then
cc610 = 4186 + (((Tc6101avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc610 = 977.3 + (((Tc6101avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync610 = 4.01 + (((Tc6101avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc610 = 0.665 + (((Tc6101avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc610 = 2.53 + (((Tc6101avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc6101avg <= 82.22 Then
cc610 = 4191 + (((Tc6101avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc610 = 973.7 + (((Tc6101avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync610 = 3.72 + (((Tc6101avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc610 = 0.668 + (((Tc6101avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc610 = 2.33 + (((Tc6101avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc6101avg <= 87.78 Then
cc610 = 4195 + (((Tc6101avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc610 = 970.2 + (((Tc6101avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync610 = 3.47 + (((Tc6101avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc610 = 0.673 + (((Tc6101avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc610 = 2.16 + (((Tc6101avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc6101avg <= 93.33 Then
cc610 = 4199 + (((Tc6101avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc610 = 966.7 + (((Tc6101avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync610 = 3.27 + (((Tc6101avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc610 = 0.675 + (((Tc6101avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc610 = 2.03 + (((Tc6101avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc6101avg <= 104.4 Then
cc610 = 4204 + (((Tc6101avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc610 = 963.2 + (((Tc6101avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync610 = 3.06 + (((Tc6101avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc610 = 0.678 + (((Tc6101avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc610 = 1.9 + (((Tc6101avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



End If
End If

If 140 <= Th711avg <= 160 Then 'Seventh flow channel,first partition

ch71 = 2395 + (((Th711avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh71 = 816.94 + (((Th711avg - 140) / (160 - 140)) * (805 - 816.94))
dynh71 = 65.3552 + (((Th711avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh71 = 0.133 + (((Th711avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh71 = 116 + (((Th711avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th711avg <= 140 Then
ch71 = 2307 + (((Th711avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh71 = 828.96 + (((Th711avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh71 = 102.79104 + (((Th711avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh71 = 0.135 + (((Th711avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh71 = 175 + (((Th711avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th711avg <= 120 Then
ch71 = 2219 + (((Th711avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh71 = 840.01 + (((Th711avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh71 = 170.52203 + (((Th711avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh71 = 0.137 + (((Th711avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh71 = 276 + (((Th711avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th711avg <= 100 Then
ch71 = 2131 + (((Th711avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh71 = 852.02 + (((Th711avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh71 = 319.5075 + (((Th711avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh71 = 0.138 + (((Th711avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh71 = 490 + (((Th711avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th711avg <= 80 Then
ch71 = 2047 + (((Th711avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh71 = 864.04 + (((Th711avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh71 = 0.072492956 + (((Th711avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh71 = 0.14 + (((Th711avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh71 = 1050 + (((Th711avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th711avg <= 60 Then
ch71 = 1964 + (((Th711avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh71 = 876.05 + (((Th711avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh71 = 0.210252 + (((Th711avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh71 = 0.144 + (((Th711avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh71 = 2870 + (((Th711avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th711avg <= 40 Then
ch71 = 1880 + (((Th711avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh71 = 888.23 + (((Th711avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh71 = 0.799407 + (((Th711avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh71 = 0.145 + (((Th711avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh71 = 10400 + (((Th711avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th711avg <= 20 Then
ch71 = 1796 + (((Th711avg) / (20)) * (1880 - 1796))
rhoh71 = 899.12 + (((Th711avg) / (20)) * (888.23 - 899.12))
dynh71 = 3.84823 + (((Th711avg) / (20)) * (0.799407 - 3.84823))
kh71 = 0.147 + (((Th711avg) / (20)) * (0.145 - 0.147))
prh71 = 47100 + (((Th711avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th721avg <= 160 Then 'Seventh flow channel,second partition

ch72 = 2395 + (((Th721avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh72 = 816.94 + (((Th721avg - 140) / (160 - 140)) * (805 - 816.94))
dynh72 = 65.3552 + (((Th721avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh72 = 0.133 + (((Th721avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh72 = 116 + (((Th721avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th721avg <= 140 Then
ch72 = 2307 + (((Th721avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh72 = 828.96 + (((Th721avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh72 = 102.79104 + (((Th721avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh72 = 0.135 + (((Th721avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh72 = 175 + (((Th721avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th721avg <= 120 Then
ch72 = 2219 + (((Th721avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh72 = 840.01 + (((Th721avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh72 = 170.52203 + (((Th721avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh72 = 0.137 + (((Th721avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh72 = 276 + (((Th721avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th721avg <= 100 Then
ch72 = 2131 + (((Th721avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh72 = 852.02 + (((Th721avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh72 = 319.5075 + (((Th721avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh72 = 0.138 + (((Th721avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh72 = 490 + (((Th721avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th721avg <= 80 Then
ch72 = 2047 + (((Th721avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh72 = 864.04 + (((Th721avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh72 = 0.072492956 + (((Th721avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh72 = 0.14 + (((Th721avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh72 = 1050 + (((Th721avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th721avg <= 60 Then
ch72 = 1964 + (((Th721avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh72 = 876.05 + (((Th721avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh72 = 0.210252 + (((Th721avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh72 = 0.144 + (((Th721avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh72 = 2870 + (((Th721avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th721avg <= 40 Then
ch72 = 1880 + (((Th721avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh72 = 888.23 + (((Th721avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh72 = 0.799407 + (((Th721avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh72 = 0.145 + (((Th721avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh72 = 10400 + (((Th721avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th721avg <= 20 Then
ch72 = 1796 + (((Th721avg) / (20)) * (1880 - 1796))
rhoh72 = 899.12 + (((Th721avg) / (20)) * (888.23 - 899.12))
dynh72 = 3.84823 + (((Th721avg) / (20)) * (0.799407 - 3.84823))
kh72 = 0.147 + (((Th721avg) / (20)) * (0.145 - 0.147))
prh72 = 47100 + (((Th721avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th731avg <= 160 Then 'Seventh flow channel,Third partition

ch73 = 2395 + (((Th731avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh73 = 816.94 + (((Th731avg - 140) / (160 - 140)) * (805 - 816.94))
dynh73 = 65.3552 + (((Th731avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh73 = 0.133 + (((Th731avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh73 = 116 + (((Th731avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th731avg <= 140 Then
ch73 = 2307 + (((Th731avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh73 = 828.96 + (((Th731avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh73 = 102.79104 + (((Th731avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh73 = 0.135 + (((Th731avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh73 = 175 + (((Th731avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th731avg <= 120 Then
ch73 = 2219 + (((Th731avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh73 = 840.01 + (((Th731avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh73 = 170.52203 + (((Th731avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh73 = 0.137 + (((Th731avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh73 = 276 + (((Th731avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th731avg <= 100 Then
ch73 = 2131 + (((Th731avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh73 = 852.02 + (((Th731avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh73 = 319.5075 + (((Th731avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh73 = 0.138 + (((Th731avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh73 = 490 + (((Th731avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th731avg <= 80 Then
ch73 = 2047 + (((Th731avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh73 = 864.04 + (((Th731avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh73 = 0.072492956 + (((Th731avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh73 = 0.14 + (((Th731avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh73 = 1050 + (((Th731avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th731avg <= 60 Then
ch73 = 1964 + (((Th731avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh73 = 876.05 + (((Th731avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh73 = 0.210252 + (((Th731avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh73 = 0.144 + (((Th731avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh73 = 2870 + (((Th731avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th731avg <= 40 Then
ch73 = 1880 + (((Th731avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh73 = 888.23 + (((Th731avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh73 = 0.799407 + (((Th731avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh73 = 0.145 + (((Th731avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh73 = 10400 + (((Th731avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th731avg <= 20 Then
ch73 = 1796 + (((Th731avg) / (20)) * (1880 - 1796))
rhoh73 = 899.12 + (((Th731avg) / (20)) * (888.23 - 899.12))
dynh73 = 3.84823 + (((Th731avg) / (20)) * (0.799407 - 3.84823))
kh73 = 0.147 + (((Th731avg) / (20)) * (0.145 - 0.147))
prh73 = 47100 + (((Th731avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th741avg <= 160 Then 'Seventh flow channel,fourth partition
ch74 = 2395 + (((Th741avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh74 = 816.94 + (((Th741avg - 140) / (160 - 140)) * (805 - 816.94))
dynh74 = 65.3552 + (((Th741avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh74 = 0.133 + (((Th741avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh74 = 116 + (((Th741avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th741avg <= 140 Then
ch74 = 2307 + (((Th741avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh74 = 828.96 + (((Th741avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh74 = 102.79104 + (((Th741avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh74 = 0.135 + (((Th741avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh74 = 175 + (((Th741avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th741avg <= 120 Then
ch74 = 2219 + (((Th741avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh74 = 840.01 + (((Th741avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh74 = 170.52203 + (((Th741avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh74 = 0.137 + (((Th741avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh74 = 276 + (((Th741avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th741avg <= 100 Then
ch74 = 2131 + (((Th741avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh74 = 852.02 + (((Th741avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh74 = 319.5075 + (((Th741avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh74 = 0.138 + (((Th741avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh74 = 490 + (((Th741avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th741avg <= 80 Then
ch74 = 2047 + (((Th741avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh74 = 864.04 + (((Th741avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh74 = 0.072492956 + (((Th741avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh74 = 0.14 + (((Th741avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh74 = 1050 + (((Th741avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th741avg <= 60 Then
ch74 = 1964 + (((Th741avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh74 = 876.05 + (((Th741avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh74 = 0.210252 + (((Th741avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh74 = 0.144 + (((Th741avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh74 = 2870 + (((Th741avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th741avg <= 40 Then
ch74 = 1880 + (((Th741avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh74 = 888.23 + (((Th741avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh74 = 0.799407 + (((Th741avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh74 = 0.145 + (((Th741avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh74 = 10400 + (((Th741avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th741avg <= 20 Then
ch74 = 1796 + (((Th741avg) / (20)) * (1880 - 1796))
rhoh74 = 899.12 + (((Th741avg) / (20)) * (888.23 - 899.12))
dynh74 = 3.84823 + (((Th741avg) / (20)) * (0.799407 - 3.84823))
kh74 = 0.147 + (((Th741avg) / (20)) * (0.145 - 0.147))
prh74 = 47100 + (((Th741avg) / (20)) * (10400 - 47100))


End If
End If
End If

If 340 <= Th751avg <= 160 Then 'Seventh flow channel,fifth partition
ch75 = 2395 + (((Th751avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh75 = 816.94 + (((Th751avg - 140) / (160 - 140)) * (805 - 816.94))
dynh75 = 65.3552 + (((Th751avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh75 = 0.133 + (((Th751avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh75 = 116 + (((Th751avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th751avg <= 140 Then
ch75 = 2307 + (((Th751avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh75 = 828.96 + (((Th751avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh75 = 102.79104 + (((Th751avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh75 = 0.135 + (((Th751avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh75 = 175 + (((Th751avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th751avg <= 120 Then
ch75 = 2219 + (((Th751avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh75 = 840.01 + (((Th751avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh75 = 170.52203 + (((Th751avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh75 = 0.137 + (((Th751avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh75 = 276 + (((Th751avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th751avg <= 100 Then
ch75 = 2131 + (((Th751avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh75 = 852.02 + (((Th751avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh75 = 319.5075 + (((Th751avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh75 = 0.138 + (((Th751avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh75 = 490 + (((Th751avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th751avg <= 80 Then
ch75 = 2047 + (((Th751avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh75 = 864.04 + (((Th751avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh75 = 0.072492956 + (((Th751avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh75 = 0.14 + (((Th751avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh75 = 1050 + (((Th751avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th751avg <= 60 Then
ch75 = 1964 + (((Th751avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh75 = 876.05 + (((Th751avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh75 = 0.210252 + (((Th751avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh75 = 0.144 + (((Th751avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh75 = 2870 + (((Th751avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th751avg <= 40 Then
ch75 = 1880 + (((Th751avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh75 = 888.23 + (((Th751avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh75 = 0.799407 + (((Th751avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh75 = 0.145 + (((Th751avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh75 = 10400 + (((Th751avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th751avg <= 20 Then
ch75 = 1796 + (((Th751avg) / (20)) * (1880 - 1796))
rhoh75 = 899.12 + (((Th751avg) / (20)) * (888.23 - 899.12))
dynh75 = 3.84823 + (((Th751avg) / (20)) * (0.799407 - 3.84823))
kh75 = 0.147 + (((Th751avg) / (20)) * (0.145 - 0.147))
prh75 = 47100 + (((Th751avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th761avg <= 160 Then 'Seventh flow channel,sixth partition
ch76 = 2395 + (((Th761avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh76 = 816.94 + (((Th761avg - 140) / (160 - 140)) * (805 - 816.94))
dynh76 = 65.3552 + (((Th761avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh76 = 0.133 + (((Th761avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh76 = 116 + (((Th761avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th761avg <= 140 Then
ch76 = 2307 + (((Th761avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh76 = 828.96 + (((Th761avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh76 = 102.79104 + (((Th761avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh76 = 0.135 + (((Th761avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh76 = 175 + (((Th761avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th761avg <= 120 Then
ch76 = 2219 + (((Th761avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh76 = 840.01 + (((Th761avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh76 = 170.52203 + (((Th761avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh76 = 0.137 + (((Th761avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh76 = 276 + (((Th761avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th761avg <= 100 Then
ch76 = 2131 + (((Th761avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh76 = 852.02 + (((Th761avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh76 = 319.5075 + (((Th761avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh76 = 0.138 + (((Th761avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh76 = 490 + (((Th761avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th761avg <= 80 Then
ch76 = 2047 + (((Th761avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh76 = 864.04 + (((Th761avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh76 = 0.072492956 + (((Th761avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh76 = 0.14 + (((Th761avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh76 = 1050 + (((Th761avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th761avg <= 60 Then
ch76 = 1964 + (((Th761avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh76 = 876.05 + (((Th761avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh76 = 0.210252 + (((Th761avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh76 = 0.144 + (((Th761avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh76 = 2870 + (((Th761avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th761avg <= 40 Then
ch76 = 1880 + (((Th761avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh76 = 888.23 + (((Th761avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh76 = 0.799407 + (((Th761avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh76 = 0.145 + (((Th761avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh76 = 10400 + (((Th761avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th761avg <= 20 Then
ch76 = 1796 + (((Th761avg) / (20)) * (1880 - 1796))
rhoh76 = 899.12 + (((Th761avg) / (20)) * (888.23 - 899.12))
dynh76 = 3.84823 + (((Th761avg) / (20)) * (0.799407 - 3.84823))
kh76 = 0.147 + (((Th761avg) / (20)) * (0.145 - 0.147))
prh76 = 47100 + (((Th761avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th771avg <= 160 Then 'Seventh flow channel,seventh partition
ch77 = 2395 + (((Th771avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh77 = 816.94 + (((Th771avg - 140) / (160 - 140)) * (805 - 816.94))
dynh77 = 65.3552 + (((Th771avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh77 = 0.133 + (((Th771avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh77 = 116 + (((Th771avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th771avg <= 140 Then
ch77 = 2307 + (((Th771avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh77 = 828.96 + (((Th771avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh77 = 102.79104 + (((Th771avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh77 = 0.135 + (((Th771avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh77 = 175 + (((Th771avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th771avg <= 120 Then
ch77 = 2219 + (((Th771avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh77 = 840.01 + (((Th771avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh77 = 170.52203 + (((Th771avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh77 = 0.137 + (((Th771avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh77 = 276 + (((Th771avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th771avg <= 100 Then
ch77 = 2131 + (((Th771avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh77 = 852.02 + (((Th771avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh77 = 319.5075 + (((Th771avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh77 = 0.138 + (((Th771avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh77 = 490 + (((Th771avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th771avg <= 80 Then
ch77 = 2047 + (((Th771avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh77 = 864.04 + (((Th771avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh77 = 0.072492956 + (((Th771avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh77 = 0.14 + (((Th771avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh77 = 1050 + (((Th771avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th771avg <= 60 Then
ch77 = 1964 + (((Th771avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh77 = 876.05 + (((Th771avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh77 = 0.210252 + (((Th771avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh77 = 0.144 + (((Th771avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh77 = 2870 + (((Th771avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th771avg <= 40 Then
ch77 = 1880 + (((Th771avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh77 = 888.23 + (((Th771avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh77 = 0.799407 + (((Th771avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh77 = 0.145 + (((Th771avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh77 = 10400 + (((Th771avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th771avg <= 20 Then
ch77 = 1796 + (((Th771avg) / (20)) * (1880 - 1796))
rhoh77 = 899.12 + (((Th771avg) / (20)) * (888.23 - 899.12))
dynh77 = 3.84823 + (((Th771avg) / (20)) * (0.799407 - 3.84823))
kh77 = 0.147 + (((Th771avg) / (20)) * (0.145 - 0.147))
prh77 = 47100 + (((Th771avg) / (20)) * (10400 - 47100))

End If
End If
End If


If 140 <= Th781avg <= 160 Then 'Seventh flow channel,eight partition
ch78 = 2395 + (((Th781avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh78 = 816.94 + (((Th781avg - 140) / (160 - 140)) * (805 - 816.94))
dynh78 = 65.3552 + (((Th781avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh78 = 0.133 + (((Th781avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh78 = 116 + (((Th781avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th781avg <= 140 Then
ch78 = 2307 + (((Th781avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh78 = 828.96 + (((Th781avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh78 = 102.79104 + (((Th781avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh78 = 0.135 + (((Th781avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh78 = 175 + (((Th781avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th781avg <= 120 Then
ch78 = 2219 + (((Th781avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh78 = 840.01 + (((Th781avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh78 = 170.52203 + (((Th781avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh78 = 0.137 + (((Th781avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh78 = 276 + (((Th781avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th781avg <= 100 Then
ch78 = 2131 + (((Th781avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh78 = 852.02 + (((Th781avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh78 = 319.5075 + (((Th781avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh78 = 0.138 + (((Th781avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh78 = 490 + (((Th781avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th781avg <= 80 Then
ch78 = 2047 + (((Th781avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh78 = 864.04 + (((Th781avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh78 = 0.072492956 + (((Th781avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh78 = 0.14 + (((Th781avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh78 = 1050 + (((Th781avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th781avg <= 60 Then
ch78 = 1964 + (((Th781avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh78 = 876.05 + (((Th781avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh78 = 0.210252 + (((Th781avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh78 = 0.144 + (((Th781avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh78 = 2870 + (((Th781avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th781avg <= 40 Then
ch78 = 1880 + (((Th781avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh78 = 888.23 + (((Th781avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh78 = 0.799407 + (((Th781avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh78 = 0.145 + (((Th781avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh78 = 10400 + (((Th781avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th781avg <= 20 Then
ch78 = 1796 + (((Th781avg) / (20)) * (1880 - 1796))
rhoh78 = 899.12 + (((Th781avg) / (20)) * (888.23 - 899.12))
dynh78 = 3.84823 + (((Th781avg) / (20)) * (0.799407 - 3.84823))
kh78 = 0.147 + (((Th781avg) / (20)) * (0.145 - 0.147))
prh78 = 47100 + (((Th781avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th791avg <= 160 Then 'Seventh flow channel,ninth partition
ch79 = 2395 + (((Th791avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh79 = 816.94 + (((Th791avg - 140) / (160 - 140)) * (805 - 816.94))
dynh79 = 65.3552 + (((Th791avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh79 = 0.133 + (((Th791avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh79 = 116 + (((Th791avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th791avg <= 140 Then
ch79 = 2307 + (((Th791avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh79 = 828.96 + (((Th791avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh79 = 102.79104 + (((Th791avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh79 = 0.135 + (((Th791avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh79 = 175 + (((Th791avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th791avg <= 120 Then
ch79 = 2219 + (((Th791avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh79 = 840.01 + (((Th791avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh79 = 170.52203 + (((Th791avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh79 = 0.137 + (((Th791avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh79 = 276 + (((Th791avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th791avg <= 100 Then
ch79 = 2131 + (((Th791avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh79 = 852.02 + (((Th791avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh79 = 319.5075 + (((Th791avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh79 = 0.138 + (((Th791avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh79 = 490 + (((Th791avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th791avg <= 80 Then
ch79 = 2047 + (((Th791avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh79 = 864.04 + (((Th791avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh79 = 0.072492956 + (((Th791avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh79 = 0.14 + (((Th791avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh79 = 1050 + (((Th791avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th791avg <= 60 Then
ch79 = 1964 + (((Th791avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh79 = 876.05 + (((Th791avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh79 = 0.210252 + (((Th791avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh79 = 0.144 + (((Th791avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh79 = 2870 + (((Th791avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th791avg <= 40 Then
ch79 = 1880 + (((Th791avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh79 = 888.23 + (((Th791avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh79 = 0.799407 + (((Th791avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh79 = 0.145 + (((Th791avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh79 = 10400 + (((Th791avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th791avg <= 20 Then
ch79 = 1796 + (((Th791v) / (20)) * (1880 - 1796))
rhoh79 = 899.12 + (((Th791v) / (20)) * (888.23 - 899.12))
dynh79 = 3.84823 + (((Th791avg) / (20)) * (0.799407 - 3.84823))
kh79 = 0.147 + (((Th791avg) / (20)) * (0.145 - 0.147))
prh79 = 47100 + (((Th791avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th7101avg <= 160 Then 'Seventh flow channel,Tenth partition
ch710 = 2395 + (((Th7101avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh710 = 816.94 + (((Th7101avg - 140) / (160 - 140)) * (805 - 816.94))
dynh710 = 65.3552 + (((Th7101avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh710 = 0.133 + (((Th7101avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh710 = 116 + (((Th7101avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th7101avg <= 140 Then
ch710 = 2307 + (((Th7101avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh710 = 828.96 + (((Th7101avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh710 = 102.79104 + (((Th7101avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh710 = 0.135 + (((Th7101avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh710 = 175 + (((Th7101avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th7101avg <= 120 Then
ch710 = 2219 + (((Th7101avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh710 = 840.01 + (((Th7101avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh710 = 170.52203 + (((Th7101avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh710 = 0.137 + (((Th7101avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh710 = 276 + (((Th7101avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th7101avg <= 100 Then
ch710 = 2131 + (((Th7101avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh710 = 852.02 + (((Th7101avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh710 = 319.5075 + (((Th7101avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh710 = 0.138 + (((Th7101avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh710 = 490 + (((Th7101avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th7101avg <= 80 Then
ch710 = 2047 + (((Th7101avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh710 = 864.04 + (((Th7101avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh710 = 0.072492956 + (((Th7101avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh710 = 0.14 + (((Th7101avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh710 = 1050 + (((Th7101avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th7101avg <= 60 Then
ch710 = 1964 + (((Th7101avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh710 = 876.05 + (((Th7101avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh710 = 0.210252 + (((Th7101avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh710 = 0.144 + (((Th7101avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh710 = 2870 + (((Th7101avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th7101avg <= 40 Then
ch710 = 1880 + (((Th7101avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh710 = 888.23 + (((Th7101avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh710 = 0.799407 + (((Th7101avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh710 = 0.145 + (((Th7101avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh710 = 10400 + (((Th7101avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th7101avg <= 20 Then
ch710 = 1796 + (((Th7101avg) / (20)) * (1880 - 1796))
rhoh710 = 899.12 + (((Th7101avg) / (20)) * (888.23 - 899.12))
dynh710 = 3.84823 + (((Th7101avg) / (20)) * (0.799407 - 3.84823))
kh710 = 0.147 + (((Th7101avg) / (20)) * (0.145 - 0.147))
prh710 = 47100 + (((Th7101avg) / (20)) * (10400 - 47100))


End If
End If
End If


If 140 <= Th7111 <= 160 Then
ch711 = 2395 + (((Th7111 - 140) / (160 - 140)) * (2483 - 2395))
rhoh711 = 816.94 + (((Th7111 - 140) / (160 - 140)) * (805 - 816.94))
dynh711 = 65.3552 + (((Th7111 - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh711 = 0.133 + (((Th7111 - 140) / (160 - 140)) * (0.132 - 0.133))
prh711 = 116 + (((Th7111 - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th7111 <= 140 Then
ch711 = 2307 + (((Th7111 - 120) / (140 - 120)) * (2395 - 2307))
rhoh711 = 828.96 + (((Th7111 - 120) / (140 - 120)) * (816.94 - 828.96))
dynh711 = 102.79104 + (((Th7111 - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh711 = 0.135 + (((Th7111 - 120) / (140 - 120)) * (0.133 - 0.135))
prh711 = 175 + (((Th7111 - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th7111 <= 120 Then
ch711 = 2219 + (((Th7111 - 100) / (120 - 100)) * (2307 - 2219))
rhoh711 = 840.01 + (((Th7111 - 100) / (120 - 100)) * (828.96 - 840.01))
dynh711 = 170.52203 + (((Th7111 - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh711 = 0.137 + (((Th7111 - 100) / (120 - 100)) * (0.135 - 0.137))
prh711 = 276 + (((Th7111 - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th7111 <= 100 Then
ch711 = 2131 + (((Th7111 - 80) / (100 - 80)) * (2219 - 2131))
rhoh711 = 852.02 + (((Th7111 - 80) / (100 - 80)) * (840.01 - 852.02))
dynh711 = 319.5075 + (((Th7111 - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh711 = 0.138 + (((Th7111 - 80) / (100 - 80)) * (0.137 - 0.138))
prh711 = 490 + (((Th7111 - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th7111 <= 80 Then
ch711 = 2047 + (((Th7111 - 60) / (80 - 60)) * (2131 - 2047))
rhoh711 = 864.04 + (((Th7111 - 60) / (80 - 60)) * (852.02 - 864.04))
dynh711 = 0.072492956 + (((Th7111 - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh711 = 0.14 + (((Th7111 - 60) / (80 - 60)) * (0.138 - 0.14))
prh711 = 1050 + (((Th7111 - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th7111 <= 60 Then
ch711 = 1964 + (((Th7111 - 40) / (60 - 40)) * (2047 - 1964))
rhoh711 = 876.05 + (((Th7111 - 40) / (60 - 40)) * (864.04 - 876.05))
dynh711 = 0.210252 + (((Th7111 - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh711 = 0.144 + (((Th7111 - 40) / (60 - 40)) * (0.14 - 0.144))
prh711 = 2870 + (((Th7111 - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th7111 <= 40 Then
ch711 = 1880 + (((Th7111 - 20) / (40 - 20)) * (1964 - 1880))
rhoh711 = 888.23 + (((Th7111 - 20) / (40 - 20)) * (876.05 - 888.23))
dynh711 = 0.799407 + (((Th7111 - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh711 = 0.145 + (((Th7111 - 20) / (40 - 20)) * (0.144 - 0.145))
prh711 = 10400 + (((Th7111 - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th7111 <= 20 Then
ch711 = 1796 + (((Th7111) / (20)) * (1880 - 1796))
rhoh711 = 899.12 + (((Th7111) / (20)) * (888.23 - 899.12))
dynh711 = 3.84823 + (((Th7111) / (20)) * (0.799407 - 3.84823))
kh711 = 0.147 + (((Th7111) / (20)) * (0.145 - 0.147))
prh711 = 47100 + (((Th7111) / (20)) * (10400 - 47100))


End If
End If
End If




If 0 <= Tc811avg <= 4.44 Then 'eighth flow channel,first partion
cc81 = 4225 + (((Tc811avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc81 = 999.8 + (((Tc811avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync81 = 0.00179 + (((Tc811avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc81 = 0.566 + (((Tc811avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc81 = 13.25 + (((Tc811avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc811avg <= 10 Then
cc81 = 4208 + (((Tc811avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc81 = 999.8 + (((Tc811avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync81 = 1.55 + (((Tc811avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc81 = 0.575 + (((Tc811avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc81 = 11.35 + (((Tc811avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc811avg <= 15.56 Then
cc81 = 4195 + (((Tc811avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc81 = 999.2 + (((Tc811avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync81 = 1.31 + (((Tc811avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc81 = 0.585 + (((Tc811avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc81 = 9.4 + (((Tc811avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc811avg <= 21.11 Then
cc81 = 4186 + (((Tc811avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc81 = 998.6 + (((Tc811avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync81 = 1.12 + (((Tc811avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc81 = 0.595 + (((Tc811avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc81 = 7.88 + (((Tc811avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc811avg <= 26.67 Then
cc81 = 4179 + (((Tc811avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc81 = 997.4 + (((Tc811avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync81 = 0.00098 + (((Tc811avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc81 = 0.604 + (((Tc811avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc81 = 6.78 + (((Tc811avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc811avg <= 32.22 Then
cc81 = 4179 + (((Tc811avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc81 = 995.8 + (((Tc811avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync81 = 8.6 + (((Tc811avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc81 = 0.614 + (((Tc811avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc81 = 5.85 + (((Tc811avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc811avg <= 37.78 Then
cc81 = 4174 + (((Tc811avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc81 = 994.9 + (((Tc811avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync81 = 7.65 + (((Tc811avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc81 = 0.623 + (((Tc811avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc81 = 5.12 + (((Tc811avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc811avg <= 43.33 Then
cc81 = 4174 + (((Tc811avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc81 = 993 + (((Tc811avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync81 = 6.82 + (((Tc811avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc81 = 0.63 + (((Tc811avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc81 = 4.53 + (((Tc811avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc811avg <= 48.89 Then
cc81 = 4174 + (((Tc811avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc81 = 990.6 + (((Tc811avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync81 = 6.16 + (((Tc811avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc81 = 0.637 + (((Tc811avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc81 = 4.04 + (((Tc811avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc811avg <= 54.44 Then
cc81 = 4174 + (((Tc811avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc81 = 998.8 + (((Tc811avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync81 = 5.62 + (((Tc811avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc81 = 0.644 + (((Tc811avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc81 = 3.64 + (((Tc811avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc811avg <= 60 Then
cc81 = 4179 + (((Tc811avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc81 = 985.7 + (((Tc811avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync81 = 5.13 + (((Tc811avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc81 = 0.649 + (((Tc811avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc81 = 3.3 + (((Tc811avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc811avg <= 65.55 Then
cc81 = 4179 + (((Tc811avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc81 = 983.3 + (((Tc811avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync81 = 4.71 + (((Tc811avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc81 = 0.654 + (((Tc811avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc81 = 3.01 + (((Tc811avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc811avg <= 71.11 Then
cc81 = 4183 + (((Tc811avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc81 = 980.3 + (((Tc811avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync81 = 4.3 + (((Tc811avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc81 = 0.659 + (((Tc811avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc81 = 2.73 + (((Tc811avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc811avg <= 76.67 Then
cc81 = 4186 + (((Tc811avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc81 = 977.3 + (((Tc811avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync81 = 4.01 + (((Tc811avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc81 = 0.665 + (((Tc811avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc81 = 2.53 + (((Tc811avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc811avg <= 82.22 Then
cc81 = 4191 + (((Tc811avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc81 = 973.7 + (((Tc811avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync81 = 3.72 + (((Tc811avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc81 = 0.668 + (((Tc811avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc81 = 2.33 + (((Tc811avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc811avg <= 87.78 Then
cc81 = 4195 + (((Tc811avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc81 = 970.2 + (((Tc811avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync81 = 3.47 + (((Tc811avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc81 = 0.673 + (((Tc811avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc81 = 2.16 + (((Tc811avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc811avg <= 93.33 Then
cc81 = 4199 + (((Tc811avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc81 = 966.7 + (((Tc811avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync81 = 3.27 + (((Tc811avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc81 = 0.675 + (((Tc811avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc81 = 2.03 + (((Tc811avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc811avg <= 104.4 Then
cc81 = 4204 + (((Tc811avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc81 = 963.2 + (((Tc811avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync81 = 3.06 + (((Tc811avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc81 = 0.678 + (((Tc811avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc81 = 1.9 + (((Tc811avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc821avg <= 4.44 Then 'eight flow channel,second partition
cc82 = 4225 + (((Tc821avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc82 = 999.8 + (((Tc821avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync82 = 0.00179 + (((Tc821avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc82 = 0.566 + (((Tc821avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc82 = 13.25 + (((Tc821avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc821avg <= 10 Then
cc82 = 4208 + (((Tc821avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc82 = 999.8 + (((Tc821avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync82 = 1.55 + (((Tc821avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc82 = 0.575 + (((Tc821avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc82 = 11.35 + (((Tc821avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc821avg <= 15.56 Then
cc82 = 4195 + (((Tc821avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc82 = 999.2 + (((Tc821avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync82 = 1.31 + (((Tc821avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc82 = 0.585 + (((Tc821avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc82 = 9.4 + (((Tc821avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc821avg <= 21.11 Then
cc82 = 4186 + (((Tc821avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc82 = 998.6 + (((Tc821avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync82 = 1.12 + (((Tc821avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc82 = 0.595 + (((Tc821avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc82 = 7.88 + (((Tc821avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc821avg <= 26.67 Then
cc82 = 4179 + (((Tc821avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc82 = 997.4 + (((Tc821avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync82 = 0.00098 + (((Tc821avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc82 = 0.604 + (((Tc821avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc82 = 6.78 + (((Tc821avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc821avg <= 32.22 Then
cc82 = 4179 + (((Tc821avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc82 = 995.8 + (((Tc821avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync82 = 8.6 + (((Tc821avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc82 = 0.614 + (((Tc821avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc82 = 5.85 + (((Tc821avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc821avg <= 37.78 Then
cc82 = 4174 + (((Tc821avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc82 = 994.9 + (((Tc821avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync82 = 7.65 + (((Tc821avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc82 = 0.623 + (((Tc821avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc82 = 5.12 + (((Tc821avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc821avg <= 43.33 Then
cc82 = 4174 + (((Tc821avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc82 = 993 + (((Tc821avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync82 = 6.82 + (((Tc821avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc82 = 0.63 + (((Tc821avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc82 = 4.53 + (((Tc821avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc821avg <= 48.89 Then
cc82 = 4174 + (((Tc821avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc82 = 990.6 + (((Tc821avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync82 = 6.16 + (((Tc821avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc82 = 0.637 + (((Tc821avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc82 = 4.04 + (((Tc821avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc821avg <= 54.44 Then
cc82 = 4174 + (((Tc821avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc82 = 998.8 + (((Tc821avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync82 = 5.62 + (((Tc821avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc82 = 0.644 + (((Tc821avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc82 = 3.64 + (((Tc821avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc821avg <= 60 Then
cc82 = 4179 + (((Tc821avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc82 = 985.7 + (((Tc821avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync82 = 5.13 + (((Tc821avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc82 = 0.649 + (((Tc821avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc82 = 3.3 + (((Tc821avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc821avg <= 65.55 Then
cc82 = 4179 + (((Tc821avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc82 = 983.3 + (((Tc821avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync82 = 4.71 + (((Tc821avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc82 = 0.654 + (((Tc821avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc82 = 3.01 + (((Tc821avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc821avg <= 71.11 Then
cc82 = 4183 + (((Tc821avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc82 = 980.3 + (((Tc821avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync82 = 4.3 + (((Tc821avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc82 = 0.659 + (((Tc821avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc82 = 2.73 + (((Tc821avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc821avg <= 76.67 Then
cc82 = 4186 + (((Tc821avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc82 = 977.3 + (((Tc821avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync82 = 4.01 + (((Tc821avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc82 = 0.665 + (((Tc821avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc82 = 2.53 + (((Tc821avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc821avg <= 82.22 Then
cc82 = 4191 + (((Tc821avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc82 = 973.7 + (((Tc821avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync82 = 3.72 + (((Tc821avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc82 = 0.668 + (((Tc821avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc82 = 2.33 + (((Tc821avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc821avg <= 87.78 Then
cc82 = 4195 + (((Tc821avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc82 = 970.2 + (((Tc821avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync82 = 3.47 + (((Tc821avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc82 = 0.673 + (((Tc821avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc82 = 2.16 + (((Tc821avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc821avg <= 93.33 Then
cc82 = 4199 + (((Tc821avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc82 = 966.7 + (((Tc821avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync82 = 3.27 + (((Tc821avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc82 = 0.675 + (((Tc821avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc82 = 2.03 + (((Tc821avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc821avg <= 104.4 Then
cc82 = 4204 + (((Tc821avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc82 = 963.2 + (((Tc821avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync82 = 3.06 + (((Tc821avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc82 = 0.678 + (((Tc821avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc82 = 1.9 + (((Tc821avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc831avg <= 4.44 Then 'eight flow channel,Third partition
cc83 = 4225 + (((Tc831avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc83 = 999.8 + (((Tc831avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync83 = 0.00179 + (((Tc831avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc83 = 0.566 + (((Tc831avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc83 = 13.25 + (((Tc831avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc831avg <= 10 Then
cc83 = 4208 + (((Tc831avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc83 = 999.8 + (((Tc831avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync83 = 1.55 + (((Tc831avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc83 = 0.575 + (((Tc831avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc83 = 11.35 + (((Tc831avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc831avg <= 15.56 Then
cc83 = 4195 + (((Tc831avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc83 = 999.2 + (((Tc831avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync83 = 1.31 + (((Tc831avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc83 = 0.585 + (((Tc831avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc83 = 9.4 + (((Tc831avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc831avg <= 21.11 Then
cc83 = 4186 + (((Tc831avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc83 = 998.6 + (((Tc831avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync83 = 1.12 + (((Tc831avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc83 = 0.595 + (((Tc831avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc83 = 7.88 + (((Tc831avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc831avg <= 26.67 Then
cc83 = 4179 + (((Tc831avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc83 = 997.4 + (((Tc831avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync83 = 0.00098 + (((Tc831avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc83 = 0.604 + (((Tc831avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc83 = 6.78 + (((Tc831avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc831avg <= 32.22 Then
cc83 = 4179 + (((Tc831avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc83 = 995.8 + (((Tc831avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync83 = 8.6 + (((Tc831avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc83 = 0.614 + (((Tc831avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc83 = 5.85 + (((Tc831avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc831avg <= 37.78 Then
cc83 = 4174 + (((Tc831avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc83 = 994.9 + (((Tc831avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync83 = 7.65 + (((Tc831avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc83 = 0.623 + (((Tc831avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc83 = 5.12 + (((Tc831avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc831avg <= 43.33 Then
cc83 = 4174 + (((Tc831avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc83 = 993 + (((Tc831avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync83 = 6.82 + (((Tc831avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc83 = 0.63 + (((Tc831avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc83 = 4.53 + (((Tc831avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc831avg <= 48.89 Then
cc83 = 4174 + (((Tc831avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc83 = 990.6 + (((Tc831avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync83 = 6.16 + (((Tc831avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc83 = 0.637 + (((Tc831avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc83 = 4.04 + (((Tc831avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc831avg <= 54.44 Then
cc83 = 4174 + (((Tc831avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc83 = 998.8 + (((Tc831avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync83 = 5.62 + (((Tc831avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc83 = 0.644 + (((Tc831avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc83 = 3.64 + (((Tc831avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc831avg <= 60 Then
cc83 = 4179 + (((Tc831avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc83 = 985.7 + (((Tc831avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync83 = 5.13 + (((Tc831avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc83 = 0.649 + (((Tc831avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc83 = 3.3 + (((Tc831avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc831avg <= 65.55 Then
cc83 = 4179 + (((Tc831avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc83 = 983.3 + (((Tc831avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync83 = 4.71 + (((Tc831avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc83 = 0.654 + (((Tc831avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc83 = 3.01 + (((Tc831avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc831avg <= 71.11 Then
cc83 = 4183 + (((Tc831avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc83 = 980.3 + (((Tc831avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync83 = 4.3 + (((Tc831avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc83 = 0.659 + (((Tc831avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc83 = 2.73 + (((Tc831avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc831avg <= 76.67 Then
cc83 = 4186 + (((Tc831avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc83 = 977.3 + (((Tc831avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync83 = 4.01 + (((Tc831avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc83 = 0.665 + (((Tc831avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc83 = 2.53 + (((Tc831avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc831avg <= 82.22 Then
cc83 = 4191 + (((Tc831avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc83 = 973.7 + (((Tc831avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync83 = 3.72 + (((Tc831avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc83 = 0.668 + (((Tc831avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc83 = 2.33 + (((Tc831avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc831avg <= 87.78 Then
cc83 = 4195 + (((Tc831avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc83 = 970.2 + (((Tc831avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync83 = 3.47 + (((Tc831avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc83 = 0.673 + (((Tc831avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc83 = 2.16 + (((Tc831avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc831avg <= 93.33 Then
cc83 = 4199 + (((Tc831avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc83 = 966.7 + (((Tc831avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync83 = 3.27 + (((Tc831avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc83 = 0.675 + (((Tc831avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc83 = 2.03 + (((Tc831avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc831avg <= 104.4 Then
cc83 = 4204 + (((Tc831avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc83 = 963.2 + (((Tc831avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync83 = 3.06 + (((Tc831avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc83 = 0.678 + (((Tc831avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc83 = 1.9 + (((Tc831avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If


If 0 <= Tc841avg <= 4.44 Then 'Eight flow channel,fourth partition
cc84 = 4225 + (((Tc841avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc84 = 999.8 + (((Tc841avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync84 = 0.00179 + (((Tc841avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc84 = 0.566 + (((Tc841avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc84 = 13.25 + (((Tc841avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc841avg <= 10 Then
cc84 = 4208 + (((Tc841avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc84 = 999.8 + (((Tc841avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync84 = 1.55 + (((Tc841avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc84 = 0.575 + (((Tc841avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc84 = 11.35 + (((Tc841avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc841avg <= 15.56 Then
cc84 = 4195 + (((Tc841avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc84 = 999.2 + (((Tc841avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync84 = 1.31 + (((Tc841avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc84 = 0.585 + (((Tc841avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc84 = 9.4 + (((Tc841avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc841avg <= 21.11 Then
cc84 = 4186 + (((Tc841avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc84 = 998.6 + (((Tc841avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync84 = 1.12 + (((Tc841avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc84 = 0.595 + (((Tc841avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc84 = 7.88 + (((Tc841avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc841avg <= 26.67 Then
cc84 = 4179 + (((Tc841avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc84 = 997.4 + (((Tc841avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync84 = 0.00098 + (((Tc841avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc84 = 0.604 + (((Tc841avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc84 = 6.78 + (((Tc841avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc841avg <= 32.22 Then
cc84 = 4179 + (((Tc841avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc84 = 995.8 + (((Tc841avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync84 = 8.6 + (((Tc841avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc84 = 0.614 + (((Tc841avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc84 = 5.85 + (((Tc841avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc841avg <= 37.78 Then
cc84 = 4174 + (((Tc841avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc84 = 994.9 + (((Tc841avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync84 = 7.65 + (((Tc841avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc84 = 0.623 + (((Tc841avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc84 = 5.12 + (((Tc841avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc841avg <= 43.33 Then
cc84 = 4174 + (((Tc841avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc84 = 993 + (((Tc841avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync84 = 6.82 + (((Tc841avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc84 = 0.63 + (((Tc841avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc84 = 4.53 + (((Tc841avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc841avg <= 48.89 Then
cc84 = 4174 + (((Tc841avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc84 = 990.6 + (((Tc841avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync84 = 6.16 + (((Tc841avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc84 = 0.637 + (((Tc841avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc84 = 4.04 + (((Tc841avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc841avg <= 54.44 Then
cc84 = 4174 + (((Tc841avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc84 = 998.8 + (((Tc841avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync84 = 5.62 + (((Tc841avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc84 = 0.644 + (((Tc841avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc84 = 3.64 + (((Tc841avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc841avg <= 60 Then
cc84 = 4179 + (((Tc841avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc84 = 985.7 + (((Tc841avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync84 = 5.13 + (((Tc841avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc84 = 0.649 + (((Tc841avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc84 = 3.3 + (((Tc841avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc841avg <= 65.55 Then
cc84 = 4179 + (((Tc841avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc84 = 983.3 + (((Tc841avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync84 = 4.71 + (((Tc841avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc84 = 0.654 + (((Tc841avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc84 = 3.01 + (((Tc841avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc841avg <= 71.11 Then
cc84 = 4183 + (((Tc841avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc84 = 980.3 + (((Tc841avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync84 = 4.3 + (((Tc841avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc84 = 0.659 + (((Tc841avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc84 = 2.73 + (((Tc841avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc841avg <= 76.67 Then
cc84 = 4186 + (((Tc841avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc84 = 977.3 + (((Tc841avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync84 = 4.01 + (((Tc841avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc84 = 0.665 + (((Tc841avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc84 = 2.53 + (((Tc841avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc841avg <= 82.22 Then
cc84 = 4191 + (((Tc841avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc84 = 973.7 + (((Tc841avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync84 = 3.72 + (((Tc841avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc84 = 0.668 + (((Tc841avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc84 = 2.33 + (((Tc841avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc841avg <= 87.78 Then
cc84 = 4195 + (((Tc841avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc84 = 970.2 + (((Tc841avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync84 = 3.47 + (((Tc841avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc84 = 0.673 + (((Tc841avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc84 = 2.16 + (((Tc841avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc841avg <= 93.33 Then
cc84 = 4199 + (((Tc841avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc84 = 966.7 + (((Tc841avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync84 = 3.27 + (((Tc841avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc84 = 0.675 + (((Tc841avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc84 = 2.03 + (((Tc841avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc841avg <= 104.4 Then
cc84 = 4204 + (((Tc841avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc84 = 963.2 + (((Tc841avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync84 = 3.06 + (((Tc841avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc84 = 0.678 + (((Tc841avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc84 = 1.9 + (((Tc841avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc851avg <= 4.44 Then 'Eight flow channel,fifth partition
cc85 = 4225 + (((Tc851avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc85 = 999.8 + (((Tc851avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync85 = 0.00179 + (((Tc851avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc85 = 0.566 + (((Tc851avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc85 = 13.25 + (((Tc851avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc851avg <= 10 Then
cc85 = 4208 + (((Tc851avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc85 = 999.8 + (((Tc851avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync85 = 1.55 + (((Tc851avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc85 = 0.575 + (((Tc851avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc85 = 11.35 + (((Tc851avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc851avg <= 15.56 Then
cc85 = 4195 + (((Tc851avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc85 = 999.2 + (((Tc851avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync85 = 1.31 + (((Tc851avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc85 = 0.585 + (((Tc851avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc85 = 9.4 + (((Tc851avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc851avg <= 21.11 Then
cc85 = 4186 + (((Tc851avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc85 = 998.6 + (((Tc851avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync85 = 1.12 + (((Tc851avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc85 = 0.595 + (((Tc851avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc85 = 7.88 + (((Tc851avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc851avg <= 26.67 Then
cc85 = 4179 + (((Tc851avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc85 = 997.4 + (((Tc851avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync85 = 0.00098 + (((Tc851avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc85 = 0.604 + (((Tc851avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc85 = 6.78 + (((Tc851avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc851avg <= 32.22 Then
cc85 = 4179 + (((Tc851avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc85 = 995.8 + (((Tc851avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync85 = 8.6 + (((Tc851avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc85 = 0.614 + (((Tc851avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc85 = 5.85 + (((Tc851avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc851avg <= 37.78 Then
cc85 = 4174 + (((Tc851avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc85 = 994.9 + (((Tc851avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync85 = 7.65 + (((Tc851avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc85 = 0.623 + (((Tc851avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc85 = 5.12 + (((Tc851avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc851avg <= 43.33 Then
cc85 = 4174 + (((Tc851avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc85 = 993 + (((Tc851avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync85 = 6.82 + (((Tc851avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc85 = 0.63 + (((Tc851avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc85 = 4.53 + (((Tc851avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc851avg <= 48.89 Then
cc85 = 4174 + (((Tc851avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc85 = 990.6 + (((Tc851avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync85 = 6.16 + (((Tc851avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc85 = 0.637 + (((Tc851avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc85 = 4.04 + (((Tc851avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc851avg <= 54.44 Then
cc85 = 4174 + (((Tc851avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc85 = 998.8 + (((Tc851avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync85 = 5.62 + (((Tc851avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc85 = 0.644 + (((Tc851avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc85 = 3.64 + (((Tc851avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc851avg <= 60 Then
cc85 = 4179 + (((Tc851avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc85 = 985.7 + (((Tc851avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync85 = 5.13 + (((Tc851avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc85 = 0.649 + (((Tc851avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc85 = 3.3 + (((Tc851avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc851avg <= 65.55 Then
cc85 = 4179 + (((Tc851avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc85 = 983.3 + (((Tc851avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync85 = 4.71 + (((Tc851avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc85 = 0.654 + (((Tc851avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc85 = 3.01 + (((Tc851avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc851avg <= 71.11 Then
cc85 = 4183 + (((Tc851avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc85 = 980.3 + (((Tc851avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync85 = 4.3 + (((Tc851avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc85 = 0.659 + (((Tc851avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc85 = 2.73 + (((Tc851avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc851avg <= 76.67 Then
cc85 = 4186 + (((Tc851avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc85 = 977.3 + (((Tc851avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync85 = 4.01 + (((Tc851avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc85 = 0.665 + (((Tc851avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc85 = 2.53 + (((Tc851avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc851avg <= 82.22 Then
cc85 = 4191 + (((Tc851avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc85 = 973.7 + (((Tc851avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync85 = 3.72 + (((Tc851avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc85 = 0.668 + (((Tc851avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc85 = 2.33 + (((Tc851avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc851avg <= 87.78 Then
cc85 = 4195 + (((Tc851avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc85 = 970.2 + (((Tc851avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync85 = 3.47 + (((Tc851avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc85 = 0.673 + (((Tc851avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc85 = 2.16 + (((Tc851avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc851avg <= 93.33 Then
cc85 = 4199 + (((Tc851avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc85 = 966.7 + (((Tc851avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync85 = 3.27 + (((Tc851avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc85 = 0.675 + (((Tc851avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc85 = 2.03 + (((Tc851avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc851avg <= 104.4 Then
cc85 = 4204 + (((Tc851avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc85 = 963.2 + (((Tc851avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync85 = 3.06 + (((Tc851avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc85 = 0.678 + (((Tc851avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc85 = 1.9 + (((Tc851avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If
If 0 <= Tc861avg <= 4.44 Then 'Eight flow channel,sixth partition
cc86 = 4225 + (((Tc861avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc86 = 999.8 + (((Tc861avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync86 = 0.00179 + (((Tc861avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc86 = 0.566 + (((Tc861avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc86 = 13.25 + (((Tc861avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc861avg <= 10 Then
cc86 = 4208 + (((Tc861avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc86 = 999.8 + (((Tc861avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync86 = 1.55 + (((Tc861avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc86 = 0.575 + (((Tc861avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc86 = 11.35 + (((Tc861avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc861avg <= 15.56 Then
cc86 = 4195 + (((Tc861avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc86 = 999.2 + (((Tc861avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync86 = 1.31 + (((Tc861avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc86 = 0.585 + (((Tc861avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc86 = 9.4 + (((Tc861avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc861avg <= 21.11 Then
cc86 = 4186 + (((Tc861avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc86 = 998.6 + (((Tc861avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync86 = 1.12 + (((Tc861avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc86 = 0.595 + (((Tc861avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc86 = 7.88 + (((Tc861avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc861avg <= 26.67 Then
cc86 = 4179 + (((Tc861avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc86 = 997.4 + (((Tc861avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync86 = 0.00098 + (((Tc861avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc86 = 0.604 + (((Tc861avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc86 = 6.78 + (((Tc861avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc861avg <= 32.22 Then
cc86 = 4179 + (((Tc861avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc86 = 995.8 + (((Tc861avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync86 = 8.6 + (((Tc861avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc86 = 0.614 + (((Tc861avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc86 = 5.85 + (((Tc861avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc861avg <= 37.78 Then
cc86 = 4174 + (((Tc861avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc86 = 994.9 + (((Tc861avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync86 = 7.65 + (((Tc861avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc86 = 0.623 + (((Tc861avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc86 = 5.12 + (((Tc861avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc861avg <= 43.33 Then
cc86 = 4174 + (((Tc861avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc86 = 993 + (((Tc861avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync86 = 6.82 + (((Tc861avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc86 = 0.63 + (((Tc861avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc86 = 4.53 + (((Tc861avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc861avg <= 48.89 Then
cc86 = 4174 + (((Tc861avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc86 = 990.6 + (((Tc861avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync86 = 6.16 + (((Tc861avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc86 = 0.637 + (((Tc861avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc86 = 4.04 + (((Tc861avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc861avg <= 54.44 Then
cc86 = 4174 + (((Tc861avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc86 = 998.8 + (((Tc861avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync86 = 5.62 + (((Tc861avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc86 = 0.644 + (((Tc861avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc86 = 3.64 + (((Tc861avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc861avg <= 60 Then
cc86 = 4179 + (((Tc861avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc86 = 985.7 + (((Tc861avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync86 = 5.13 + (((Tc861avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc86 = 0.649 + (((Tc861avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc86 = 3.3 + (((Tc861avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc861avg <= 65.55 Then
cc86 = 4179 + (((Tc861avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc86 = 983.3 + (((Tc861avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync86 = 4.71 + (((Tc861avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc86 = 0.654 + (((Tc861avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc86 = 3.01 + (((Tc861avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc861avg <= 71.11 Then
cc86 = 4183 + (((Tc861avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc86 = 980.3 + (((Tc861avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync86 = 4.3 + (((Tc861avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc86 = 0.659 + (((Tc861avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc86 = 2.73 + (((Tc861avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc861avg <= 76.67 Then
cc86 = 4186 + (((Tc861avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc86 = 977.3 + (((Tc861avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync86 = 4.01 + (((Tc861avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc86 = 0.665 + (((Tc861avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc86 = 2.53 + (((Tc861avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc861avg <= 82.22 Then
cc86 = 4191 + (((Tc861avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc86 = 973.7 + (((Tc861avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync86 = 3.72 + (((Tc861avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc86 = 0.668 + (((Tc861avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc86 = 2.33 + (((Tc861avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc861avg <= 87.78 Then
cc86 = 4195 + (((Tc861avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc86 = 970.2 + (((Tc861avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync86 = 3.47 + (((Tc861avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc86 = 0.673 + (((Tc861avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc86 = 2.16 + (((Tc861avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc861avg <= 93.33 Then
cc86 = 4199 + (((Tc861avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc86 = 966.7 + (((Tc861avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync86 = 3.27 + (((Tc861avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc86 = 0.675 + (((Tc861avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc86 = 2.03 + (((Tc861avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc861avg <= 104.4 Then
cc86 = 4204 + (((Tc861avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc86 = 963.2 + (((Tc861avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync86 = 3.06 + (((Tc861avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc86 = 0.678 + (((Tc861avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc86 = 1.9 + (((Tc861avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc871avg <= 4.44 Then 'Eight flow channel,seventh partition
cc87 = 4225 + (((Tc871avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc87 = 999.8 + (((Tc871avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync87 = 0.00179 + (((Tc871avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc87 = 0.566 + (((Tc871avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc87 = 13.25 + (((Tc871avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc871avg <= 10 Then
cc87 = 4208 + (((Tc871avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc87 = 999.8 + (((Tc871avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync87 = 1.55 + (((Tc871avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc87 = 0.575 + (((Tc871avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc87 = 11.35 + (((Tc871avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc871avg <= 15.56 Then
cc87 = 4195 + (((Tc871avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc87 = 999.2 + (((Tc871avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync87 = 1.31 + (((Tc871avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc87 = 0.585 + (((Tc871avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc87 = 9.4 + (((Tc871avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc871avg <= 21.11 Then
cc87 = 4186 + (((Tc871avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc87 = 998.6 + (((Tc871avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync87 = 1.12 + (((Tc871avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc87 = 0.595 + (((Tc871avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc87 = 7.88 + (((Tc871avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc871avg <= 26.67 Then
cc87 = 4179 + (((Tc871avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc87 = 997.4 + (((Tc871avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync87 = 0.00098 + (((Tc871avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc87 = 0.604 + (((Tc871avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc87 = 6.78 + (((Tc871avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc871avg <= 32.22 Then
cc87 = 4179 + (((Tc871avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc87 = 995.8 + (((Tc871avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync87 = 8.6 + (((Tc871avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc87 = 0.614 + (((Tc871avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc87 = 5.85 + (((Tc871avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc871avg <= 37.78 Then
cc87 = 4174 + (((Tc871avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc87 = 994.9 + (((Tc871avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync87 = 7.65 + (((Tc871avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc87 = 0.623 + (((Tc871avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc87 = 5.12 + (((Tc871avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc871avg <= 43.33 Then
cc87 = 4174 + (((Tc871avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc87 = 993 + (((Tc871avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync87 = 6.82 + (((Tc871avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc87 = 0.63 + (((Tc871avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc87 = 4.53 + (((Tc871avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc871avg <= 48.89 Then
cc87 = 4174 + (((Tc871avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc87 = 990.6 + (((Tc871avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync87 = 6.16 + (((Tc871avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc87 = 0.637 + (((Tc871avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc87 = 4.04 + (((Tc871avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc871avg <= 54.44 Then
cc87 = 4174 + (((Tc871avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc87 = 998.8 + (((Tc871avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync87 = 5.62 + (((Tc871avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc87 = 0.644 + (((Tc871avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc87 = 3.64 + (((Tc871avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc871avg <= 60 Then
cc87 = 4179 + (((Tc871avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc87 = 985.7 + (((Tc871avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync87 = 5.13 + (((Tc871avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc87 = 0.649 + (((Tc871avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc87 = 3.3 + (((Tc871avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc871avg <= 65.55 Then
cc87 = 4179 + (((Tc871avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc87 = 983.3 + (((Tc871avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync87 = 4.71 + (((Tc871avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc87 = 0.654 + (((Tc871avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc87 = 3.01 + (((Tc871avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc871avg <= 71.11 Then
cc87 = 4183 + (((Tc871avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc87 = 980.3 + (((Tc871avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync87 = 4.3 + (((Tc871avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc87 = 0.659 + (((Tc871avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc87 = 2.73 + (((Tc871avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc871avg <= 76.67 Then
cc87 = 4186 + (((Tc871avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc87 = 977.3 + (((Tc871avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync87 = 4.01 + (((Tc871avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc87 = 0.665 + (((Tc871avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc87 = 2.53 + (((Tc871avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc871avg <= 82.22 Then
cc87 = 4191 + (((Tc871avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc87 = 973.7 + (((Tc871avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync87 = 3.72 + (((Tc871avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc87 = 0.668 + (((Tc871avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc87 = 2.33 + (((Tc871avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc871avg <= 87.78 Then
cc87 = 4195 + (((Tc871avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc87 = 970.2 + (((Tc871avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync87 = 3.47 + (((Tc871avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc87 = 0.673 + (((Tc871avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc87 = 2.16 + (((Tc871avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc871avg <= 93.33 Then
cc87 = 4199 + (((Tc871avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc87 = 966.7 + (((Tc871avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync87 = 3.27 + (((Tc871avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc87 = 0.675 + (((Tc871avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc87 = 2.03 + (((Tc871avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc871avg <= 104.4 Then
cc87 = 4204 + (((Tc871avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc87 = 963.2 + (((Tc871avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync87 = 3.06 + (((Tc871avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc87 = 0.678 + (((Tc871avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc87 = 1.9 + (((Tc871avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc881avg <= 4.44 Then 'Eight flow channel,eighth partition
cc88 = 4225 + (((Tc881avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc88 = 999.8 + (((Tc881avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync88 = 0.00179 + (((Tc881avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc88 = 0.566 + (((Tc881avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc88 = 13.25 + (((Tc881avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc881avg <= 10 Then
cc88 = 4208 + (((Tc881avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc88 = 999.8 + (((Tc881avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync88 = 1.55 + (((Tc881avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc88 = 0.575 + (((Tc881avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc88 = 11.35 + (((Tc881avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc881avg <= 15.56 Then
cc88 = 4195 + (((Tc881avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc88 = 999.2 + (((Tc881avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync88 = 1.31 + (((Tc881avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc88 = 0.585 + (((Tc881avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc88 = 9.4 + (((Tc881avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc881avg <= 21.11 Then
cc88 = 4186 + (((Tc881avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc88 = 998.6 + (((Tc881avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync88 = 1.12 + (((Tc881avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc88 = 0.595 + (((Tc881avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc88 = 7.88 + (((Tc881avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc881avg <= 26.67 Then
cc88 = 4179 + (((Tc881avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc88 = 997.4 + (((Tc881avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync88 = 0.00098 + (((Tc881avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc88 = 0.604 + (((Tc881avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc88 = 6.78 + (((Tc881avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc881avg <= 32.22 Then
cc88 = 4179 + (((Tc881avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc88 = 995.8 + (((Tc881avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync88 = 8.6 + (((Tc881avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc88 = 0.614 + (((Tc881avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc88 = 5.85 + (((Tc881avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc881avg <= 37.78 Then
cc88 = 4174 + (((Tc881avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc88 = 994.9 + (((Tc881avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync88 = 7.65 + (((Tc881avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc88 = 0.623 + (((Tc881avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc88 = 5.12 + (((Tc881avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc881avg <= 43.33 Then
cc88 = 4174 + (((Tc881avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc88 = 993 + (((Tc881avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync88 = 6.82 + (((Tc881avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc88 = 0.63 + (((Tc881avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc88 = 4.53 + (((Tc881avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc881avg <= 48.89 Then
cc88 = 4174 + (((Tc881avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc88 = 990.6 + (((Tc881avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync88 = 6.16 + (((Tc881avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc88 = 0.637 + (((Tc881avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc88 = 4.04 + (((Tc881avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc881avg <= 54.44 Then
cc88 = 4174 + (((Tc881avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc88 = 998.8 + (((Tc881avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync88 = 5.62 + (((Tc881avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc88 = 0.644 + (((Tc881avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc88 = 3.64 + (((Tc881avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc881avg <= 60 Then
cc88 = 4179 + (((Tc881avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc88 = 985.7 + (((Tc881avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync88 = 5.13 + (((Tc881avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc88 = 0.649 + (((Tc881avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc88 = 3.3 + (((Tc881avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc881avg <= 65.55 Then
cc88 = 4179 + (((Tc881avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc88 = 983.3 + (((Tc881avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync88 = 4.71 + (((Tc881avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc88 = 0.654 + (((Tc881avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc88 = 3.01 + (((Tc881avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc881avg <= 71.11 Then
cc88 = 4183 + (((Tc881avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc88 = 980.3 + (((Tc881avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync88 = 4.3 + (((Tc881avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc88 = 0.659 + (((Tc881avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc88 = 2.73 + (((Tc881avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc881avg <= 76.67 Then
cc88 = 4186 + (((Tc881avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc88 = 977.3 + (((Tc881avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync88 = 4.01 + (((Tc881avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc88 = 0.665 + (((Tc881avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc88 = 2.53 + (((Tc881avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc881avg <= 82.22 Then
cc88 = 4191 + (((Tc881avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc88 = 973.7 + (((Tc881avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync88 = 3.72 + (((Tc881avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc88 = 0.668 + (((Tc881avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc88 = 2.33 + (((Tc881avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc881avg <= 87.78 Then
cc88 = 4195 + (((Tc881avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc88 = 970.2 + (((Tc881avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync88 = 3.47 + (((Tc881avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc88 = 0.673 + (((Tc881avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc88 = 2.16 + (((Tc881avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc881avg <= 93.33 Then
cc88 = 4199 + (((Tc881avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc88 = 966.7 + (((Tc881avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync88 = 3.27 + (((Tc881avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc88 = 0.675 + (((Tc881avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc88 = 2.03 + (((Tc881avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc881avg <= 104.4 Then
cc88 = 4204 + (((Tc881avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc88 = 963.2 + (((Tc881avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync88 = 3.06 + (((Tc881avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc88 = 0.678 + (((Tc881avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc88 = 1.9 + (((Tc881avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If




If 0 <= Tc891avg <= 4.44 Then 'Eight flow channel,ninth partition
cc89 = 4225 + (((Tc891avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc89 = 999.8 + (((Tc891avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync89 = 0.00179 + (((Tc891avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc89 = 0.566 + (((Tc891avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc89 = 13.25 + (((Tc891avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc891avg <= 10 Then
cc89 = 4208 + (((Tc891avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc89 = 999.8 + (((Tc891avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync89 = 1.55 + (((Tc891avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc89 = 0.575 + (((Tc891avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc89 = 11.35 + (((Tc891avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc891avg <= 15.56 Then
cc89 = 4195 + (((Tc891avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc89 = 999.2 + (((Tc891avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync89 = 1.31 + (((Tc891avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc89 = 0.585 + (((Tc891avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc89 = 9.4 + (((Tc891avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc891avg <= 21.11 Then
cc89 = 4186 + (((Tc891avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc89 = 998.6 + (((Tc891avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync89 = 1.12 + (((Tc891avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc89 = 0.595 + (((Tc891avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc89 = 7.88 + (((Tc891avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc891avg <= 26.67 Then
cc89 = 4179 + (((Tc891avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc89 = 997.4 + (((Tc891avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync89 = 0.00098 + (((Tc891avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc89 = 0.604 + (((Tc891avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc89 = 6.78 + (((Tc891avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc891avg <= 32.22 Then
cc89 = 4179 + (((Tc891avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc89 = 995.8 + (((Tc891avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync89 = 8.6 + (((Tc891avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc89 = 0.614 + (((Tc891avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc89 = 5.85 + (((Tc891avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc891avg <= 37.78 Then
cc89 = 4174 + (((Tc891avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc89 = 994.9 + (((Tc891avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync89 = 7.65 + (((Tc891avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc89 = 0.623 + (((Tc891avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc89 = 5.12 + (((Tc891avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc891avg <= 43.33 Then
cc89 = 4174 + (((Tc891avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc89 = 993 + (((Tc891avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync89 = 6.82 + (((Tc891avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc89 = 0.63 + (((Tc891avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc89 = 4.53 + (((Tc891avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc891avg <= 48.89 Then
cc89 = 4174 + (((Tc891avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc89 = 990.6 + (((Tc891avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync89 = 6.16 + (((Tc891avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc89 = 0.637 + (((Tc891avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc89 = 4.04 + (((Tc891avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc891avg <= 54.44 Then
cc89 = 4174 + (((Tc891avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc89 = 998.8 + (((Tc891avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync89 = 5.62 + (((Tc891avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc89 = 0.644 + (((Tc891avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc89 = 3.64 + (((Tc891avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc891avg <= 60 Then
cc89 = 4179 + (((Tc891avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc89 = 985.7 + (((Tc891avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync89 = 5.13 + (((Tc891avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc89 = 0.649 + (((Tc891avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc89 = 3.3 + (((Tc891avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc891avg <= 65.55 Then
cc89 = 4179 + (((Tc891avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc89 = 983.3 + (((Tc891avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync89 = 4.71 + (((Tc891avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc89 = 0.654 + (((Tc891avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc89 = 3.01 + (((Tc891avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc891avg <= 71.11 Then
cc89 = 4183 + (((Tc891avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc89 = 980.3 + (((Tc891avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync89 = 4.3 + (((Tc891avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc89 = 0.659 + (((Tc891avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc89 = 2.73 + (((Tc891avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc891avg <= 76.67 Then
cc89 = 4186 + (((Tc891avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc89 = 977.3 + (((Tc891avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync89 = 4.01 + (((Tc891avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc89 = 0.665 + (((Tc891avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc89 = 2.53 + (((Tc891avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc891avg <= 82.22 Then
cc89 = 4191 + (((Tc891avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc89 = 973.7 + (((Tc891avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync89 = 3.72 + (((Tc891avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc89 = 0.668 + (((Tc891avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc89 = 2.33 + (((Tc891avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc891avg <= 87.78 Then
cc89 = 4195 + (((Tc891avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc89 = 970.2 + (((Tc891avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync89 = 3.47 + (((Tc891avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc89 = 0.673 + (((Tc891avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc89 = 2.16 + (((Tc891avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc891avg <= 93.33 Then
cc89 = 4199 + (((Tc891avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc89 = 966.7 + (((Tc891avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync89 = 3.27 + (((Tc891avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc89 = 0.675 + (((Tc891avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc89 = 2.03 + (((Tc891avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc891avg <= 104.4 Then
cc89 = 4204 + (((Tc891avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc89 = 963.2 + (((Tc891avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync89 = 3.06 + (((Tc891avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc89 = 0.678 + (((Tc891avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc89 = 1.9 + (((Tc891avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc8101avg <= 4.44 Then 'Eight flow channel,tenth partition
cc810 = 4225 + (((Tc8101avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc810 = 999.8 + (((Tc8101avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync810 = 0.00179 + (((Tc8101avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc810 = 0.566 + (((Tc8101avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc810 = 13.25 + (((Tc8101avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc8101avg <= 10 Then
cc810 = 4208 + (((Tc8101avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc810 = 999.8 + (((Tc8101avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync810 = 1.55 + (((Tc8101avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc810 = 0.575 + (((Tc8101avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc810 = 11.35 + (((Tc8101avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc8101avg <= 15.56 Then
cc810 = 4195 + (((Tc8101avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc810 = 999.2 + (((Tc8101avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync810 = 1.31 + (((Tc8101avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc810 = 0.585 + (((Tc8101avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc810 = 9.4 + (((Tc8101avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc8101avg <= 21.11 Then
cc810 = 4186 + (((Tc8101avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc810 = 998.6 + (((Tc8101avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync810 = 1.12 + (((Tc8101avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc810 = 0.595 + (((Tc8101avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc810 = 7.88 + (((Tc8101avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc8101avg <= 26.67 Then
cc810 = 4179 + (((Tc8101avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc810 = 997.4 + (((Tc8101avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync810 = 0.00098 + (((Tc8101avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc810 = 0.604 + (((Tc8101avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc810 = 6.78 + (((Tc8101avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc8101avg <= 32.22 Then
cc810 = 4179 + (((Tc8101avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc810 = 995.8 + (((Tc8101avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync810 = 8.6 + (((Tc8101avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc810 = 0.614 + (((Tc8101avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc810 = 5.85 + (((Tc8101avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc8101avg <= 37.78 Then
cc810 = 4174 + (((Tc8101avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc810 = 994.9 + (((Tc8101avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync810 = 7.65 + (((Tc8101avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc810 = 0.623 + (((Tc8101avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc810 = 5.12 + (((Tc8101avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc8101avg <= 43.33 Then
cc810 = 4174 + (((Tc8101avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc810 = 993 + (((Tc8101avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync810 = 6.82 + (((Tc8101avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc810 = 0.63 + (((Tc8101avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc810 = 4.53 + (((Tc8101avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc8101avg <= 48.89 Then
cc810 = 4174 + (((Tc8101avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc810 = 990.6 + (((Tc8101avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync810 = 6.16 + (((Tc8101avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc810 = 0.637 + (((Tc8101avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc810 = 4.04 + (((Tc8101avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc8101avg <= 54.44 Then
cc810 = 4174 + (((Tc8101avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc810 = 998.8 + (((Tc8101avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync810 = 5.62 + (((Tc8101avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc810 = 0.644 + (((Tc8101avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc810 = 3.64 + (((Tc8101avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc8101avg <= 60 Then
cc810 = 4179 + (((Tc8101avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc810 = 985.7 + (((Tc8101avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync810 = 5.13 + (((Tc8101avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc810 = 0.649 + (((Tc8101avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc810 = 3.3 + (((Tc8101avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc8101avg <= 65.55 Then
cc810 = 4179 + (((Tc8101avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc810 = 983.3 + (((Tc8101avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync810 = 4.71 + (((Tc8101avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc810 = 0.654 + (((Tc8101avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc810 = 3.01 + (((Tc8101avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc8101avg <= 71.11 Then
cc810 = 4183 + (((Tc8101avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc810 = 980.3 + (((Tc8101avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync810 = 4.3 + (((Tc8101avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc810 = 0.659 + (((Tc8101avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc810 = 2.73 + (((Tc8101avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc8101avg <= 76.67 Then
cc810 = 4186 + (((Tc8101avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc810 = 977.3 + (((Tc8101avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync810 = 4.01 + (((Tc8101avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc810 = 0.665 + (((Tc8101avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc810 = 2.53 + (((Tc8101avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc8101avg <= 82.22 Then
cc810 = 4191 + (((Tc8101avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc810 = 973.7 + (((Tc8101avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync810 = 3.72 + (((Tc8101avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc810 = 0.668 + (((Tc8101avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc810 = 2.33 + (((Tc8101avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc8101avg <= 87.78 Then
cc810 = 4195 + (((Tc8101avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc810 = 970.2 + (((Tc8101avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync810 = 3.47 + (((Tc8101avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc810 = 0.673 + (((Tc8101avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc810 = 2.16 + (((Tc8101avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc8101avg <= 93.33 Then
cc810 = 4199 + (((Tc8101avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc810 = 966.7 + (((Tc8101avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync810 = 3.27 + (((Tc8101avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc810 = 0.675 + (((Tc8101avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc810 = 2.03 + (((Tc8101avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc8101avg <= 104.4 Then
cc810 = 4204 + (((Tc8101avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc810 = 963.2 + (((Tc8101avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync810 = 3.06 + (((Tc8101avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc810 = 0.678 + (((Tc8101avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc810 = 1.9 + (((Tc8101avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 140 <= Th911avg <= 160 Then 'Ninth flow channel,first partition

ch91 = 2395 + (((Th911avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh91 = 816.94 + (((Th911avg - 140) / (160 - 140)) * (805 - 816.94))
dynh91 = 65.3552 + (((Th911avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh91 = 0.133 + (((Th911avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh91 = 116 + (((Th911avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th911avg <= 140 Then
ch91 = 2307 + (((Th911avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh91 = 828.96 + (((Th911avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh91 = 102.79104 + (((Th911avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh91 = 0.135 + (((Th911avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh91 = 175 + (((Th911avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th911avg <= 120 Then
ch91 = 2219 + (((Th911avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh91 = 840.01 + (((Th911avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh91 = 170.52203 + (((Th911avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh91 = 0.137 + (((Th911avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh91 = 276 + (((Th911avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th911avg <= 100 Then
ch91 = 2131 + (((Th911avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh91 = 852.02 + (((Th911avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh91 = 319.5075 + (((Th911avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh91 = 0.138 + (((Th911avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh91 = 490 + (((Th911avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th911avg <= 80 Then
ch91 = 2047 + (((Th911avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh91 = 864.04 + (((Th911avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh91 = 0.072492956 + (((Th911avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh91 = 0.14 + (((Th911avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh91 = 1050 + (((Th911avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th911avg <= 60 Then
ch91 = 1964 + (((Th911avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh91 = 876.05 + (((Th911avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh91 = 0.210252 + (((Th911avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh91 = 0.144 + (((Th911avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh91 = 2870 + (((Th911avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th911avg <= 40 Then
ch91 = 1880 + (((Th911avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh91 = 888.23 + (((Th911avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh91 = 0.799407 + (((Th911avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh91 = 0.145 + (((Th911avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh91 = 10400 + (((Th911avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th911avg <= 20 Then
ch91 = 1796 + (((Th911avg) / (20)) * (1880 - 1796))
rhoh91 = 899.12 + (((Th911avg) / (20)) * (888.23 - 899.12))
dynh91 = 3.84823 + (((Th911avg) / (20)) * (0.799407 - 3.84823))
kh91 = 0.147 + (((Th911avg) / (20)) * (0.145 - 0.147))
prh91 = 47100 + (((Th911avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th921avg <= 160 Then 'Ninth flow channel,second partition

ch92 = 2395 + (((Th921avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh92 = 816.94 + (((Th921avg - 140) / (160 - 140)) * (805 - 816.94))
dynh92 = 65.3552 + (((Th921avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh92 = 0.133 + (((Th921avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh92 = 116 + (((Th921avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th921avg <= 140 Then
ch92 = 2307 + (((Th921avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh92 = 828.96 + (((Th921avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh92 = 102.79104 + (((Th921avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh92 = 0.135 + (((Th921avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh92 = 175 + (((Th921avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th921avg <= 120 Then
ch92 = 2219 + (((Th921avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh92 = 840.01 + (((Th921avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh92 = 170.52203 + (((Th921avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh92 = 0.137 + (((Th921avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh92 = 276 + (((Th921avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th921avg <= 100 Then
ch92 = 2131 + (((Th921avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh92 = 852.02 + (((Th921avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh92 = 319.5075 + (((Th921avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh92 = 0.138 + (((Th921avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh92 = 490 + (((Th921avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th921avg <= 80 Then
ch92 = 2047 + (((Th921avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh92 = 864.04 + (((Th921avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh92 = 0.072492956 + (((Th921avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh92 = 0.14 + (((Th921avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh92 = 1050 + (((Th921avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th921avg <= 60 Then
ch92 = 1964 + (((Th921avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh92 = 876.05 + (((Th921avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh92 = 0.210252 + (((Th921avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh92 = 0.144 + (((Th921avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh92 = 2870 + (((Th921avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th921avg <= 40 Then
ch92 = 1880 + (((Th921avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh92 = 888.23 + (((Th921avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh92 = 0.799407 + (((Th921avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh92 = 0.145 + (((Th921avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh92 = 10400 + (((Th921avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th921avg <= 20 Then
ch92 = 1796 + (((Th921avg) / (20)) * (1880 - 1796))
rhoh92 = 899.12 + (((Th921avg) / (20)) * (888.23 - 899.12))
dynh92 = 3.84823 + (((Th921avg) / (20)) * (0.799407 - 3.84823))
kh92 = 0.147 + (((Th921avg) / (20)) * (0.145 - 0.147))
prh92 = 47100 + (((Th921avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th931avg <= 160 Then 'Ninth flow channel,Third partition

ch93 = 2395 + (((Th931avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh93 = 816.94 + (((Th931avg - 140) / (160 - 140)) * (805 - 816.94))
dynh93 = 65.3552 + (((Th931avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh93 = 0.133 + (((Th931avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh93 = 116 + (((Th931avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th931avg <= 140 Then
ch93 = 2307 + (((Th931avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh93 = 828.96 + (((Th931avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh93 = 102.79104 + (((Th931avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh93 = 0.135 + (((Th931avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh93 = 175 + (((Th931avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th931avg <= 120 Then
ch93 = 2219 + (((Th931avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh93 = 840.01 + (((Th931avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh93 = 170.52203 + (((Th931avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh93 = 0.137 + (((Th931avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh93 = 276 + (((Th931avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th931avg <= 100 Then
ch93 = 2131 + (((Th931avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh93 = 852.02 + (((Th931avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh93 = 319.5075 + (((Th931avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh93 = 0.138 + (((Th931avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh93 = 490 + (((Th931avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th931avg <= 80 Then
ch93 = 2047 + (((Th931avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh93 = 864.04 + (((Th931avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh93 = 0.072492956 + (((Th931avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh93 = 0.14 + (((Th931avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh93 = 1050 + (((Th931avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th931avg <= 60 Then
ch93 = 1964 + (((Th931avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh93 = 876.05 + (((Th931avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh93 = 0.210252 + (((Th931avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh93 = 0.144 + (((Th931avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh93 = 2870 + (((Th931avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th931avg <= 40 Then
ch93 = 1880 + (((Th931avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh93 = 888.23 + (((Th931avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh93 = 0.799407 + (((Th931avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh93 = 0.145 + (((Th931avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh93 = 10400 + (((Th931avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th931avg <= 20 Then
ch93 = 1796 + (((Th931avg) / (20)) * (1880 - 1796))
rhoh93 = 899.12 + (((Th931avg) / (20)) * (888.23 - 899.12))
dynh93 = 3.84823 + (((Th931avg) / (20)) * (0.799407 - 3.84823))
kh93 = 0.147 + (((Th931avg) / (20)) * (0.145 - 0.147))
prh93 = 47100 + (((Th931avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th941avg <= 160 Then 'Ninth flow channel,fourth partition
ch94 = 2395 + (((Th941avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh94 = 816.94 + (((Th941avg - 140) / (160 - 140)) * (805 - 816.94))
dynh94 = 65.3552 + (((Th941avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh94 = 0.133 + (((Th941avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh94 = 116 + (((Th941avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th941avg <= 140 Then
ch94 = 2307 + (((Th941avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh94 = 828.96 + (((Th941avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh94 = 102.79104 + (((Th941avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh94 = 0.135 + (((Th941avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh94 = 175 + (((Th941avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th941avg <= 120 Then
ch94 = 2219 + (((Th941avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh94 = 840.01 + (((Th941avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh94 = 170.52203 + (((Th941avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh94 = 0.137 + (((Th941avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh94 = 276 + (((Th941avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th941avg <= 100 Then
ch94 = 2131 + (((Th941avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh94 = 852.02 + (((Th941avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh94 = 319.5075 + (((Th941avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh94 = 0.138 + (((Th941avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh94 = 490 + (((Th941avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th941avg <= 80 Then
ch94 = 2047 + (((Th941avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh94 = 864.04 + (((Th941avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh94 = 0.072492956 + (((Th941avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh94 = 0.14 + (((Th941avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh94 = 1050 + (((Th941avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th941avg <= 60 Then
ch94 = 1964 + (((Th941avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh94 = 876.05 + (((Th941avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh94 = 0.210252 + (((Th941avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh94 = 0.144 + (((Th941avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh94 = 2870 + (((Th941avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th941avg <= 40 Then
ch94 = 1880 + (((Th941avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh94 = 888.23 + (((Th941avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh94 = 0.799407 + (((Th941avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh94 = 0.145 + (((Th941avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh94 = 10400 + (((Th941avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th941avg <= 20 Then
ch94 = 1796 + (((Th941avg) / (20)) * (1880 - 1796))
rhoh94 = 899.12 + (((Th941avg) / (20)) * (888.23 - 899.12))
dynh94 = 3.84823 + (((Th941avg) / (20)) * (0.799407 - 3.84823))
kh94 = 0.147 + (((Th941avg) / (20)) * (0.145 - 0.147))
prh94 = 47100 + (((Th941avg) / (20)) * (10400 - 47100))


End If
End If
End If

If 340 <= Th951avg <= 160 Then 'Ninth flow channel,fifth partition
ch95 = 2395 + (((Th951avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh95 = 816.94 + (((Th951avg - 140) / (160 - 140)) * (805 - 816.94))
dynh95 = 65.3552 + (((Th951avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh95 = 0.133 + (((Th951avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh95 = 116 + (((Th951avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th951avg <= 140 Then
ch95 = 2307 + (((Th951avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh95 = 828.96 + (((Th951avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh95 = 102.79104 + (((Th951avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh95 = 0.135 + (((Th951avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh95 = 175 + (((Th951avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th951avg <= 120 Then
ch95 = 2219 + (((Th951avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh95 = 840.01 + (((Th951avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh95 = 170.52203 + (((Th951avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh95 = 0.137 + (((Th951avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh95 = 276 + (((Th951avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th951avg <= 100 Then
ch95 = 2131 + (((Th951avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh95 = 852.02 + (((Th951avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh95 = 319.5075 + (((Th951avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh95 = 0.138 + (((Th951avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh95 = 490 + (((Th951avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th951avg <= 80 Then
ch95 = 2047 + (((Th951avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh95 = 864.04 + (((Th951avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh95 = 0.072492956 + (((Th951avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh95 = 0.14 + (((Th951avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh95 = 1050 + (((Th951avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th951avg <= 60 Then
ch95 = 1964 + (((Th951avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh95 = 876.05 + (((Th951avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh95 = 0.210252 + (((Th951avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh95 = 0.144 + (((Th951avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh95 = 2870 + (((Th951avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th951avg <= 40 Then
ch95 = 1880 + (((Th951avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh95 = 888.23 + (((Th951avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh95 = 0.799407 + (((Th951avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh95 = 0.145 + (((Th951avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh95 = 10400 + (((Th951avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th951avg <= 20 Then
ch95 = 1796 + (((Th951avg) / (20)) * (1880 - 1796))
rhoh95 = 899.12 + (((Th951avg) / (20)) * (888.23 - 899.12))
dynh95 = 3.84823 + (((Th951avg) / (20)) * (0.799407 - 3.84823))
kh95 = 0.147 + (((Th951avg) / (20)) * (0.145 - 0.147))
prh95 = 47100 + (((Th951avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th961avg <= 160 Then 'Ninth flow channel,sixth partition
ch96 = 2395 + (((Th961avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh96 = 816.94 + (((Th961avg - 140) / (160 - 140)) * (805 - 816.94))
dynh96 = 65.3552 + (((Th961avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh96 = 0.133 + (((Th961avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh96 = 116 + (((Th961avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th961avg <= 140 Then
ch96 = 2307 + (((Th961avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh96 = 828.96 + (((Th961avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh96 = 102.79104 + (((Th961avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh96 = 0.135 + (((Th961avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh96 = 175 + (((Th961avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th961avg <= 120 Then
ch96 = 2219 + (((Th961avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh96 = 840.01 + (((Th961avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh96 = 170.52203 + (((Th961avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh96 = 0.137 + (((Th961avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh96 = 276 + (((Th961avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th961avg <= 100 Then
ch96 = 2131 + (((Th961avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh96 = 852.02 + (((Th961avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh96 = 319.5075 + (((Th961avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh96 = 0.138 + (((Th961avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh96 = 490 + (((Th961avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th961avg <= 80 Then
ch96 = 2047 + (((Th961avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh96 = 864.04 + (((Th961avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh96 = 0.072492956 + (((Th961avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh96 = 0.14 + (((Th961avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh96 = 1050 + (((Th961avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th961avg <= 60 Then
ch96 = 1964 + (((Th961avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh96 = 876.05 + (((Th961avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh96 = 0.210252 + (((Th961avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh96 = 0.144 + (((Th961avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh96 = 2870 + (((Th961avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th961avg <= 40 Then
ch96 = 1880 + (((Th961avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh96 = 888.23 + (((Th961avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh96 = 0.799407 + (((Th961avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh96 = 0.145 + (((Th961avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh96 = 10400 + (((Th961avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th961avg <= 20 Then
ch96 = 1796 + (((Th961avg) / (20)) * (1880 - 1796))
rhoh96 = 899.12 + (((Th961avg) / (20)) * (888.23 - 899.12))
dynh96 = 3.84823 + (((Th961avg) / (20)) * (0.799407 - 3.84823))
kh96 = 0.147 + (((Th961avg) / (20)) * (0.145 - 0.147))
prh96 = 47100 + (((Th961avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th971avg <= 160 Then 'Ninth flow channel,seventh partition
ch97 = 2395 + (((Th971avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh97 = 816.94 + (((Th971avg - 140) / (160 - 140)) * (805 - 816.94))
dynh97 = 65.3552 + (((Th971avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh97 = 0.133 + (((Th971avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh97 = 116 + (((Th971avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th971avg <= 140 Then
ch97 = 2307 + (((Th971avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh97 = 828.96 + (((Th971avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh97 = 102.79104 + (((Th971avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh97 = 0.135 + (((Th971avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh97 = 175 + (((Th971avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th971avg <= 120 Then
ch97 = 2219 + (((Th971avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh97 = 840.01 + (((Th971avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh97 = 170.52203 + (((Th971avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh97 = 0.137 + (((Th971avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh97 = 276 + (((Th971avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th971avg <= 100 Then
ch97 = 2131 + (((Th971avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh97 = 852.02 + (((Th971avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh97 = 319.5075 + (((Th971avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh97 = 0.138 + (((Th971avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh97 = 490 + (((Th971avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th971avg <= 80 Then
ch97 = 2047 + (((Th971avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh97 = 864.04 + (((Th971avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh97 = 0.072492956 + (((Th971avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh97 = 0.14 + (((Th971avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh97 = 1050 + (((Th971avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th971avg <= 60 Then
ch97 = 1964 + (((Th971avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh97 = 876.05 + (((Th971avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh97 = 0.210252 + (((Th971avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh97 = 0.144 + (((Th971avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh97 = 2870 + (((Th971avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th971avg <= 40 Then
ch97 = 1880 + (((Th971avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh97 = 888.23 + (((Th971avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh97 = 0.799407 + (((Th971avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh97 = 0.145 + (((Th971avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh97 = 10400 + (((Th971avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th971avg <= 20 Then
ch97 = 1796 + (((Th971avg) / (20)) * (1880 - 1796))
rhoh97 = 899.12 + (((Th971avg) / (20)) * (888.23 - 899.12))
dynh97 = 3.84823 + (((Th971avg) / (20)) * (0.799407 - 3.84823))
kh97 = 0.147 + (((Th971avg) / (20)) * (0.145 - 0.147))
prh97 = 47100 + (((Th971avg) / (20)) * (10400 - 47100))

End If
End If
End If


If 140 <= Th981avg <= 160 Then 'Ninth flow channel,eight partition
ch98 = 2395 + (((Th981avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh98 = 816.94 + (((Th981avg - 140) / (160 - 140)) * (805 - 816.94))
dynh98 = 65.3552 + (((Th981avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh98 = 0.133 + (((Th981avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh98 = 116 + (((Th981avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th981avg <= 140 Then
ch98 = 2307 + (((Th981avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh98 = 828.96 + (((Th981avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh98 = 102.79104 + (((Th981avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh98 = 0.135 + (((Th981avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh98 = 175 + (((Th981avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th981avg <= 120 Then
ch98 = 2219 + (((Th981avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh98 = 840.01 + (((Th981avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh98 = 170.52203 + (((Th981avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh98 = 0.137 + (((Th981avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh98 = 276 + (((Th981avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th981avg <= 100 Then
ch98 = 2131 + (((Th981avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh98 = 852.02 + (((Th981avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh98 = 319.5075 + (((Th981avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh98 = 0.138 + (((Th981avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh98 = 490 + (((Th981avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th981avg <= 80 Then
ch98 = 2047 + (((Th981avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh98 = 864.04 + (((Th981avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh98 = 0.072492956 + (((Th981avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh98 = 0.14 + (((Th981avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh98 = 1050 + (((Th981avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th981avg <= 60 Then
ch98 = 1964 + (((Th981avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh98 = 876.05 + (((Th981V - 40) / (60 - 40)) * (864.04 - 876.05))
dynh98 = 0.210252 + (((Th981avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh98 = 0.144 + (((Th981avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh98 = 2870 + (((Th981avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th981avg <= 40 Then
ch98 = 1880 + (((Th981avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh98 = 888.23 + (((Th981avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh98 = 0.799407 + (((Th981avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh98 = 0.145 + (((Th981avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh98 = 10400 + (((Th981avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th981avg <= 20 Then
ch98 = 1796 + (((Th981avg) / (20)) * (1880 - 1796))
rhoh98 = 899.12 + (((Th981avg) / (20)) * (888.23 - 899.12))
dynh98 = 3.84823 + (((Th981avg) / (20)) * (0.799407 - 3.84823))
kh98 = 0.147 + (((Th981avg) / (20)) * (0.145 - 0.147))
prh98 = 47100 + (((Th981avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th991avg <= 160 Then 'Ninth flow channel,ninth partition
ch99 = 2395 + (((Th991avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh99 = 816.94 + (((Th991avg - 140) / (160 - 140)) * (805 - 816.94))
dynh99 = 65.3552 + (((Th991avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh99 = 0.133 + (((Th991avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh99 = 116 + (((Th991avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th991avg <= 140 Then
ch99 = 2307 + (((Th991avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh99 = 828.96 + (((Th991avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh99 = 102.79104 + (((Th991avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh99 = 0.135 + (((Th991avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh99 = 175 + (((Th991avg - 120) / (140 - 120)) * (116 - 175))
ElseIf 100 <= Th991avg <= 120 Then
ch99 = 2219 + (((Th991avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh99 = 840.01 + (((Th991avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh99 = 170.52203 + (((Th991avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh99 = 0.137 + (((Th991avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh99 = 276 + (((Th991avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th991avg <= 100 Then
ch99 = 2131 + (((Th991avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh99 = 852.02 + (((Th991avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh79 = 319.5075 + (((Th991avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh99 = 0.138 + (((Th991avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh99 = 490 + (((Th991avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th991avg <= 80 Then
ch99 = 2047 + (((Th991avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh99 = 864.04 + (((Th991avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh99 = 0.072492956 + (((Th991avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh99 = 0.14 + (((Th991avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh99 = 1050 + (((Th991avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th991avg <= 60 Then
ch99 = 1964 + (((Th991avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh99 = 876.05 + (((Th991avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh99 = 0.210252 + (((Th991avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh99 = 0.144 + (((Th991avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh99 = 2870 + (((Th991avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th991avg <= 40 Then
ch99 = 1880 + (((Th991avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh99 = 888.23 + (((Th991avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh99 = 0.799407 + (((Th991avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh99 = 0.145 + (((Th991avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh99 = 10400 + (((Th991avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th991avg <= 20 Then
ch99 = 1796 + (((Th991avg) / (20)) * (1880 - 1796))
rhoh99 = 899.12 + (((Th991avg) / (20)) * (888.23 - 899.12))
dynh99 = 3.84823 + (((Th991avg) / (20)) * (0.799407 - 3.84823))
kh99 = 0.147 + (((Th991avg) / (20)) * (0.145 - 0.147))
prh99 = 47100 + (((Th991avg) / (20)) * (10400 - 47100))

End If
End If
End If

If 140 <= Th9101avg <= 160 Then 'Ninth flow channel,Tenth partition
ch910 = 2395 + (((Th9101avg - 140) / (160 - 140)) * (2483 - 2395))
rhoh910 = 816.94 + (((Th9101avg - 140) / (160 - 140)) * (805 - 816.94))
dynh910 = 65.3552 + (((Th9101avg - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh910 = 0.133 + (((Th9101avg - 140) / (160 - 140)) * (0.132 - 0.133))
prh910 = 116 + (((Th9101avg - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th9101avg <= 140 Then
ch910 = 2307 + (((Th9101avg - 120) / (140 - 120)) * (2395 - 2307))
rhoh910 = 828.96 + (((Th9101avg - 120) / (140 - 120)) * (816.94 - 828.96))
dynh910 = 102.79104 + (((Th9101avg - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh910 = 0.135 + (((Th9101avg - 120) / (140 - 120)) * (0.133 - 0.135))
prh910 = 175 + (((Th9101avg - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th9101avg <= 120 Then
ch910 = 2219 + (((Th9101avg - 100) / (120 - 100)) * (2307 - 2219))
rhoh910 = 840.01 + (((Th9101avg - 100) / (120 - 100)) * (828.96 - 840.01))
dynh910 = 170.52203 + (((Th9101avg - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh910 = 0.137 + (((Th9101avg - 100) / (120 - 100)) * (0.135 - 0.137))
prh910 = 276 + (((Th9101avg - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th9101avg <= 100 Then
ch910 = 2131 + (((Th9101avg - 80) / (100 - 80)) * (2219 - 2131))
rhoh910 = 852.02 + (((Th9101avg - 80) / (100 - 80)) * (840.01 - 852.02))
dynh910 = 319.5075 + (((Th9101avg - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh910 = 0.138 + (((Th9101avg - 80) / (100 - 80)) * (0.137 - 0.138))
prh910 = 490 + (((Th9101avg - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th9101avg <= 80 Then
ch910 = 2047 + (((Th9101avg - 60) / (80 - 60)) * (2131 - 2047))
rhoh910 = 864.04 + (((Th9101avg - 60) / (80 - 60)) * (852.02 - 864.04))
dynh910 = 0.072492956 + (((Th9101avg - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh910 = 0.14 + (((Th9101avg - 60) / (80 - 60)) * (0.138 - 0.14))
prh910 = 1050 + (((Th9101avg - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th9101avg <= 60 Then
ch910 = 1964 + (((Th9101avg - 40) / (60 - 40)) * (2047 - 1964))
rhoh910 = 876.05 + (((Th9101avg - 40) / (60 - 40)) * (864.04 - 876.05))
dynh910 = 0.210252 + (((Th9101avg - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh910 = 0.144 + (((Th9101avg - 40) / (60 - 40)) * (0.14 - 0.144))
prh910 = 2870 + (((Th9101avg - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th9101avg <= 40 Then
ch910 = 1880 + (((Th9101avg - 20) / (40 - 20)) * (1964 - 1880))
rhoh910 = 888.23 + (((Th9101avg - 20) / (40 - 20)) * (876.05 - 888.23))
dynh910 = 0.799407 + (((Th9101avg - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh910 = 0.145 + (((Th9101avg - 20) / (40 - 20)) * (0.144 - 0.145))
prh910 = 10400 + (((Th9101avg - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th9101avg <= 20 Then
ch910 = 1796 + (((Th9101avg) / (20)) * (1880 - 1796))
rhoh910 = 899.12 + (((Th9101avg) / (20)) * (888.23 - 899.12))
dynh910 = 3.84823 + (((Th9101avg) / (20)) * (0.799407 - 3.84823))
kh910 = 0.147 + (((Th9101avg) / (20)) * (0.145 - 0.147))
prh910 = 47100 + (((Th9101avg) / (20)) * (10400 - 47100))


End If
End If
End If


If 140 <= Th9111 <= 160 Then
ch911 = 2395 + (((Th9111 - 140) / (160 - 140)) * (2483 - 2395))
rhoh911 = 816.94 + (((Th9111 - 140) / (160 - 140)) * (805 - 816.94))
dynh911 = 65.3552 + (((Th9111 - 140) / (160 - 140)) * (45.12984 - 65.3552))
kh911 = 0.133 + (((Th9111 - 140) / (160 - 140)) * (0.132 - 0.133))
prh911 = 116 + (((Th9111 - 140) / (160 - 140)) * (84 - 116))

ElseIf 120 <= Th9111 <= 140 Then
ch911 = 2307 + (((Th9111 - 120) / (140 - 120)) * (2395 - 2307))
rhoh911 = 828.96 + (((Th9111 - 120) / (140 - 120)) * (816.94 - 828.96))
dynh911 = 102.79104 + (((Th9111 - 120) / (140 - 120)) * (65.3552 - 102.79104))
kh911 = 0.135 + (((Th9111 - 120) / (140 - 120)) * (0.133 - 0.135))
prh911 = 175 + (((Th9111 - 120) / (140 - 120)) * (116 - 175))

ElseIf 100 <= Th9111 <= 120 Then
ch911 = 2219 + (((Th9111 - 100) / (120 - 100)) * (2307 - 2219))
rhoh911 = 840.01 + (((Th9111 - 100) / (120 - 100)) * (828.96 - 840.01))
dynh911 = 170.52203 + (((Th9111 - 100) / (120 - 100)) * (102.79104 - 170.52203))
kh911 = 0.137 + (((Th9111 - 100) / (120 - 100)) * (0.135 - 0.137))
prh911 = 276 + (((Th9111 - 100) / (120 - 100)) * (175 - 276))

ElseIf 80 <= Th9111 <= 100 Then
ch911 = 2131 + (((Th9111 - 80) / (100 - 80)) * (2219 - 2131))
rhoh911 = 852.02 + (((Th9111 - 80) / (100 - 80)) * (840.01 - 852.02))
dynh911 = 319.5075 + (((Th9111 - 80) / (100 - 80)) * (170.52203 - 319.5075))
kh911 = 0.138 + (((Th9111 - 80) / (100 - 80)) * (0.137 - 0.138))
prh911 = 490 + (((Th9111 - 80) / (100 - 80)) * (276 - 490))

ElseIf 60 <= Th9111 <= 80 Then
ch911 = 2047 + (((Th9111 - 60) / (80 - 60)) * (2131 - 2047))
rhoh911 = 864.04 + (((Th9111 - 60) / (80 - 60)) * (852.02 - 864.04))
dynh911 = 0.072492956 + (((Th9111 - 60) / (80 - 60)) * (319.5075 - 0.072492956))
kh911 = 0.14 + (((Th9111 - 60) / (80 - 60)) * (0.138 - 0.14))
prh911 = 1050 + (((Th9111 - 60) / (80 - 60)) * (490 - 1050))

ElseIf 40 <= Th9111 <= 60 Then
ch911 = 1964 + (((Th9111 - 40) / (60 - 40)) * (2047 - 1964))
rhoh911 = 876.05 + (((Th9111 - 40) / (60 - 40)) * (864.04 - 876.05))
dynh911 = 0.210252 + (((Th9111 - 40) / (60 - 40)) * (0.072492956 - 0.210252))
kh911 = 0.144 + (((Th9111 - 40) / (60 - 40)) * (0.14 - 0.144))
prh911 = 2870 + (((Th9111 - 40) / (60 - 40)) * (1050 - 2870))

ElseIf 20 <= Th9111 <= 40 Then
ch911 = 1880 + (((Th9111 - 20) / (40 - 20)) * (1964 - 1880))
rhoh911 = 888.23 + (((Th9111 - 20) / (40 - 20)) * (876.05 - 888.23))
dynh911 = 0.799407 + (((Th9111 - 20) / (40 - 20)) * (0.210252 - 0.799407))
kh911 = 0.145 + (((Th9111 - 20) / (40 - 20)) * (0.144 - 0.145))
prh911 = 10400 + (((Th9111 - 20) / (40 - 20)) * (2870 - 10400))

ElseIf 0 <= Th9111 <= 20 Then
ch911 = 1796 + (((Th9111) / (20)) * (1880 - 1796))
rhoh911 = 899.12 + (((Th9111) / (20)) * (888.23 - 899.12))
dynh911 = 3.84823 + (((Th9111) / (20)) * (0.799407 - 3.84823))
kh911 = 0.147 + (((Th9111) / (20)) * (0.145 - 0.147))
prh911 = 47100 + (((Th9111) / (20)) * (10400 - 47100))


End If
End If
End If



If 0 <= Tc1011avg <= 4.44 Then 'Tenth flow channel,first partition
cc101 = 4225 + (((Tc1011avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc101 = 999.8 + (((Tc1011avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync101 = 0.00179 + (((Tc1011avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc101 = 0.566 + (((Tc1011avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc101 = 13.25 + (((Tc1011avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1011avg <= 10 Then
cc101 = 4208 + (((Tc1011avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc101 = 999.8 + (((Tc1011avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync101 = 1.55 + (((Tc1011avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc101 = 0.575 + (((Tc1011avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc101 = 11.35 + (((Tc1011avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1011avg <= 15.56 Then
cc101 = 4195 + (((Tc1011avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc101 = 999.2 + (((Tc1011avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync101 = 1.31 + (((Tc1011avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc101 = 0.585 + (((Tc1011avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc101 = 9.4 + (((Tc1011avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1011avg <= 21.11 Then
cc101 = 4186 + (((Tc1011avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc101 = 998.6 + (((Tc1011avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync101 = 1.12 + (((Tc1011avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc101 = 0.595 + (((Tc1011avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc101 = 7.88 + (((Tc1011avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1011avg <= 26.67 Then
cc101 = 4179 + (((Tc1011avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc101 = 997.4 + (((Tc1011avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync101 = 0.00098 + (((Tc1011avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc101 = 0.604 + (((Tc1011avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc101 = 6.78 + (((Tc1011avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1011avg <= 32.22 Then
cc101 = 4179 + (((Tc1011avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc101 = 995.8 + (((Tc1011avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync101 = 8.6 + (((Tc1011avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc101 = 0.614 + (((Tc1011avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc101 = 5.85 + (((Tc1011avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1011avg <= 37.78 Then
cc101 = 4174 + (((Tc1011avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc101 = 994.9 + (((Tc1011avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync101 = 7.65 + (((Tc1011avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc101 = 0.623 + (((Tc1011avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc101 = 5.12 + (((Tc1011avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1011avg <= 43.33 Then
cc101 = 4174 + (((Tc1011avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc101 = 993 + (((Tc1011avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync101 = 6.82 + (((Tc1011avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc101 = 0.63 + (((Tc1011avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc101 = 4.53 + (((Tc1011avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1011avg <= 48.89 Then
cc101 = 4174 + (((Tc1011avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc101 = 990.6 + (((Tc1011avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync101 = 6.16 + (((Tc1011avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc101 = 0.637 + (((Tc1011avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc101 = 4.04 + (((Tc1011avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1011avg <= 54.44 Then
cc101 = 4174 + (((Tc1011avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc101 = 998.8 + (((Tc1011avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync101 = 5.62 + (((Tc1011avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc101 = 0.644 + (((Tc1011avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc101 = 3.64 + (((Tc1011avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1011avg <= 60 Then
cc101 = 4179 + (((Tc1011avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc101 = 985.7 + (((Tc1011avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync101 = 5.13 + (((Tc1011avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc101 = 0.649 + (((Tc1011avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc101 = 3.3 + (((Tc1011avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1011avg <= 65.55 Then
cc101 = 4179 + (((Tc1011avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc101 = 983.3 + (((Tc1011avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync101 = 4.71 + (((Tc1011avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc101 = 0.654 + (((Tc1011avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc101 = 3.01 + (((Tc1011avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1011avg <= 71.11 Then
cc101 = 4183 + (((Tc1011avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc101 = 980.3 + (((Tc1011avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync101 = 4.3 + (((Tc1011avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc101 = 0.659 + (((Tc1011avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc101 = 2.73 + (((Tc1011avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1011avg <= 76.67 Then
cc101 = 4186 + (((Tc1011avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc101 = 977.3 + (((Tc1011avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync101 = 4.01 + (((Tc1011avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc101 = 0.665 + (((Tc1011avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc101 = 2.53 + (((Tc1011avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1011avg <= 82.22 Then
cc101 = 4191 + (((Tc1011avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc101 = 973.7 + (((Tc1011avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync101 = 3.72 + (((Tc1011avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc101 = 0.668 + (((Tc1011avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc101 = 2.33 + (((Tc1011avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1011avg <= 87.78 Then
cc101 = 4195 + (((Tc1011avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc101 = 970.2 + (((Tc1011avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync101 = 3.47 + (((Tc1011avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc101 = 0.673 + (((Tc1011avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc101 = 2.16 + (((Tc1011avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1011avg <= 93.33 Then
cc101 = 4199 + (((Tc1011avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc101 = 966.7 + (((Tc1011avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync101 = 3.27 + (((Tc1011avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc101 = 0.675 + (((Tc1011avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc101 = 2.03 + (((Tc1011avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1011avg <= 104.4 Then
cc101 = 4204 + (((Tc1011avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc101 = 963.2 + (((Tc1011avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync101 = 3.06 + (((Tc1011avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc101 = 0.678 + (((Tc1011avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc101 = 1.9 + (((Tc1011avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc1021avg <= 4.44 Then 'Tenth flow channel,second partition
cc102 = 4225 + (((Tc1021avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc102 = 999.8 + (((Tc1021avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync102 = 0.00179 + (((Tc1021avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc102 = 0.566 + (((Tc1021avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc102 = 13.25 + (((Tc1021avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1021avg <= 10 Then
cc102 = 4208 + (((Tc1021avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc102 = 999.8 + (((Tc1021avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync102 = 1.55 + (((Tc1021avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc102 = 0.575 + (((Tc1021avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc102 = 11.35 + (((Tc1021avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1021avg <= 15.56 Then
cc102 = 4195 + (((Tc1021avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc102 = 999.2 + (((Tc1021avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync102 = 1.31 + (((Tc1021avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc102 = 0.585 + (((Tc1021avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc102 = 9.4 + (((Tc1021avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1021avg <= 21.11 Then
cc102 = 4186 + (((Tc1021avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc102 = 998.6 + (((Tc1021avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync102 = 1.12 + (((Tc1021avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc102 = 0.595 + (((Tc1021avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc102 = 7.88 + (((Tc1021avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1021avg <= 26.67 Then
cc102 = 4179 + (((Tc1021avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc102 = 997.4 + (((Tc1021avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync102 = 0.00098 + (((Tc1021avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc102 = 0.604 + (((Tc1021avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc102 = 6.78 + (((Tc1021avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1021avg <= 32.22 Then
cc102 = 4179 + (((Tc1021avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc102 = 995.8 + (((Tc1021avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync102 = 8.6 + (((Tc1021avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc102 = 0.614 + (((Tc1021avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc102 = 5.85 + (((Tc1021avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1021avg <= 37.78 Then
cc102 = 4174 + (((Tc1021avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc102 = 994.9 + (((Tc1021avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync102 = 7.65 + (((Tc1021avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc102 = 0.623 + (((Tc1021avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc102 = 5.12 + (((Tc1021avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1021avg <= 43.33 Then
cc102 = 4174 + (((Tc1021avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc102 = 993 + (((Tc1021avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync102 = 6.82 + (((Tc1021avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc102 = 0.63 + (((Tc1021avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc102 = 4.53 + (((Tc1021avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1021avg <= 48.89 Then
cc102 = 4174 + (((Tc1021avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc102 = 990.6 + (((Tc1021avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync102 = 6.16 + (((Tc1021avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc102 = 0.637 + (((Tc1021avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc102 = 4.04 + (((Tc1021avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1021avg <= 54.44 Then
cc102 = 4174 + (((Tc1021avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc102 = 998.8 + (((Tc1021avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync102 = 5.62 + (((Tc1021avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc102 = 0.644 + (((Tc1021avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc102 = 3.64 + (((Tc1021avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1021avg <= 60 Then
cc102 = 4179 + (((Tc1021avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc102 = 985.7 + (((Tc1021avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync102 = 5.13 + (((Tc1021avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc102 = 0.649 + (((Tc1021avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc102 = 3.3 + (((Tc1021avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1021avg <= 65.55 Then
cc102 = 4179 + (((Tc1021avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc102 = 983.3 + (((Tc1021avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync102 = 4.71 + (((Tc1021avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc102 = 0.654 + (((Tc1021avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc102 = 3.01 + (((Tc1021avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1021avg <= 71.11 Then
cc102 = 4183 + (((Tc1021avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc102 = 980.3 + (((Tc1021avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync102 = 4.3 + (((Tc1021avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc102 = 0.659 + (((Tc1021avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc102 = 2.73 + (((Tc1021avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1021avg <= 76.67 Then
cc102 = 4186 + (((Tc1021avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc102 = 977.3 + (((Tc1021avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync102 = 4.01 + (((Tc1021avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc102 = 0.665 + (((Tc1021avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc102 = 2.53 + (((Tc1021avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1021avg <= 82.22 Then
cc102 = 4191 + (((Tc1021avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc102 = 973.7 + (((Tc1021avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync102 = 3.72 + (((Tc1021avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc102 = 0.668 + (((Tc1021avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc102 = 2.33 + (((Tc1021avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1021avg <= 87.78 Then
cc102 = 4195 + (((Tc1021avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc102 = 970.2 + (((Tc1021avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync102 = 3.47 + (((Tc1021avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc102 = 0.673 + (((Tc1021avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc102 = 2.16 + (((Tc1021avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1021avg <= 93.33 Then
cc102 = 4199 + (((Tc1021avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc102 = 966.7 + (((Tc1021avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync102 = 3.27 + (((Tc1021avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc102 = 0.675 + (((Tc1021avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc102 = 2.03 + (((Tc1021avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1021avg <= 104.4 Then
cc102 = 4204 + (((Tc1021avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc102 = 963.2 + (((Tc1021avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync102 = 3.06 + (((Tc1021avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc102 = 0.678 + (((Tc1021avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc102 = 1.9 + (((Tc1021avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If



If 0 <= Tc1031avg <= 4.44 Then 'Tenth flow channel,Third partition
cc103 = 4225 + (((Tc1031avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc103 = 999.8 + (((Tc1031avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync103 = 0.00179 + (((Tc1031avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc103 = 0.566 + (((Tc1031avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc103 = 13.25 + (((Tc1031avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1031avg <= 10 Then
cc103 = 4208 + (((Tc1031avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc103 = 999.8 + (((Tc1031avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync103 = 1.55 + (((Tc1031avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc103 = 0.575 + (((Tc1031avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc103 = 11.35 + (((Tc1031avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1031avg <= 15.56 Then
cc103 = 4195 + (((Tc1031avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc103 = 999.2 + (((Tc1031avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync103 = 1.31 + (((Tc1031avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc103 = 0.585 + (((Tc1031avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc103 = 9.4 + (((Tc1031avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1031avg <= 21.11 Then
cc103 = 4186 + (((Tc1031avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc103 = 998.6 + (((Tc1031avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync103 = 1.12 + (((Tc1031avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc103 = 0.595 + (((Tc1031avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc103 = 7.88 + (((Tc1031avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1031avg <= 26.67 Then
cc103 = 4179 + (((Tc1031avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc103 = 997.4 + (((Tc1031avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync103 = 0.00098 + (((Tc1031avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc103 = 0.604 + (((Tc1031avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc103 = 6.78 + (((Tc1031avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1031avg <= 32.22 Then
cc103 = 4179 + (((Tc1031avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc103 = 995.8 + (((Tc1031avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync103 = 8.6 + (((Tc1031avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc103 = 0.614 + (((Tc1031avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc103 = 5.85 + (((Tc1031avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1031avg <= 37.78 Then
cc103 = 4174 + (((Tc1031avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc103 = 994.9 + (((Tc1031avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync103 = 7.65 + (((Tc1031avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc103 = 0.623 + (((Tc1031avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc103 = 5.12 + (((Tc1031avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1031avg <= 43.33 Then
cc103 = 4174 + (((Tc1031avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc103 = 993 + (((Tc1031avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync103 = 6.82 + (((Tc1031avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc103 = 0.63 + (((Tc1031avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc103 = 4.53 + (((Tc1031avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1031avg <= 48.89 Then
cc103 = 4174 + (((Tc1031avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc103 = 990.6 + (((Tc1031avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync103 = 6.16 + (((Tc1031avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc103 = 0.637 + (((Tc1031avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc103 = 4.04 + (((Tc1031avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1031avg <= 54.44 Then
cc103 = 4174 + (((Tc1031avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc103 = 998.8 + (((Tc1031avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync103 = 5.62 + (((Tc1031avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc103 = 0.644 + (((Tc1031avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc103 = 3.64 + (((Tc1031avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1031avg <= 60 Then
cc103 = 4179 + (((Tc1031avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc103 = 985.7 + (((Tc1031avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync103 = 5.13 + (((Tc1031avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc103 = 0.649 + (((Tc1031avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc103 = 3.3 + (((Tc1031avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1031avg <= 65.55 Then
cc103 = 4179 + (((Tc1031avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc103 = 983.3 + (((Tc1031avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync103 = 4.71 + (((Tc1031avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc103 = 0.654 + (((Tc1031avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc103 = 3.01 + (((Tc1031avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1031avg <= 71.11 Then
cc103 = 4183 + (((Tc1031avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc103 = 980.3 + (((Tc1031avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync103 = 4.3 + (((Tc1031avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc103 = 0.659 + (((Tc1031avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc103 = 2.73 + (((Tc1031avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1031avg <= 76.67 Then
cc103 = 4186 + (((Tc1031avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc103 = 977.3 + (((Tc1031avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync103 = 4.01 + (((Tc1031avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc103 = 0.665 + (((Tc1031avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc103 = 2.53 + (((Tc1031avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1031avg <= 82.22 Then
cc103 = 4191 + (((Tc1031avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc103 = 973.7 + (((Tc1031avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync103 = 3.72 + (((Tc1031avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc103 = 0.668 + (((Tc1031avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc103 = 2.33 + (((Tc1031avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1031avg <= 87.78 Then
cc103 = 4195 + (((Tc1031avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc103 = 970.2 + (((Tc1031avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync103 = 3.47 + (((Tc1031avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc103 = 0.673 + (((Tc1031avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc103 = 2.16 + (((Tc1031avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1031avg <= 93.33 Then
cc103 = 4199 + (((Tc1031avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc103 = 966.7 + (((Tc1031avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync103 = 3.27 + (((Tc1031avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc103 = 0.675 + (((Tc1031avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc103 = 2.03 + (((Tc1031avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1031avg <= 104.4 Then
cc103 = 4204 + (((Tc1031avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc103 = 963.2 + (((Tc1031avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync103 = 3.06 + (((Tc1031avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc103 = 0.678 + (((Tc1031avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc103 = 1.9 + (((Tc1031avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If


If 0 <= Tc1041avg <= 4.44 Then 'Tenth flow channel,fourth partition
cc104 = 4225 + (((Tc1041avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc104 = 999.8 + (((Tc1041avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync104 = 0.00179 + (((Tc1041avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc104 = 0.566 + (((Tc1041avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc104 = 13.25 + (((Tc1041avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1041avg <= 10 Then
cc104 = 4208 + (((Tc1041avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc104 = 999.8 + (((Tc1041avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync104 = 1.55 + (((Tc1041avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc104 = 0.575 + (((Tc1041avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc104 = 11.35 + (((Tc1041avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1041avg <= 15.56 Then
cc104 = 4195 + (((Tc1041avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc104 = 999.2 + (((Tc1041avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync104 = 1.31 + (((Tc1041avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc104 = 0.585 + (((Tc1041avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc104 = 9.4 + (((Tc1041avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1041avg <= 21.11 Then
cc104 = 4186 + (((Tc1041avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc104 = 998.6 + (((Tc1041avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync104 = 1.12 + (((Tc1041avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc104 = 0.595 + (((Tc1041avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc104 = 7.88 + (((Tc1041avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1041avg <= 26.67 Then
cc104 = 4179 + (((Tc1041avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc104 = 997.4 + (((Tc1041avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync104 = 0.00098 + (((Tc1041avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc104 = 0.604 + (((Tc1041avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc104 = 6.78 + (((Tc1041avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1041avg <= 32.22 Then
cc104 = 4179 + (((Tc1041avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc104 = 995.8 + (((Tc1041avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync104 = 8.6 + (((Tc1041avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc104 = 0.614 + (((Tc1041avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc104 = 5.85 + (((Tc1041avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1041avg <= 37.78 Then
cc104 = 4174 + (((Tc1041avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc104 = 994.9 + (((Tc1041avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync104 = 7.65 + (((Tc1041avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc104 = 0.623 + (((Tc1041avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc104 = 5.12 + (((Tc1041avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1041avg <= 43.33 Then
cc104 = 4174 + (((Tc1041avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc104 = 993 + (((Tc1041avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync104 = 6.82 + (((Tc1041avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc104 = 0.63 + (((Tc1041avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc104 = 4.53 + (((Tc1041avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1041avg <= 48.89 Then
cc104 = 4174 + (((Tc1041avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc104 = 990.6 + (((Tc1041avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync104 = 6.16 + (((Tc1041avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc104 = 0.637 + (((Tc1041avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc104 = 4.04 + (((Tc1041avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1041avg <= 54.44 Then
cc104 = 4174 + (((Tc1041avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc104 = 998.8 + (((Tc1041avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync104 = 5.62 + (((Tc1041avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc104 = 0.644 + (((Tc1041avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc104 = 3.64 + (((Tc1041avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1041avg <= 60 Then
cc104 = 4179 + (((Tc1041avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc104 = 985.7 + (((Tc1041avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync104 = 5.13 + (((Tc1041avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc104 = 0.649 + (((Tc1041avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc104 = 3.3 + (((Tc1041avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1041avg <= 65.55 Then
cc104 = 4179 + (((Tc1041avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc104 = 983.3 + (((Tc1041avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync104 = 4.71 + (((Tc1041avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc104 = 0.654 + (((Tc1041avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc104 = 3.01 + (((Tc1041avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1041avg <= 71.11 Then
cc104 = 4183 + (((Tc1041avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc104 = 980.3 + (((Tc1041avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync104 = 4.3 + (((Tc1041avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc104 = 0.659 + (((Tc1041avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc104 = 2.73 + (((Tc1041avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1041avg <= 76.67 Then
cc104 = 4186 + (((Tc1041avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc104 = 977.3 + (((Tc1041avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync104 = 4.01 + (((Tc1041avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc84 = 0.665 + (((Tc1041avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc104 = 2.53 + (((Tc1041avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1041avg <= 82.22 Then
cc104 = 4191 + (((Tc1041avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc104 = 973.7 + (((Tc1041avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync104 = 3.72 + (((Tc1041avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc104 = 0.668 + (((Tc1041avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc104 = 2.33 + (((Tc1041avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1041avg <= 87.78 Then
cc104 = 4195 + (((Tc1041avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc104 = 970.2 + (((Tc1041avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync104 = 3.47 + (((Tc1041avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc104 = 0.673 + (((Tc1041avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc104 = 2.16 + (((Tc1041avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1041avg <= 93.33 Then
cc104 = 4199 + (((Tc1041avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc104 = 966.7 + (((Tc1041avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync104 = 3.27 + (((Tc1041avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc104 = 0.675 + (((Tc1041avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc104 = 2.03 + (((Tc1041avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1041avg <= 104.4 Then
cc104 = 4204 + (((Tc1041avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc104 = 963.2 + (((Tc1041avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync104 = 3.06 + (((Tc1041avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc104 = 0.678 + (((Tc1041avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc104 = 1.9 + (((Tc1041avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc1051avg <= 4.44 Then 'Tenth flow channel,fifth partition
cc105 = 4225 + (((Tc1051avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc105 = 999.8 + (((Tc1051avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync105 = 0.00179 + (((Tc1051avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc105 = 0.566 + (((Tc1051avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc105 = 13.25 + (((Tc1051avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1051avg <= 10 Then
cc105 = 4208 + (((Tc1051avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc105 = 999.8 + (((Tc1051avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync105 = 1.55 + (((Tc1051avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc105 = 0.575 + (((Tc1051avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc105 = 11.35 + (((Tc1051avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1051avg <= 15.56 Then
cc105 = 4195 + (((Tc1051avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc105 = 999.2 + (((Tc1051avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync105 = 1.31 + (((Tc1051avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc105 = 0.585 + (((Tc1051avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc105 = 9.4 + (((Tc1051avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1051avg <= 21.11 Then
cc105 = 4186 + (((Tc1051avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc105 = 998.6 + (((Tc1051avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync105 = 1.12 + (((Tc1051avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc105 = 0.595 + (((Tc1051avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc105 = 7.88 + (((Tc1051avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1051avg <= 26.67 Then
cc105 = 4179 + (((Tc1051avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc105 = 997.4 + (((Tc851avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync105 = 0.00098 + (((Tc1051avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc105 = 0.604 + (((Tc1051avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc105 = 6.78 + (((Tc1051avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1051avg <= 32.22 Then
cc105 = 4179 + (((Tc1051avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc105 = 995.8 + (((Tc1051avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync105 = 8.6 + (((Tc1051avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc105 = 0.614 + (((Tc1051avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc105 = 5.85 + (((Tc1051avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1051avg <= 37.78 Then
cc105 = 4174 + (((Tc1051avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc105 = 994.9 + (((Tc1051avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync105 = 7.65 + (((Tc1051avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc105 = 0.623 + (((Tc1051avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc105 = 5.12 + (((Tc1051avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1051avg <= 43.33 Then
cc105 = 4174 + (((Tc1051avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc105 = 993 + (((Tc1051avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync105 = 6.82 + (((Tc1051avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc105 = 0.63 + (((Tc1051avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc105 = 4.53 + (((Tc1051avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1051avg <= 48.89 Then
cc105 = 4174 + (((Tc1051avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc105 = 990.6 + (((Tc1051avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync105 = 6.16 + (((Tc1051avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc105 = 0.637 + (((Tc1051avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc105 = 4.04 + (((Tc1051avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1051avg <= 54.44 Then
cc105 = 4174 + (((Tc1051avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc105 = 998.8 + (((Tc1051avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync105 = 5.62 + (((Tc1051avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc105 = 0.644 + (((Tc1051avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc105 = 3.64 + (((Tc1051avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1051avg <= 60 Then
cc105 = 4179 + (((Tc1051avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc105 = 985.7 + (((Tc1051avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync105 = 5.13 + (((Tc1051avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc105 = 0.649 + (((Tc1051avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc105 = 3.3 + (((Tc1051avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1051avg <= 65.55 Then
cc105 = 4179 + (((Tc1051avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc105 = 983.3 + (((Tc1051avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync105 = 4.71 + (((Tc1051avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc105 = 0.654 + (((Tc1051avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc105 = 3.01 + (((Tc1051avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1051avg <= 71.11 Then
cc105 = 4183 + (((Tc1051avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc105 = 980.3 + (((Tc1051avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync105 = 4.3 + (((Tc1051avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc105 = 0.659 + (((Tc1051avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc105 = 2.73 + (((Tc1051avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1051avg <= 76.67 Then
cc105 = 4186 + (((Tc1051avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc105 = 977.3 + (((Tc1051avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync105 = 4.01 + (((Tc1051avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc105 = 0.665 + (((Tc1051avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc105 = 2.53 + (((Tc1051avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1051avg <= 82.22 Then
cc105 = 4191 + (((Tc1051avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc105 = 973.7 + (((Tc1051avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync105 = 3.72 + (((Tc1051avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc105 = 0.668 + (((Tc1051avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc105 = 2.33 + (((Tc1051avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1051avg <= 87.78 Then
cc105 = 4195 + (((Tc1051avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc105 = 970.2 + (((Tc1051avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync105 = 3.47 + (((Tc1051avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc105 = 0.673 + (((Tc1051avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc105 = 2.16 + (((Tc1051avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1051avg <= 93.33 Then
cc105 = 4199 + (((Tc1051avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc105 = 966.7 + (((Tc1051avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync105 = 3.27 + (((Tc1051avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc105 = 0.675 + (((Tc1051avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc105 = 2.03 + (((Tc1051avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1051avg <= 104.4 Then
cc105 = 4204 + (((Tc1051avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc105 = 963.2 + (((Tc1051avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync105 = 3.06 + (((Tc1051avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc105 = 0.678 + (((Tc1051avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc105 = 1.9 + (((Tc1051avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If
If 0 <= Tc1061avg <= 4.44 Then 'Tenth flow channel,sixth partition
cc106 = 4225 + (((Tc1061avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc106 = 999.8 + (((Tc1061avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync106 = 0.00179 + (((Tc1061avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc106 = 0.566 + (((Tc1061avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc106 = 13.25 + (((Tc1061avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1061avg <= 10 Then
cc106 = 4208 + (((Tc1061avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc106 = 999.8 + (((Tc1061avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync106 = 1.55 + (((Tc1061avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc106 = 0.575 + (((Tc1061avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc106 = 11.35 + (((Tc1061avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1061avg <= 15.56 Then
cc106 = 4195 + (((Tc1061avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc106 = 999.2 + (((Tc1061avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync106 = 1.31 + (((Tc1061avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc106 = 0.585 + (((Tc1061avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc106 = 9.4 + (((Tc1061avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1061avg <= 21.11 Then
cc106 = 4186 + (((Tc1061avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc106 = 998.6 + (((Tc1061avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync106 = 1.12 + (((Tc1061avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc106 = 0.595 + (((Tc1061avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc106 = 7.88 + (((Tc1061avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1061avg <= 26.67 Then
cc106 = 4179 + (((Tc1061avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc106 = 997.4 + (((Tc1061avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync106 = 0.00098 + (((Tc1061avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc106 = 0.604 + (((Tc1061avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc106 = 6.78 + (((Tc1061avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1061avg <= 32.22 Then
cc106 = 4179 + (((Tc1061avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc106 = 995.8 + (((Tc1061avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync106 = 8.6 + (((Tc1061avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc106 = 0.614 + (((Tc1061avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc106 = 5.85 + (((Tc1061avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1061avg <= 37.78 Then
cc106 = 4174 + (((Tc1061avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc106 = 994.9 + (((Tc1061avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync106 = 7.65 + (((Tc1061avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc106 = 0.623 + (((Tc1061avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc106 = 5.12 + (((Tc1061avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1061avg <= 43.33 Then
cc106 = 4174 + (((Tc1061avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc106 = 993 + (((Tc1061avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync106 = 6.82 + (((Tc1061avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc106 = 0.63 + (((Tc1061avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc106 = 4.53 + (((Tc1061avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1061avg <= 48.89 Then
cc106 = 4174 + (((Tc1061avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc106 = 990.6 + (((Tc1061avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync106 = 6.16 + (((Tc1061avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc106 = 0.637 + (((Tc1061avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc106 = 4.04 + (((Tc10861AVG - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1061avg <= 54.44 Then
cc106 = 4174 + (((Tc1061avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc106 = 998.8 + (((Tc1061avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync106 = 5.62 + (((Tc1061avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc106 = 0.644 + (((Tc1061avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc106 = 3.64 + (((Tc1061avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1061avg <= 60 Then
cc106 = 4179 + (((Tc1061avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc106 = 985.7 + (((Tc1061avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync106 = 5.13 + (((Tc1061avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc106 = 0.649 + (((Tc1061avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc106 = 3.3 + (((Tc1061avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1061avg <= 65.55 Then
cc106 = 4179 + (((Tc1061avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc106 = 983.3 + (((Tc1061avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync106 = 4.71 + (((Tc1061avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc106 = 0.654 + (((Tc1061avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc106 = 3.01 + (((Tc1061avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1061avg <= 71.11 Then
cc106 = 4183 + (((Tc1061avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc106 = 980.3 + (((Tc1061avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync106 = 4.3 + (((Tc1061avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc106 = 0.659 + (((Tc1061avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc106 = 2.73 + (((Tc1061avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1061avg <= 76.67 Then
cc106 = 4186 + (((Tc1061avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc106 = 977.3 + (((Tc1061avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync106 = 4.01 + (((Tc1061avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc106 = 0.665 + (((Tc1061avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc106 = 2.53 + (((Tc1061avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1061avg <= 82.22 Then
cc106 = 4191 + (((Tc1061avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc106 = 973.7 + (((Tc1061avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync106 = 3.72 + (((Tc1061avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc106 = 0.668 + (((Tc1061avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc106 = 2.33 + (((Tc1061avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1061avg <= 87.78 Then
cc106 = 4195 + (((Tc1061avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc106 = 970.2 + (((Tc1061avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync106 = 3.47 + (((Tc1061avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc106 = 0.673 + (((Tc1061avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc106 = 2.16 + (((Tc1061avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1061avg <= 93.33 Then
cc106 = 4199 + (((Tc1061avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc106 = 966.7 + (((Tc1061avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync106 = 3.27 + (((Tc1061avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc106 = 0.675 + (((Tc1061avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc106 = 2.03 + (((Tc1061avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1061avg <= 104.4 Then
cc106 = 4204 + (((Tc1061avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc106 = 963.2 + (((Tc1061avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync106 = 3.06 + (((Tc1061avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc106 = 0.678 + (((Tc1061avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc106 = 1.9 + (((Tc1061avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc1071avg <= 4.44 Then 'Tenth flow channel,seventh partition
cc107 = 4225 + (((Tc1071avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc107 = 999.8 + (((Tc1071avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync107 = 0.00179 + (((Tc1071avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc107 = 0.566 + (((Tc1071avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc107 = 13.25 + (((Tc1071avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1071avg <= 10 Then
cc107 = 4208 + (((Tc1071avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc107 = 999.8 + (((Tc1071avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync107 = 1.55 + (((Tc1071avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc107 = 0.575 + (((Tc1071avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc107 = 11.35 + (((Tc1071avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1071avg <= 15.56 Then
cc107 = 4195 + (((Tc1071avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc107 = 999.2 + (((Tc1071AVGAVG - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync107 = 1.31 + (((Tc1071avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc107 = 0.585 + (((Tc1071avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc107 = 9.4 + (((Tc1071avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1071avg <= 21.11 Then
cc107 = 4186 + (((Tc1071avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc107 = 998.6 + (((Tc1071avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync107 = 1.12 + (((Tc1071avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc107 = 0.595 + (((Tc1071avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc107 = 7.88 + (((Tc1071avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1071avg <= 26.67 Then
cc107 = 4179 + (((Tc1071avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc107 = 997.4 + (((Tc1071avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync107 = 0.00098 + (((Tc1071avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc107 = 0.604 + (((Tc1071avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc107 = 6.78 + (((Tc1071avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1071avg <= 32.22 Then
cc107 = 4179 + (((Tc1071avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc107 = 995.8 + (((Tc1071avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync107 = 8.6 + (((Tc1071avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc107 = 0.614 + (((Tc1071avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc107 = 5.85 + (((Tc1071avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1071avg <= 37.78 Then
cc107 = 4174 + (((Tc1071avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc107 = 994.9 + (((Tc1071avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync107 = 7.65 + (((Tc1071avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc107 = 0.623 + (((Tc1071avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc107 = 5.12 + (((Tc1071avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1071avg <= 43.33 Then
cc107 = 4174 + (((Tc1071avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc107 = 993 + (((Tc1071avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync107 = 6.82 + (((Tc1071avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc107 = 0.63 + (((Tc1071avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc107 = 4.53 + (((Tc1071avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1071avg <= 48.89 Then
cc107 = 4174 + (((Tc1071avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc107 = 990.6 + (((Tc1071avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync107 = 6.16 + (((Tc1071avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc107 = 0.637 + (((Tc1071avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc107 = 4.04 + (((Tc1071avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1071avg <= 54.44 Then
cc107 = 4174 + (((Tc1071avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc107 = 998.8 + (((Tc1071avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync107 = 5.62 + (((Tc1071avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc107 = 0.644 + (((Tc1071avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc107 = 3.64 + (((Tc1071avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1071avg <= 60 Then
cc107 = 4179 + (((Tc1071avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc107 = 985.7 + (((Tc1071avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync107 = 5.13 + (((Tc1071avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc107 = 0.649 + (((Tc1071avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc107 = 3.3 + (((Tc1071avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1071avg <= 65.55 Then
cc107 = 4179 + (((Tc1071avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc107 = 983.3 + (((Tc1071avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync107 = 4.71 + (((Tc1071avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc107 = 0.654 + (((Tc1071avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc107 = 3.01 + (((Tc1071avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1071avg <= 71.11 Then
cc107 = 4183 + (((Tc1071avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc107 = 980.3 + (((Tc1071avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync107 = 4.3 + (((Tc1071avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc107 = 0.659 + (((Tc1071avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc107 = 2.73 + (((Tc1071avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1071avg <= 76.67 Then
cc107 = 4186 + (((Tc1071avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc107 = 977.3 + (((Tc1071avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync107 = 4.01 + (((Tc1071avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc107 = 0.665 + (((Tc1071avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc107 = 2.53 + (((Tc1071avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1071avg <= 82.22 Then
cc107 = 4191 + (((Tc1071avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc107 = 973.7 + (((Tc1071avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync107 = 3.72 + (((Tc1071avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc107 = 0.668 + (((Tc1071avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc107 = 2.33 + (((Tc1071avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1071avg <= 87.78 Then
cc107 = 4195 + (((Tc1071avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc107 = 970.2 + (((Tc1071avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync107 = 3.47 + (((Tc1071avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc107 = 0.673 + (((Tc1071avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc107 = 2.16 + (((Tc1071avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1071avg <= 93.33 Then
cc107 = 4199 + (((Tc1071avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc107 = 966.7 + (((Tc1071avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync107 = 3.27 + (((Tc1071avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc107 = 0.675 + (((Tc1071avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc107 = 2.03 + (((Tc1071avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1071avg <= 104.4 Then
cc107 = 4204 + (((Tc1071avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc107 = 963.2 + (((Tc1071avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync107 = 3.06 + (((Tc1071avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc107 = 0.678 + (((Tc1071avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc107 = 1.9 + (((Tc1071avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc1081avg <= 4.44 Then 'Tenth flow channel,eighth partition
cc108 = 4225 + (((Tc1081avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc108 = 999.8 + (((Tc1081avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync108 = 0.00179 + (((Tc1081avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc108 = 0.566 + (((Tc1081avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc108 = 13.25 + (((Tc1081avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1081avg <= 10 Then
cc108 = 4208 + (((Tc1081avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc108 = 999.8 + (((Tc1081avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync108 = 1.55 + (((Tc1081avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc108 = 0.575 + (((Tc1081avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc108 = 11.35 + (((Tc1081avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1081avg <= 15.56 Then
cc108 = 4195 + (((Tc1081avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc108 = 999.2 + (((Tc1081avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync108 = 1.31 + (((Tc1081avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc108 = 0.585 + (((Tc1081avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc108 = 9.4 + (((Tc1081avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1081avg <= 21.11 Then
cc108 = 4186 + (((Tc1081avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc108 = 998.6 + (((Tc1081avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync108 = 1.12 + (((Tc1081avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc108 = 0.595 + (((Tc1081avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc108 = 7.88 + (((Tc1081avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1081avg <= 26.67 Then
cc108 = 4179 + (((Tc1081avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc108 = 997.4 + (((Tc1081avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync108 = 0.00098 + (((Tc1081avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc108 = 0.604 + (((Tc1081avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc108 = 6.78 + (((Tc1081avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1081avg <= 32.22 Then
cc108 = 4179 + (((Tc1081avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc108 = 995.8 + (((Tc1081avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync108 = 8.6 + (((Tc1081avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc108 = 0.614 + (((Tc1081avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc108 = 5.85 + (((Tc1081avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1081avg <= 37.78 Then
cc108 = 4174 + (((Tc1081avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc108 = 994.9 + (((Tc1081avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync108 = 7.65 + (((Tc1081avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc108 = 0.623 + (((Tc1081avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc108 = 5.12 + (((Tc1081avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1081avg <= 43.33 Then
cc108 = 4174 + (((Tc1081avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc108 = 993 + (((Tc1081avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync108 = 6.82 + (((Tc1081avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc108 = 0.63 + (((Tc1081avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc108 = 4.53 + (((Tc1081avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1081avg <= 48.89 Then
cc108 = 4174 + (((Tc1081avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc108 = 990.6 + (((Tc1081avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync108 = 6.16 + (((Tc1081avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc108 = 0.637 + (((Tc1081avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc108 = 4.04 + (((Tc1081avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1081avg <= 54.44 Then
cc108 = 4174 + (((Tc1081avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc108 = 998.8 + (((Tc1081avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync108 = 5.62 + (((Tc1081avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc108 = 0.644 + (((Tc1081avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc108 = 3.64 + (((Tc1081avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1081avg <= 60 Then
cc108 = 4179 + (((Tc1081avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc108 = 985.7 + (((Tc1081avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync108 = 5.13 + (((Tc1081avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc108 = 0.649 + (((Tc1081avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc108 = 3.3 + (((Tc1081avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1081avg <= 65.55 Then
cc108 = 4179 + (((Tc1081avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc108 = 983.3 + (((Tc1081avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync108 = 4.71 + (((Tc1081avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc108 = 0.654 + (((Tc1081avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc108 = 3.01 + (((Tc1081avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1081avg <= 71.11 Then
cc108 = 4183 + (((Tc1081avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc108 = 980.3 + (((Tc1081avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync108 = 4.3 + (((Tc1081avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc108 = 0.659 + (((Tc1081avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc108 = 2.73 + (((Tc1081avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1081avg <= 76.67 Then
cc108 = 4186 + (((Tc1081avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc108 = 977.3 + (((Tc1081avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync108 = 4.01 + (((Tc1081avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc108 = 0.665 + (((Tc1081avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc108 = 2.53 + (((Tc1081avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc1081avg <= 82.22 Then
cc108 = 4191 + (((Tc1081avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc108 = 973.7 + (((Tc1081avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync108 = 3.72 + (((Tc1081avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc108 = 0.668 + (((Tc1081avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc108 = 2.33 + (((Tc1081avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1081avg <= 87.78 Then
cc108 = 4195 + (((Tc1081avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc108 = 970.2 + (((Tc1081avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync108 = 3.47 + (((Tc1081avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc108 = 0.673 + (((Tc1081avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc108 = 2.16 + (((Tc1081avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1081avg <= 93.33 Then
cc108 = 4199 + (((Tc1081avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc108 = 966.7 + (((Tc1081avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync108 = 3.27 + (((Tc1081avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc108 = 0.675 + (((Tc1081avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc108 = 2.03 + (((Tc1081avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1081avg <= 104.4 Then
cc108 = 4204 + (((Tc1081avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc108 = 963.2 + (((Tc1081avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync108 = 3.06 + (((Tc1081avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc108 = 0.678 + (((Tc1081avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc108 = 1.9 + (((Tc1081avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If




If 0 <= Tc1091avg <= 4.44 Then 'Tenth flow channel,ninth partition
cc109 = 4225 + (((Tc1091avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc109 = 999.8 + (((Tc1091avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync109 = 0.00179 + (((Tc1091avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc109 = 0.566 + (((Tc1091avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc109 = 13.25 + (((Tc1091avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc1091avg <= 10 Then
cc109 = 4208 + (((Tc1091avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc109 = 999.8 + (((Tc1091avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync109 = 1.55 + (((Tc1091avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc109 = 0.575 + (((Tc1091avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc109 = 11.35 + (((Tc1091avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc1091avg <= 15.56 Then
cc109 = 4195 + (((Tc1091avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc109 = 999.2 + (((Tc1091avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync109 = 1.31 + (((Tc1091avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc109 = 0.585 + (((Tc1091avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc109 = 9.4 + (((Tc1091avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc1091avg <= 21.11 Then
cc109 = 4186 + (((Tc1091avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc109 = 998.6 + (((Tc1091avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync109 = 1.12 + (((Tc1091avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc109 = 0.595 + (((Tc1091avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc109 = 7.88 + (((Tc1091avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc1091avg <= 26.67 Then
cc109 = 4179 + (((Tc1091avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc109 = 997.4 + (((Tc1091avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync109 = 0.00098 + (((Tc1091avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc109 = 0.604 + (((Tc1091avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc109 = 6.78 + (((Tc1091avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc1091avg <= 32.22 Then
cc109 = 4179 + (((Tc1091avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc109 = 995.8 + (((Tc1091avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync109 = 8.6 + (((Tc1091avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc109 = 0.614 + (((Tc1091avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc109 = 5.85 + (((Tc10891AVG - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc1091avg <= 37.78 Then
cc109 = 4174 + (((Tc1091avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc109 = 994.9 + (((Tc1091avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync109 = 7.65 + (((Tc1091avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc109 = 0.623 + (((Tc1091avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc109 = 5.12 + (((Tc1091avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc1091avg <= 43.33 Then
cc109 = 4174 + (((Tc1091avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc109 = 993 + (((Tc1091avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync109 = 6.82 + (((Tc1091avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc109 = 0.63 + (((Tc1091avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc109 = 4.53 + (((Tc1091avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc1091avg <= 48.89 Then
cc109 = 4174 + (((Tc1091avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc109 = 990.6 + (((Tc1091avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync109 = 6.16 + (((Tc1091avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc109 = 0.637 + (((Tc1091avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc109 = 4.04 + (((Tc1091avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc1091avg <= 54.44 Then
cc109 = 4174 + (((Tc1091avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc109 = 998.8 + (((Tc1091avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync109 = 5.62 + (((Tc1091avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc109 = 0.644 + (((Tc1091avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc109 = 3.64 + (((Tc1091avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc1091avg <= 60 Then
cc109 = 4179 + (((Tc1091avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc109 = 985.7 + (((Tc1091avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync109 = 5.13 + (((Tc1091avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc109 = 0.649 + (((Tc1091avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc109 = 3.3 + (((Tc1091avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc1091avg <= 65.55 Then
cc109 = 4179 + (((Tc1091avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc109 = 983.3 + (((Tc1091avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync109 = 4.71 + (((Tc1091avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc109 = 0.654 + (((Tc1091avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc109 = 3.01 + (((Tc1091avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc1091avg <= 71.11 Then
cc109 = 4183 + (((Tc1091avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc109 = 980.3 + (((Tc1091avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync109 = 4.3 + (((Tc1091avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc109 = 0.659 + (((Tc1091avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc109 = 2.73 + (((Tc1091avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc1091avg <= 76.67 Then
cc109 = 4186 + (((Tc1091avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc109 = 977.3 + (((Tc1091avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync109 = 4.01 + (((Tc1091avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc109 = 0.665 + (((Tc1091avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc109 = 2.53 + (((Tc1091avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc891avg <= 82.22 Then
cc109 = 4191 + (((Tc1091avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc109 = 973.7 + (((Tc1091avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync109 = 3.72 + (((Tc1091avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc109 = 0.668 + (((Tc1091avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc109 = 2.33 + (((Tc1091avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc1091avg <= 87.78 Then
cc109 = 4195 + (((Tc1091avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc109 = 970.2 + (((Tc1091avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync109 = 3.47 + (((Tc1091avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc109 = 0.673 + (((Tc1091avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc109 = 2.16 + (((Tc1091avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc1091avg <= 93.33 Then
cc109 = 4199 + (((Tc1091avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc109 = 966.7 + (((Tc1091avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync109 = 3.27 + (((Tc1091avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc109 = 0.675 + (((Tc1091avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc109 = 2.03 + (((Tc1091avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc1091avg <= 104.4 Then
cc109 = 4204 + (((Tc1091avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc109 = 963.2 + (((Tc1091avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync109 = 3.06 + (((Tc1091avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc109 = 0.678 + (((Tc1091avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc109 = 1.9 + (((Tc1091avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

If 0 <= Tc10101avg <= 4.44 Then 'Tenth flow channel,tenth partition
cc1010 = 4225 + (((Tc10101avg - 0) / (4.44 - 0)) * (4208 - 4225))
rhoc1010 = 999.8 + (((Tc10101avg - 0) / (4.44 - 0)) * (999.8 - 999.8))
dync1010 = 0.00179 + (((Tc10101avg - 0) / (4.44 - 0)) * (1.55 - 0.00179))
kc1010 = 0.566 + (((Tc10101avg - 0) / (4.44 - 0)) * (0.575 - 0.566))
prc1010 = 13.25 + (((Tc10101avg - 0) / (4.44 - 0)) * (11.35 - 13.25))

ElseIf 4.44 <= Tc10101avg <= 10 Then
cc1010 = 4208 + (((Tc10101avg - 4.44) / (10 - 4.44)) * (4195 - 4208))
rhoc1010 = 999.8 + (((Tc10101avg - 4.44) / (10 - 4.44)) * (999.2 - 999.8))
dync1010 = 1.55 + (((Tc10101avg - 4.44) / (10 - 4.44)) * (1.31 - 1.55))
kc1010 = 0.575 + (((Tc10101avg - 4.44) / (10 - 4.44)) * (0.585 - 0.575))
prc1010 = 11.35 + (((Tc10101avg - 4.44) / (10 - 4.44)) * (9.4 - 11.35))

ElseIf 10 <= Tc10101avg <= 15.56 Then
cc1010 = 4195 + (((Tc10101avg - 10) / (15.56 - 10)) * (4186 - 4195))
rhoc1010 = 999.2 + (((Tc10101avg - 10) / (15.56 - 10)) * (998.6 - 999.2))
dync1010 = 1.31 + (((Tc10101avg - 10) / (15.56 - 10)) * (1.12 - 1.31))
kc1010 = 0.585 + (((Tc10101avg - 10) / (15.56 - 10)) * (0.595 - 0.585))
prc1010 = 9.4 + (((Tc10101avg - 10) / (15.56 - 10)) * (7.88 - 9.4))

If 15.56 <= Tc10101avg <= 21.11 Then
cc1010 = 4186 + (((Tc10101avg - 15.56) / (21.11 - 15.56)) * (4179 - 4186))
rhoc1010 = 998.6 + (((Tc10101avg - 15.56) / (21.11 - 15.56)) * (997.4 - 998.6))
dync1010 = 1.12 + (((Tc10101avg - 15.56) / (21.11 - 15.56)) * (0.00098 - 1.12))
kc1010 = 0.595 + (((Tc10101avg - 15.56) / (21.11 - 15.56)) * (0.604 - 0.595))
prc1010 = 7.88 + (((Tc10101avg - 15.56) / (21.11 - 15.56)) * (6.78 - 7.88))

ElseIf 21.11 <= Tc10101avg <= 26.67 Then
cc1010 = 4179 + (((Tc10101avg - 21.11) / (26.67 - 21.11)) * (4179 - 4179))
rhoc1010 = 997.4 + (((Tc10101avg - 21.11) / (26.67 - 21.11)) * (995.8 - 997.4))
dync1010 = 0.00098 + (((Tc10101avg - 21.11) / (26.67 - 21.11)) * (8.6 - 0.00098))
kc1010 = 0.604 + (((Tc10101avg - 21.11) / (26.67 - 21.11)) * (0.614 - 0.604))
prc1010 = 6.78 + (((Tc10101avg - 21.11) / (26.67 - 21.11)) * (5.85 - 6.78))

ElseIf 26.67 <= Tc10101avg <= 32.22 Then
cc1010 = 4179 + (((Tc10101avg - 26.67) / (32.22 - 26.67)) * (4174 - 4179))
rhoc1010 = 995.8 + (((Tc10101avg - 26.67) / (32.22 - 26.67)) * (994.9 - 995.8))
dync1010 = 8.6 + (((Tc10101avg - 26.67) / (32.22 - 26.67)) * (7.65 - 8.6))
kc1010 = 0.614 + (((Tc10101avg - 26.67) / (32.22 - 26.67)) * (0.623 - 0.614))
prc1010 = 5.85 + (((Tc10101avg - 26.67) / (32.22 - 26.67)) * (5.12 - 5.85))

ElseIf 32.22 <= Tc10101avg <= 37.78 Then
cc1010 = 4174 + (((Tc10101avg - 32.22) / (37.78 - 32.22)) * (4174 - 4174))
rhoc1010 = 994.9 + (((Tc10101avg - 32.22) / (37.78 - 32.22)) * (993 - 994.9))
dync1010 = 7.65 + (((Tc10101avg - 32.22) / (37.78 - 32.22)) * (6.82 - 7.65))
kc1010 = 0.623 + (((Tc10101avg - 32.22) / (37.78 - 32.22)) * (0.63 - 0.623))
prc1010 = 5.12 + (((Tc10101avg - 32.22) / (37.78 - 32.22)) * (4.53 - 5.12))


ElseIf 37.78 <= Tc10101avg <= 43.33 Then
cc1010 = 4174 + (((Tc10101avg - 37.78) / (43.33 - 37.78)) * (4174 - 4174))
rhoc1010 = 993 + (((Tc10101avg - 37.78) / (43.33 - 37.78)) * (990.6 - 993))
dync1010 = 6.82 + (((Tc10101avg - 37.78) / (43.33 - 37.78)) * (6.16 - 6.82))
kc1010 = 0.63 + (((Tc10101avg - 37.78) / (43.33 - 37.78)) * (0.637 - 0.63))
prc1010 = 4.53 + (((Tc10101avg - 37.78) / (43.33 - 37.78)) * (4.04 - 4.53))


ElseIf 43.33 <= Tc10101avg <= 48.89 Then
cc1010 = 4174 + (((Tc10101avg - 43.33) / (48.89 - 43.33)) * (4174 - 4174))
rhoc1010 = 990.6 + (((Tc10101avg - 43.33) / (48.89 - 43.33)) * (988.8 - 990.6))
dync1010 = 6.16 + (((Tc10101avg - 43.33) / (48.89 - 43.33)) * (5.62 - 6.16))
kc1010 = 0.637 + (((Tc10101avg - 43.33) / (48.89 - 43.33)) * (0.644 - 0.637))
prc1010 = 4.04 + (((Tc10101avg - 43.33) / (48.89 - 43.33)) * (4.53 - 4.04))

ElseIf 48.89 <= Tc10101avg <= 54.44 Then
cc1010 = 4174 + (((Tc10101avg - 48.89) / (54.44 - 48.89)) * (4179 - 4174))
rhoc1010 = 998.8 + (((Tc10101avg - 48.89) / (54.44 - 48.89)) * (985.7 - 988.8))
dync1010 = 5.62 + (((Tc10101avg - 48.89) / (54.44 - 48.89)) * (5.13 - 5.62))
kc1010 = 0.644 + (((Tc10101avg - 48.89) / (54.44 - 48.89)) * (0.649 - 0.644))
prc1010 = 3.64 + (((Tc10101avg - 48.89) / (54.44 - 48.89)) * (3.3 - 4.53))

ElseIf 54.44 <= Tc10101avg <= 60 Then
cc1010 = 4179 + (((Tc10101avg - 54.44) / (60 - 54.44)) * (4179 - 4179))
rhoc1010 = 985.7 + (((Tc10101avg - 54.44) / (60 - 54.44)) * (983.3 - 985.7))
dync1010 = 5.13 + (((Tc10101avg - 54.44) / (60 - 54.44)) * (4.71 - 5.13))
kc1010 = 0.649 + (((Tc10101avg - 54.44) / (60 - 54.44)) * (0.654 - 0.649))
prc1010 = 3.3 + (((Tc10101avg - 54.44) / (60 - 54.44)) * (3.01 - 3.3))


ElseIf 60 <= Tc10101avg <= 65.55 Then
cc1010 = 4179 + (((Tc10101avg - 60) / (65.55 - 60)) * (4183 - 4179))
rhoc1010 = 983.3 + (((Tc10101avg - 60) / (65.55 - 60)) * (980.3 - 983.3))
dync1010 = 4.71 + (((Tc10101avg - 60) / (65.55 - 60)) * (4.3 - 4.71))
kc1010 = 0.654 + (((Tc10101avg - 60) / (65.55 - 60)) * (0.659 - 0.654))
prc1010 = 3.01 + (((Tc10101avg - 60) / (65.55 - 60)) * (2.73 - 3.01))


ElseIf 65.55 <= Tc10101avg <= 71.11 Then
cc1010 = 4183 + (((Tc10101avg - 65.55) / (71.11 - 65.55)) * (4186 - 4183))
rhoc1010 = 980.3 + (((Tc10101avg - 65.55) / (71.11 - 65.55)) * (977.3 - 980.3))
dync1010 = 4.3 + (((Tc10101avg - 65.55) / (71.11 - 65.55)) * (4.01 - 4.3))
kc1010 = 0.659 + (((Tc10101avg - 65.55) / (71.11 - 65.55)) * (0.665 - 0.659))
prc1010 = 2.73 + (((Tc10101avg - 65.55) / (71.11 - 65.55)) * (2.53 - 2.73))

ElseIf 71.11 <= Tc10101avg <= 76.67 Then
cc1010 = 4186 + (((Tc10101avg - 71.11) / (76.67 - 65.55)) * (4191 - 4186))
rhoc1010 = 977.3 + (((Tc10101avg - 65.55) / (76.67 - 65.55)) * (973.7 - 977.3))
dync1010 = 4.01 + (((Tc10101avg - 65.55) / (76.67 - 65.55)) * (3.72 - 4.01))
kc1010 = 0.665 + (((Tc10101avg - 65.55) / (76.67 - 65.55)) * (0.668 - 0.665))
prc1010 = 2.53 + (((Tc10101avg - 65.55) / (76.67 - 65.55)) * (2.33 - 2.53))

ElseIf 76.67 <= Tc10101avg <= 82.22 Then
cc1010 = 4191 + (((Tc10101avg - 76.67) / (82.22 - 76.67)) * (4195 - 4191))
rhoc1010 = 973.7 + (((Tc10101avg - 76.67) / (82.22 - 76.67)) * (970.2 - 973.7))
dync1010 = 3.72 + (((Tc10101avg - 76.67) / (82.22 - 76.67)) * (3.47 - 3.72))
kc1010 = 0.668 + (((Tc10101avg - 76.67) / (82.22 - 76.67)) * (0.673 - 0.668))
prc1010 = 2.33 + (((Tc10101avg - 76.67) / (82.22 - 76.67)) * (2.16 - 2.33))

ElseIf 82.22 <= Tc10101avg <= 87.78 Then
cc1010 = 4195 + (((Tc10101avg - 82.22) / (87.78 - 82.22)) * (4199 - 4195))
rhoc1010 = 970.2 + (((Tc10101avg - 82.22) / (87.78 - 82.22)) * (966.7 - 970.2))
dync1010 = 3.47 + (((Tc10101avg - 82.22) / (87.78 - 82.22)) * (3.27 - 3.47))
kc1010 = 0.673 + (((Tc10101avg - 82.22) / (87.78 - 82.22)) * (0.675 - 0.673))
prc1010 = 2.16 + (((Tc10101avg - 82.22) / (87.78 - 82.22)) * (2.03 - 2.16))

ElseIf 87.78 <= Tc10101avg <= 93.33 Then
cc1010 = 4199 + (((Tc10101avg - 87.78) / (93.33 - 87.78)) * (4204 - 4199))
rhoc1010 = 966.7 + (((Tc10101avg - 87.78) / (93.33 - 87.78)) * (963.2 - 966.7))
dync1010 = 3.27 + (((Tc10101avg - 87.78) / (93.33 - 87.78)) * (3.06 - 3.27))
kc1010 = 0.675 + (((Tc10101avg - 87.78) / (93.33 - 87.78)) * (0.678 - 0.675))
prc1010 = 2.03 + (((Tc10101avg - 87.78) / (93.33 - 87.78)) * (1.9 - 2.03))

ElseIf 93.33 <= Tc10101avg <= 104.4 Then
cc1010 = 4204 + (((Tc10101avg - 93.33) / (104.4 - 93.33)) * (4216 - 4204))
rhoc1010 = 963.2 + (((Tc10101avg - 93.33) / (104.4 - 93.33)) * (955.1 - 963.2))
dync1010 = 3.06 + (((Tc10101avg - 93.33) / (104.4 - 93.33)) * (2.67 - 3.06))
kc1010 = 0.678 + (((Tc10101avg - 93.33) / (104.4 - 93.33)) * (0.684 - 0.678))
prc1010 = 1.9 + (((Tc10101avg - 93.33) / (104.4 - 93.33)) * (1.66 - 1.9))


End If
End If
End If

Reh11 = (4 * mh) / (3.142 * dh * dynh11)
Reh12 = (4 * mh) / (3.142 * dh * dynh12)
Reh13 = (4 * mh) / (3.142 * dh * dynh13)
Reh14 = (4 * mh) / (3.142 * dh * dynh14)
Reh15 = (4 * mh) / (3.142 * dh * dynh15)
Reh16 = (4 * mh) / (3.142 * dh * dynh16)
Reh17 = (4 * mh) / (3.142 * dh * dynh17)
Reh18 = (4 * mh) / (3.142 * dh * dynh18)
Reh19 = (4 * mh) / (3.142 * dh * dynh19)
Reh110 = (4 * mh) / (3.142 * dh * dynh110)


Rec21 = (4 * mc) / (3.142 * dh * dync21)
Rec22 = (4 * mc) / (3.142 * dh * dync22)
Rec23 = (4 * mc) / (3.142 * dh * dync23)
Rec24 = (4 * mc) / (3.142 * dh * dync24)
Rec25 = (4 * mc) / (3.142 * dh * dync25)
Rec26 = (4 * mc) / (3.142 * dh * dync26)
Rec27 = (4 * mc) / (3.142 * dh * dync27)
Rec28 = (4 * mc) / (3.142 * dh * dync28)
Rec29 = (4 * mc) / (3.142 * dh * dync29)
Rec210 = (4 * mc) / (3.142 * dh * dync210)

Reh31 = (4 * mh) / (3.142 * dh * dynh31)
Reh32 = (4 * mh) / (3.142 * dh * dynh32)
Reh32 = (4 * mh) / (3.142 * dh * dynh32)
Reh33 = (4 * mh) / (3.142 * dh * dynh33)
Reh34 = (4 * mh) / (3.142 * dh * dynh34)
Reh35 = (4 * mh) / (3.142 * dh * dynh35)
Reh36 = (4 * mh) / (3.142 * dh * dynh36)
Reh37 = (4 * mh) / (3.142 * dh * dynh37)
Reh38 = (4 * mh) / (3.142 * dh * dynh38)
Reh39 = (4 * mh) / (3.142 * dh * dynh39)
Reh310 = (4 * mh) / (3.142 * dh * dynh310)

Rec41 = (4 * mc) / (3.142 * dh * dync41)
Rec42 = (4 * mc) / (3.142 * dh * dync42)
Rec43 = (4 * mc) / (3.142 * dh * dync43)
Rec44 = (4 * mc) / (3.142 * dh * dync44)
Rec45 = (4 * mc) / (3.142 * dh * dync45)
Rec46 = (4 * mc) / (3.142 * dh * dync46)
Rec47 = (4 * mc) / (3.142 * dh * dync47)
Rec48 = (4 * mc) / (3.142 * dh * dync48)
Rec49 = (4 * mc) / (3.142 * dh * dync49)
Rec410 = (4 * mc) / (3.142 * dh * dync410)

Reh51 = (4 * mh) / (3.142 * dh * dynh51)
Reh52 = (4 * mh) / (3.142 * dh * dynh52)
Reh52 = (4 * mh) / (3.142 * dh * dynh52)
Reh53 = (4 * mh) / (3.142 * dh * dynh53)
Reh54 = (4 * mh) / (3.142 * dh * dynh54)
Reh55 = (4 * mh) / (3.142 * dh * dynh55)
Reh56 = (4 * mh) / (3.142 * dh * dynh56)
Reh57 = (4 * mh) / (3.142 * dh * dynh57)
Reh58 = (4 * mh) / (3.142 * dh * dynh58)
Reh59 = (4 * mh) / (3.142 * dh * dynh59)
Reh510 = (4 * mh) / (3.142 * dh * dynh510)

Rec61 = (4 * mc) / (3.142 * dh * dync61)
Rec62 = (4 * mc) / (3.142 * dh * dync62)
Rec63 = (4 * mc) / (3.142 * dh * dync63)
Rec64 = (4 * mc) / (3.142 * dh * dync64)
Rec65 = (4 * mc) / (3.142 * dh * dync65)
Rec66 = (4 * mc) / (3.142 * dh * dync66)
Rec67 = (4 * mc) / (3.142 * dh * dync67)
Rec68 = (4 * mc) / (3.142 * dh * dync68)
Rec69 = (4 * mc) / (3.142 * dh * dync69)
Rec610 = (4 * mc) / (3.142 * dh * dync610)

Reh71 = (4 * mh) / (3.142 * dh * dynh71)
Reh72 = (4 * mh) / (3.142 * dh * dynh72)
Reh72 = (4 * mh) / (3.142 * dh * dynh72)
Reh73 = (4 * mh) / (3.142 * dh * dynh73)
Reh74 = (4 * mh) / (3.142 * dh * dynh74)
Reh75 = (4 * mh) / (3.142 * dh * dynh75)
Reh76 = (4 * mh) / (3.142 * dh * dynh76)
Reh77 = (4 * mh) / (3.142 * dh * dynh77)
Reh78 = (4 * mh) / (3.142 * dh * dynh78)
Reh79 = (4 * mh) / (3.142 * dh * dynh79)
Reh710 = (4 * mh) / (3.142 * dh * dynh710)


Rec81 = (4 * mc) / (3.142 * dh * dync81)
Rec82 = (4 * mc) / (3.142 * dh * dync82)
Rec83 = (4 * mc) / (3.142 * dh * dync83)
Rec84 = (4 * mc) / (3.142 * dh * dync84)
Rec85 = (4 * mc) / (3.142 * dh * dync85)
Rec86 = (4 * mc) / (3.142 * dh * dync86)
Rec87 = (4 * mc) / (3.142 * dh * dync87)
Rec88 = (4 * mc) / (3.142 * dh * dync88)
Rec89 = (4 * mc) / (3.142 * dh * dync89)
Rec810 = (4 * mc) / (3.142 * dh * dync810)

Reh91 = (4 * mh) / (3.142 * dh * dynh91)
Reh92 = (4 * mh) / (3.142 * dh * dynh92)
Reh92 = (4 * mh) / (3.142 * dh * dynh92)
Reh93 = (4 * mh) / (3.142 * dh * dynh93)
Reh94 = (4 * mh) / (3.142 * dh * dynh94)
Reh95 = (4 * mh) / (3.142 * dh * dynh95)
Reh96 = (4 * mh) / (3.142 * dh * dynh96)
Reh97 = (4 * mh) / (3.142 * dh * dynh97)
Reh98 = (4 * mh) / (3.142 * dh * dynh98)
Reh99 = (4 * mh) / (3.142 * dh * dynh99)
Reh910 = (4 * mh) / (3.142 * dh * dynh910)


Rec101 = (4 * mc) / (3.142 * dh * dync101)
Rec102 = (4 * mc) / (3.142 * dh * dync102)
Rec103 = (4 * mc) / (3.142 * dh * dync103)
Rec104 = (4 * mc) / (3.142 * dh * dync104)
Rec105 = (4 * mc) / (3.142 * dh * dync105)
Rec106 = (4 * mc) / (3.142 * dh * dync106)
Rec107 = (4 * mc) / (3.142 * dh * dync107)
Rec108 = (4 * mc) / (3.142 * dh * dync108)
Rec109 = (4 * mc) / (3.142 * dh * dync109)
Rec1010 = (4 * mc) / (3.142 * dh * dync1010)

chx11 = (mh * ch11) / (XN / 2)
chx12 = (mh * ch12) / (XN / 2)
chx13 = (mh * ch13) / (XN / 2)
chx14 = (mh * ch14) / (XN / 2)
chx15 = (mh * ch15) / (XN / 2)
chx16 = (mh * ch16) / (XN / 2)
chx17 = (mh * ch17) / (XN / 2)
chx18 = (mh * ch18) / (XN / 2)
chx19 = (mh * ch19) / (XN / 2)
chx110 = (mh * ch110) / (XN / 2)


ccx21 = (mc * cc21) / (XN / 2)
ccx22 = (mc * cc22) / (XN / 2)
ccx23 = (mc * cc23) / (XN / 2)
ccx24 = (mc * cc24) / (XN / 2)
ccx25 = (mc * cc25) / (XN / 2)
ccx26 = (mc * cc26) / (XN / 2)
ccx27 = (mc * cc27) / (XN / 2)
ccx28 = (mc * cc28) / (XN / 2)
ccx29 = (mc * cc29) / (XN / 2)
ccx210 = (mc * cc210) / (XN / 2)

chx31 = (mh * ch31) / (XN / 2)
chx32 = (mh * ch32) / (XN / 2)
chx33 = (mh * ch33) / (XN / 2)
chx34 = (mh * ch34) / (XN / 2)
chx35 = (mh * ch35) / (XN / 2)
chx36 = (mh * ch36) / (XN / 2)
chx37 = (mh * ch37) / (XN / 2)
chx38 = (mh * ch38) / (XN / 2)
chx39 = (mh * ch39) / (XN / 2)
chx310 = (mh * ch310) / (XN / 2)


ccx41 = (mc * cc41) / (XN / 2)
ccx42 = (mc * cc42) / (XN / 2)
ccx43 = (mc * cc43) / (XN / 2)
ccx44 = (mc * cc44) / (XN / 2)
ccx45 = (mc * cc45) / (XN / 2)
ccx46 = (mc * cc46) / (XN / 2)
ccx47 = (mc * cc47) / (XN / 2)
ccx48 = (mc * cc48) / (XN / 2)
ccx49 = (mc * cc49) / (XN / 2)
ccx410 = (mc * cc410) / (XN / 2)

chx51 = (mh * ch51) / (XN / 2)
chx52 = (mh * ch52) / (XN / 2)
chx53 = (mh * ch53) / (XN / 2)
chx54 = (mh * ch54) / (XN / 2)
chx55 = (mh * ch55) / (XN / 2)
chx56 = (mh * ch56) / (XN / 2)
chx57 = (mh * ch57) / (XN / 2)
chx58 = (mh * ch58) / (XN / 2)
chx59 = (mh * ch59) / (XN / 2)
chx510 = (mh * ch510) / (XN / 2)


ccx61 = (mc * cc61) / (XN / 2)
ccx62 = (mc * cc62) / (XN / 2)
ccx63 = (mc * cc63) / (XN / 2)
ccx64 = (mc * cc64) / (XN / 2)
ccx65 = (mc * cc65) / (XN / 2)
ccx66 = (mc * cc66) / (XN / 2)
ccx67 = (mc * cc67) / (XN / 2)
ccx68 = (mc * cc68) / (XN / 2)
ccx69 = (mc * cc69) / (XN / 2)
ccx610 = (mc * cc610) / (XN / 2)

chx71 = (mh * ch71) / (XN / 2)
chx72 = (mh * ch72) / (XN / 2)
chx73 = (mh * ch73) / (XN / 2)
chx74 = (mh * ch74) / (XN / 2)
chx75 = (mh * ch75) / (XN / 2)
chx76 = (mh * ch76) / (XN / 2)
chx77 = (mh * ch77) / (XN / 2)
chx78 = (mh * ch78) / (XN / 2)
chx79 = (mh * ch79) / (XN / 2)
chx710 = (mh * ch710) / (XN / 2)


ccx81 = (mc * cc81) / (XN / 2)
ccx82 = (mc * cc82) / (XN / 2)
ccx83 = (mc * cc83) / (XN / 2)
ccx84 = (mc * cc84) / (XN / 2)
ccx85 = (mc * cc85) / (XN / 2)
ccx86 = (mc * cc86) / (XN / 2)
ccx87 = (mc * cc87) / (XN / 2)
ccx88 = (mc * cc88) / (XN / 2)
ccx89 = (mc * cc89) / (XN / 2)
ccx810 = (mc * cc810) / (XN / 2)

chx91 = (mh * ch91) / (XN / 2)
chx92 = (mh * ch92) / (XN / 2)
chx93 = (mh * ch93) / (XN / 2)
chx94 = (mh * ch94) / (XN / 2)
chx95 = (mh * ch95) / (XN / 2)
chx96 = (mh * ch96) / (XN / 2)
chx97 = (mh * ch97) / (XN / 2)
chx98 = (mh * ch98) / (XN / 2)
chx99 = (mh * ch99) / (XN / 2)
chx910 = (mh * ch910) / (XN / 2)


ccx101 = (mc * cc101) / (XN / 2)
ccx102 = (mc * cc102) / (XN / 2)
ccx103 = (mc * cc103) / (XN / 2)
ccx104 = (mc * cc104) / (XN / 2)
ccx105 = (mc * cc105) / (XN / 2)
ccx106 = (mc * cc106) / (XN / 2)
ccx107 = (mc * cc107) / (XN / 2)
ccx108 = (mc * cc108) / (XN / 2)
ccx109 = (mc * cc109) / (XN / 2)
ccx1010 = (mc * cc1010) / (XN / 2)





hh11 = (Nuh * kh11) / (dh)
hh12 = (Nuh * kh12) / (dh)
hh13 = (Nuh * kh13) / (dh)
hh14 = (Nuh * kh14) / (dh)
hh15 = (Nuh * kh15) / (dh)
hh16 = (Nuh * kh16) / (dh)
hh17 = (Nuh * kh17) / (dh)
hh18 = (Nuh * kh18) / (dh)
hh19 = (Nuh * kh19) / (dh)
hh110 = (Nuh * kh110) / (dh)

hc21 = (Nuc * kc21) / (dh)
hc22 = (Nuc * kc22) / (dh)
hc23 = (Nuc * kc23) / (dh)
hc24 = (Nuc * kc24) / (dh)
hc25 = (Nuc * kc25) / (dh)
hc26 = (Nuc * kc26) / (dh)
hc27 = (Nuc * kc27) / (dh)
hc28 = (Nuc * kc28) / (dh)
hc29 = (Nuc * kc29) / (dh)
hc210 = (Nuc * kc210) / (dh)

hh31 = (Nuh * kh31) / (dh)
hh32 = (Nuh * kh32) / (dh)
hh33 = (Nuh * kh33) / (dh)
hh34 = (Nuh * kh34) / (dh)
hh35 = (Nuh * kh35) / (dh)
hh36 = (Nuh * kh36) / (dh)
hh37 = (Nuh * kh37) / (dh)
hh38 = (Nuh * kh38) / (dh)
hh39 = (Nuh * kh39) / (dh)
hh310 = (Nuh * kh310) / (dh)

hc41 = (Nuc * kc41) / (dh)
hc42 = (Nuc * kc42) / (dh)
hc43 = (Nuc * kc43) / (dh)
hc44 = (Nuc * kc44) / (dh)
hc25 = (Nuc * kc45) / (dh)
hc46 = (Nuc * kc46) / (dh)
hc47 = (Nuc * kc47) / (dh)
hc48 = (Nuc * kc48) / (dh)
hc49 = (Nuc * kc49) / (dh)
hc410 = (Nuc * kc410) / (dh)



hh51 = (Nuh * kh51) / (dh)
hh52 = (Nuh * kh52) / (dh)
hh53 = (Nuh * kh53) / (dh)
hh54 = (Nuh * kh54) / (dh)
hh55 = (Nuh * kh55) / (dh)
hh56 = (Nuh * kh56) / (dh)
hh57 = (Nuh * kh57) / (dh)
hh58 = (Nuh * kh58) / (dh)
hh59 = (Nuh * kh59) / (dh)
hh510 = (Nuh * kh510) / (dh)

hc61 = (Nuc * kc61) / (dh)
hc62 = (Nuc * kc62) / (dh)
hc63 = (Nuc * kc63) / (dh)
hc64 = (Nuc * kc64) / (dh)
hc65 = (Nuc * kc65) / (dh)
hc66 = (Nuc * kc66) / (dh)
hc67 = (Nuc * kc67) / (dh)
hc68 = (Nuc * kc68) / (dh)
hc69 = (Nuc * kc69) / (dh)
hc610 = (Nuc * kc610) / (dh)

hh71 = (Nuh * kh71) / (dh)
hh72 = (Nuh * kh72) / (dh)
hh73 = (Nuh * kh73) / (dh)
hh74 = (Nuh * kh74) / (dh)
hh75 = (Nuh * kh75) / (dh)
hh76 = (Nuh * kh76) / (dh)
hh77 = (Nuh * kh77) / (dh)
hh78 = (Nuh * kh78) / (dh)
hh79 = (Nuh * kh79) / (dh)
hh710 = (Nuh * kh710) / (dh)


hc81 = (Nuc * kc81) / (dh)
hc82 = (Nuc * kc82) / (dh)
hc83 = (Nuc * kc83) / (dh)
hc84 = (Nuc * kc84) / (dh)
hc85 = (Nuc * kc85) / (dh)
hc86 = (Nuc * kc86) / (dh)
hc87 = (Nuc * kc87) / (dh)
hc88 = (Nuc * kc88) / (dh)
hc89 = (Nuc * kc89) / (dh)
hc810 = (Nuc * kc810) / (dh)


hh91 = (Nuh * kh91) / (dh)
hh92 = (Nuh * kh92) / (dh)
hh93 = (Nuh * kh93) / (dh)
hh94 = (Nuh * kh94) / (dh)
hh95 = (Nuh * kh95) / (dh)
hh96 = (Nuh * kh96) / (dh)
hh97 = (Nuh * kh97) / (dh)
hh98 = (Nuh * kh98) / (dh)
hh99 = (Nuh * kh99) / (dh)
hh910 = (Nuh * kh910) / (dh)

hc101 = (Nuc * kc101) / (dh)
hc102 = (Nuc * kc102) / (dh)
hc103 = (Nuc * kc103) / (dh)
hc104 = (Nuc * kc104) / (dh)
hc105 = (Nuc * kc105) / (dh)
hc106 = (Nuc * kc106) / (dh)
hc107 = (Nuc * kc107) / (dh)
hc108 = (Nuc * kc108) / (dh)
hc109 = (Nuc * kc109) / (dh)
hc1010 = (Nuc * kc1010) / (dh)



U11 = ((1) / ((1 / hh11) + (Xw / Kw) + (1 / hc21)))
U12 = ((1) / ((1 / hh12) + (Xw / Kw) + (1 / hc22)))
U13 = ((1) / ((1 / hh13) + (Xw / Kw) + (1 / hc23)))
U14 = ((1) / ((1 / hh14) + (Xw / Kw) + (1 / hc24)))
U15 = ((1) / ((1 / hh15) + (Xw / Kw) + (1 / hc25)))
U16 = ((1) / ((1 / hh16) + (Xw / Kw) + (1 / hc26)))
U17 = ((1) / ((1 / hh17) + (Xw / Kw) + (1 / hc27)))
U18 = ((1) / ((1 / hh18) + (Xw / Kw) + (1 / hc28)))
U19 = ((1) / ((1 / hh19) + (Xw / Kw) + (1 / hc29)))
U110 = ((1) / ((1 / hh110) + (Xw / Kw) + (1 / hc210)))


U21 = ((1) / ((1 / hc21) + (Xw / Kw) + (1 / hh31)))
U22 = ((1) / ((1 / hc22) + (Xw / Kw) + (1 / hh32)))
U23 = ((1) / ((1 / hc23) + (Xw / Kw) + (1 / hh33)))
U24 = ((1) / ((1 / hc24) + (Xw / Kw) + (1 / hh34)))
U25 = ((1) / ((1 / hc25) + (Xw / Kw) + (1 / hh35)))
U26 = ((1) / ((1 / hc26) + (Xw / Kw) + (1 / hh36)))
U27 = ((1) / ((1 / hc27) + (Xw / Kw) + (1 / hh37)))
U28 = ((1) / ((1 / hc28) + (Xw / Kw) + (1 / hh38)))
U29 = ((1) / ((1 / hc29) + (Xw / Kw) + (1 / hh39)))
U210 = ((1) / ((1 / hc210) + (Xw / Kw) + (1 / hh310)))

U31 = ((1) / ((1 / hh31) + (Xw / Kw) + (1 / hc41)))
U32 = ((1) / ((1 / hh32) + (Xw / Kw) + (1 / hc42)))
U33 = ((1) / ((1 / hh33) + (Xw / Kw) + (1 / hc43)))
U34 = ((1) / ((1 / hh34) + (Xw / Kw) + (1 / hc44)))
U35 = ((1) / ((1 / hh35) + (Xw / Kw) + (1 / hc45)))
U36 = ((1) / ((1 / hh36) + (Xw / Kw) + (1 / hc46)))
U37 = ((1) / ((1 / hh37) + (Xw / Kw) + (1 / hc47)))
U38 = ((1) / ((1 / hh38) + (Xw / Kw) + (1 / hc48)))
U39 = ((1) / ((1 / hh39) + (Xw / Kw) + (1 / hc49)))
U310 = ((1) / ((1 / hh310) + (Xw / Kw) + (1 / hc410)))

U41 = ((1) / ((1 / hc41) + (Xw / Kw) + (1 / hh51)))
U42 = ((1) / ((1 / hc42) + (Xw / Kw) + (1 / hh52)))
U43 = ((1) / ((1 / hc43) + (Xw / Kw) + (1 / hh53)))
U44 = ((1) / ((1 / hc44) + (Xw / Kw) + (1 / hh54)))
U45 = ((1) / ((1 / hc45) + (Xw / Kw) + (1 / hh55)))
U46 = ((1) / ((1 / hc46) + (Xw / Kw) + (1 / hh56)))
U47 = ((1) / ((1 / hc47) + (Xw / Kw) + (1 / hh57)))
U48 = ((1) / ((1 / hc48) + (Xw / Kw) + (1 / hh58)))
U49 = ((1) / ((1 / hc49) + (Xw / Kw) + (1 / hh59)))
U410 = ((1) / ((1 / hc410) + (Xw / Kw) + (1 / hh510)))

U51 = ((1) / ((1 / hh51) + (Xw / Kw) + (1 / hc61)))
U52 = ((1) / ((1 / hh52) + (Xw / Kw) + (1 / hc62)))
U53 = ((1) / ((1 / hh53) + (Xw / Kw) + (1 / hc63)))
U54 = ((1) / ((1 / hh54) + (Xw / Kw) + (1 / hc64)))
U55 = ((1) / ((1 / hh55) + (Xw / Kw) + (1 / hc65)))
U56 = ((1) / ((1 / hh56) + (Xw / Kw) + (1 / hc66)))
U57 = ((1) / ((1 / hh57) + (Xw / Kw) + (1 / hc67)))
U58 = ((1) / ((1 / hh58) + (Xw / Kw) + (1 / hc68)))
U59 = ((1) / ((1 / hh59) + (Xw / Kw) + (1 / hc69)))
U510 = ((1) / ((1 / hh510) + (Xw / Kw) + (1 / hc610)))

U61 = ((1) / ((1 / hc61) + (Xw / Kw) + (1 / hh71)))
U62 = ((1) / ((1 / hc62) + (Xw / Kw) + (1 / hh72)))
U63 = ((1) / ((1 / hc63) + (Xw / Kw) + (1 / hh73)))
U64 = ((1) / ((1 / hc64) + (Xw / Kw) + (1 / hh74)))
U65 = ((1) / ((1 / hc65) + (Xw / Kw) + (1 / hh75)))
U66 = ((1) / ((1 / hc66) + (Xw / Kw) + (1 / hh76)))
U67 = ((1) / ((1 / hc67) + (Xw / Kw) + (1 / hh77)))
U68 = ((1) / ((1 / hc68) + (Xw / Kw) + (1 / hh78)))
U69 = ((1) / ((1 / hc69) + (Xw / Kw) + (1 / hh79)))
U610 = ((1) / ((1 / hc610) + (Xw / Kw) + (1 / hh710)))

U71 = ((1) / ((1 / hh71) + (Xw / Kw) + (1 / hc81)))
U72 = ((1) / ((1 / hh72) + (Xw / Kw) + (1 / hc82)))
U73 = ((1) / ((1 / hh73) + (Xw / Kw) + (1 / hc83)))
U74 = ((1) / ((1 / hh74) + (Xw / Kw) + (1 / hc84)))
U75 = ((1) / ((1 / hh75) + (Xw / Kw) + (1 / hc85)))
U76 = ((1) / ((1 / hh76) + (Xw / Kw) + (1 / hc86)))
U77 = ((1) / ((1 / hh77) + (Xw / Kw) + (1 / hc87)))
U78 = ((1) / ((1 / hh78) + (Xw / Kw) + (1 / hc88)))
U79 = ((1) / ((1 / hh79) + (Xw / Kw) + (1 / hc89)))
U710 = ((1) / ((1 / hh710) + (Xw / Kw) + (1 / hc810)))

U81 = ((1) / ((1 / hc81) + (Xw / Kw) + (1 / hh91)))
U82 = ((1) / ((1 / hc82) + (Xw / Kw) + (1 / hh92)))
U83 = ((1) / ((1 / hc83) + (Xw / Kw) + (1 / hh93)))
U84 = ((1) / ((1 / hc84) + (Xw / Kw) + (1 / hh94)))
U85 = ((1) / ((1 / hc85) + (Xw / Kw) + (1 / hh95)))
U86 = ((1) / ((1 / hc86) + (Xw / Kw) + (1 / hh96)))
U87 = ((1) / ((1 / hc87) + (Xw / Kw) + (1 / hh97)))
U88 = ((1) / ((1 / hc88) + (Xw / Kw) + (1 / hh98)))
U89 = ((1) / ((1 / hc89) + (Xw / Kw) + (1 / hh99)))
U810 = ((1) / ((1 / hc810) + (Xw / Kw) + (1 / hh910)))

U91 = ((1) / ((1 / hh91) + (Xw / Kw) + (1 / hc101)))
U92 = ((1) / ((1 / hh92) + (Xw / Kw) + (1 / hc102)))
U93 = ((1) / ((1 / hh93) + (Xw / Kw) + (1 / hc103)))
U94 = ((1) / ((1 / hh94) + (Xw / Kw) + (1 / hc104)))
U95 = ((1) / ((1 / hh95) + (Xw / Kw) + (1 / hc105)))
U96 = ((1) / ((1 / hh96) + (Xw / Kw) + (1 / hc106)))
U97 = ((1) / ((1 / hh97) + (Xw / Kw) + (1 / hc107)))
U98 = ((1) / ((1 / hh98) + (Xw / Kw) + (1 / hc108)))
U99 = ((1) / ((1 / hh99) + (Xw / Kw) + (1 / hc109)))
U910 = ((1) / ((1 / hh910) + (Xw / Kw) + (1 / hc1010)))


Axy = Area / ((XN - 1) * 10)
Let Th12 = 0 'using JACOBI'S Method
Th13 = 0
Th14 = 0
Th15 = 0
Th16 = 0
Th17 = 0
Th18 = 0
Th19 = 0
Th110 = 0
Th111 = 0


Tc21 = 0
Tc22 = 0
Tc23 = 0
Tc24 = 0
Tc25 = 0
Tc26 = 0
Tc27 = 0
Tc28 = 0
Tc29 = 0
Tc210 = 0

Th32 = 0
Th33 = 0
Th34 = 0
Th35 = 0
Th36 = 0
Th37 = 0
Th38 = 0
Th39 = 0
Th310 = 0
Th311 = 0

Tc41 = 0
Tc42 = 0
Tc43 = 0
Tc44 = 0
Tc45 = 0
Tc46 = 0
Tc47 = 0
Tc48 = 0
Tc49 = 0
Tc410 = 0

Th52 = 0
Th53 = 0
Th54 = 0
Th55 = 0
Th56 = 0
Th57 = 0
Th58 = 0
Th59 = 0
Th510 = 0
Th511 = 0

Tc61 = 0
Tc62 = 0
Tc63 = 0
Tc64 = 0
Tc65 = 0
Tc66 = 0
Tc67 = 0
Tc68 = 0
Tc69 = 0
Tc610 = 0

Th72 = 0
Th73 = 0
Th74 = 0
Th75 = 0
Th76 = 0
Th77 = 0
Th78 = 0
Th79 = 0
Th710 = 0
Th711 = 0

Tc81 = 0
Tc82 = 0
Tc83 = 0
Tc84 = 0
Tc85 = 0
Tc86 = 0
Tc87 = 0
Tc88 = 0
Tc89 = 0
Tc810 = 0

Th92 = 0
Th93 = 0
Th94 = 0
Th95 = 0
Th96 = 0
Th97 = 0
Th98 = 0
Th99 = 0
Th910 = 0
Th911 = 0

Tc101 = 0
Tc102 = 0
Tc103 = 0
Tc104 = 0
Tc105 = 0
Tc106 = 0
Tc107 = 0
Tc108 = 0
Tc109 = 0
Tc1010 = 0

For O = 1 To 500
Th121 = ((Thin * (chx11 - ((U11 * Axy) / 2))) + (((U11 * Axy) / 2) * (Tc21 + Tc22))) / (chx11 + ((U11 * Axy) / 2))
Th131 = ((Th12 * (chx12 - ((U12 * Axy) / 2))) + (((U12 * Axy) / 2) * (Tc22 + Tc23))) / (chx12 + ((U12 * Axy) / 2))
Th141 = ((Th13 * (chx13 - ((U13 * Axy) / 2))) + (((U13 * Axy) / 2) * (Tc23 + Tc24))) / (chx13 + ((U13 * Axy) / 2))
Th151 = ((Th14 * (chx14 - ((U14 * Axy) / 2))) + (((U14 * Axy) / 2) * (Tc24 + Tc25))) / (chx14 + ((U14 * Axy) / 2))
Th161 = ((Th15 * (chx15 - ((U15 * Axy) / 2))) + (((U15 * Axy) / 2) * (Tc25 + Tc26))) / (chx15 + ((U15 * Axy) / 2))
Th171 = ((Th16 * (chx16 - ((U16 * Axy) / 2))) + (((U16 * Axy) / 2) * (Tc26 + Tc27))) / (chx16 + ((U16 * Axy) / 2))
Th181 = ((Th17 * (chx17 - ((U17 * Axy) / 2))) + (((U17 * Axy) / 2) * (Tc27 + Tc28))) / (chx17 + ((U17 * Axy) / 2))
Th191 = ((Th18 * (chx18 - ((U18 * Axy) / 2))) + (((U18 * Axy) / 2) * (Tc28 + Tc29))) / (chx18 + ((U18 * Axy) / 2))
Th1101 = ((Th19 * (chx19 - ((U19 * Axy) / 2))) + (((U19 * Axy) / 2) * (Tc29 + Tc210))) / (chx19 + ((U19 * Axy) / 2))
Th1111 = ((Th110 * (chx110 - ((U110 * Axy) / 2))) + (((U110 * Axy) / 2) * (Tc210 + Tcin))) / (chx110 + ((U110 * Axy) / 2))

Tc211 = (((Tc22 * (ccx21 - (Axy / 2 * (U11 + U21)))) + ((U11 * Axy / 2) * (Thin + Th12)) + ((U21 * Axy / 2) * (Thin + Th32)))) / (ccx21 + (Axy / 2 * (U11 + U21)))
Tc221 = (((Tc23 * (ccx22 - (Axy / 2 * (U12 + U22)))) + ((U12 * Axy / 2) * (Th12 + Th13)) + ((U22 * Axy / 2) * (Th32 + Th33)))) / (ccx22 + (Axy / 2 * (U12 + U22)))
Tc231 = (((Tc24 * (ccx23 - (Axy / 2 * (U13 + U23)))) + ((U13 * Axy / 2) * (Th13 + Th14)) + ((U23 * Axy / 2) * (Th33 + Th34)))) / (ccx23 + (Axy / 2 * (U13 + U23)))
Tc241 = (((Tc25 * (ccx24 - (Axy / 2 * (U14 + U24)))) + ((U14 * Axy / 2) * (Th14 + Th15)) + ((U24 * Axy / 2) * (Th34 + Th35)))) / (ccx24 + (Axy / 2 * (U14 + U24)))
Tc251 = (((Tc26 * (ccx25 - (Axy / 2 * (U15 + U25)))) + ((U15 * Axy / 2) * (Th15 + Th16)) + ((U25 * Axy / 2) * (Th35 + Th36)))) / (ccx25 + (Axy / 2 * (U15 + U25)))
Tc261 = (((Tc27 * (ccx26 - (Axy / 2 * (U16 + U26)))) + ((U16 * Axy / 2) * (Th16 + Th17)) + ((U26 * Axy / 2) * (Th36 + Th37)))) / (ccx26 + (Axy / 2 * (U16 + U26)))
Tc271 = (((Tc28 * (ccx27 - (Axy / 2 * (U17 + U27)))) + ((U17 * Axy / 2) * (Th17 + Th18)) + ((U27 * Axy / 2) * (Th37 + Th38)))) / (ccx27 + (Axy / 2 * (U17 + U27)))
Tc281 = (((Tc29 * (ccx28 - (Axy / 2 * (U18 + U28)))) + ((U18 * Axy / 2) * (Th18 + Th19)) + ((U28 * Axy / 2) * (Th38 + Th39)))) / (ccx28 + (Axy / 2 * (U18 + U28)))
Tc291 = (((Tc210 * (ccx29 - (Axy / 2 * (U19 + U29)))) + ((U19 * Axy / 2) * (Th19 + Th110)) + ((U29 * Axy / 2) * (Th39 + Th310)))) / (ccx29 + (Axy / 2 * (U19 + U29)))
Tc2101 = (((Tcin * (ccx210 - (Axy / 2 * (U110 + U210)))) + ((U110 * Axy / 2) * (Th110 + Th111)) + ((U210 * Axy / 2) * (Th310 + Th311)))) / (ccx210 + (Axy / 2 * (U110 + U210)))



Th321 = (((Thin * (chx31 - ((Axy / 2 * (U21 + U31)))) + ((U21 * Axy / 2) * (Tc21 + Tc22)) + ((U31 * Axy / 2) * (Tc41 + Tc42))))) / ((chx31 + (Axy / 2 * (U21 + U31))))
Th331 = (((Th32 * (chx32 - ((Axy / 2 * (U22 + U32)))) + ((U22 * Axy / 2) * (Tc22 + Tc23)) + ((U32 * Axy / 2) * (Tc42 + Tc43))))) / ((chx32 + (Axy / 2 * (U22 + U32))))
Th341 = (((Th33 * (chx33 - ((Axy / 2 * (U23 + U33)))) + ((U23 * Axy / 2) * (Tc23 + Tc24)) + ((U33 * Axy / 2) * (Tc43 + Tc44))))) / ((chx33 + (Axy / 2 * (U23 + U33))))
Th351 = (((Th34 * (chx34 - ((Axy / 2 * (U24 + U34)))) + ((U24 * Axy / 2) * (Tc24 + Tc25)) + ((U34 * Axy / 2) * (Tc44 + Tc45))))) / ((chx34 + (Axy / 2 * (U24 + U34))))
Th361 = (((Th35 * (chx35 - ((Axy / 2 * (U25 + U35)))) + ((U25 * Axy / 2) * (Tc25 + Tc26)) + ((U35 * Axy / 2) * (Tc45 + Tc46))))) / ((chx35 + (Axy / 2 * (U25 + U35))))
Th371 = (((Th36 * (chx36 - ((Axy / 2 * (U26 + U36)))) + ((U26 * Axy / 2) * (Tc26 + Tc27)) + ((U36 * Axy / 2) * (Tc46 + Tc47))))) / ((chx36 + (Axy / 2 * (U26 + U36))))
Th381 = (((Th37 * (chx37 - ((Axy / 2 * (U27 + U37)))) + ((U27 * Axy / 2) * (Tc27 + Tc28)) + ((U37 * Axy / 2) * (Tc47 + Tc48))))) / ((chx37 + (Axy / 2 * (U27 + U37))))
Th391 = (((Th38 * (chx38 - ((Axy / 2 * (U28 + U38)))) + ((U28 * Axy / 2) * (Tc28 + Tc29)) + ((U38 * Axy / 2) * (Tc48 + Tc49))))) / ((chx38 + (Axy / 2 * (U28 + U38))))
Th3101 = (((Th39 * (chx39 - ((Axy / 2 * (U29 + U39)))) + ((U29 * Axy / 2) * (Tc29 + Tc210)) + ((U39 * Axy / 2) * (Tc49 + Tc410))))) / ((chx39 + (Axy / 2 * (U29 + U39))))
Th3111 = (((Th310 * (chx310 - ((Axy / 2 * (U210 + U310)))) + ((U210 * Axy / 2) * (Tc210 + Tcin)) + ((U310 * Axy / 2) * (Tc410 + Tcin))))) / ((chx310 + (Axy / 2 * (U210 + U311))))


Tc411 = (((Tc42 * (ccx41 - (Axy / 2 * (U31 + U41)))) + ((U31 * Axy / 2) * (Thin + Th32)) + ((U41 * Axy / 2) * (Thin + Th52)))) / (ccx41 + (Axy / 2 * (U31 + U41)))
Tc421 = (((Tc43 * (ccx42 - (Axy / 2 * (U32 + U42)))) + ((U32 * Axy / 2) * (Th32 + Th33)) + ((U42 * Axy / 2) * (Th52 + Th53)))) / (ccx42 + (Axy / 2 * (U32 + U42)))
Tc431 = (((Tc44 * (ccx43 - (Axy / 2 * (U33 + U43)))) + ((U33 * Axy / 2) * (Th33 + Th34)) + ((U43 * Axy / 2) * (Th53 + Th54)))) / (ccx43 + (Axy / 2 * (U33 + U43)))
Tc441 = (((Tc45 * (ccx44 - (Axy / 2 * (U34 + U44)))) + ((U34 * Axy / 2) * (Th34 + Th35)) + ((U44 * Axy / 2) * (Th54 + Th55)))) / (ccx44 + (Axy / 2 * (U34 + U44)))
Tc451 = (((Tc46 * (ccx45 - (Axy / 2 * (U35 + U45)))) + ((U35 * Axy / 2) * (Th35 + Th36)) + ((U45 * Axy / 2) * (Th55 + Th56)))) / (ccx45 + (Axy / 2 * (U35 + U45)))
Tc461 = (((Tc47 * (ccx46 - (Axy / 2 * (U36 + U46)))) + ((U36 * Axy / 2) * (Th36 + Th37)) + ((U46 * Axy / 2) * (Th56 + Th57)))) / (ccx46 + (Axy / 2 * (U36 + U46)))
Tc471 = (((Tc48 * (ccx47 - (Axy / 2 * (U37 + U47)))) + ((U37 * Axy / 2) * (Th37 + Th38)) + ((U47 * Axy / 2) * (Th57 + Th58)))) / (ccx47 + (Axy / 2 * (U37 + U47)))
Tc481 = (((Tc49 * (ccx48 - (Axy / 2 * (U38 + U48)))) + ((U38 * Axy / 2) * (Th38 + Th39)) + ((U48 * Axy / 2) * (Th58 + Th59)))) / (ccx48 + (Axy / 2 * (U38 + U48)))
Tc491 = (((Tc410 * (ccx49 - (Axy / 2 * (U39 + U49)))) + ((U39 * Axy / 2) * (Th39 + Th310)) + ((U49 * Axy / 2) * (Th59 + Th510)))) / (ccx49 + (Axy / 2 * (U39 + U49)))
Tc4101 = (((Tcin * (ccx410 - (Axy / 2 * (U310 + U410)))) + ((U310 * Axy / 2) * (Th310 + Th311)) + ((U410 * Axy / 2) * (Th510 + Th511)))) / (ccx410 + (Axy / 2 * (U310 + U410)))


Th521 = (((Thin * (chx51 - ((Axy / 2 * (U41 + U51)))) + ((U41 * Axy / 2) * (Tc41 + Tc42)) + ((U51 * Axy / 2) * (Tc61 + Tc62))))) / ((chx51 + (Axy / 2 * (U41 + U51))))
Th531 = (((Th52 * (chx52 - ((Axy / 2 * (U42 + U52)))) + ((U42 * Axy / 2) * (Tc42 + Tc43)) + ((U52 * Axy / 2) * (Tc62 + Tc63))))) / ((chx52 + (Axy / 2 * (U42 + U52))))
Th541 = (((Th53 * (chx53 - ((Axy / 2 * (U43 + U53)))) + ((U43 * Axy / 2) * (Tc43 + Tc44)) + ((U53 * Axy / 2) * (Tc63 + Tc64))))) / ((chx53 + (Axy / 2 * (U43 + U53))))
Th551 = (((Th54 * (chx54 - ((Axy / 2 * (U44 + U54)))) + ((U44 * Axy / 2) * (Tc44 + Tc45)) + ((U54 * Axy / 2) * (Tc64 + Tc65))))) / ((chx54 + (Axy / 2 * (U44 + U54))))
Th561 = (((Th55 * (chx55 - ((Axy / 2 * (U45 + U55)))) + ((U45 * Axy / 2) * (Tc45 + Tc46)) + ((U55 * Axy / 2) * (Tc65 + Tc66))))) / ((chx55 + (Axy / 2 * (U45 + U55))))
Th571 = (((Th56 * (chx56 - ((Axy / 2 * (U46 + U56)))) + ((U46 * Axy / 2) * (Tc46 + Tc47)) + ((U56 * Axy / 2) * (Tc66 + Tc67))))) / ((chx56 + (Axy / 2 * (U46 + U56))))
Th581 = (((Th57 * (chx57 - ((Axy / 2 * (U47 + U57)))) + ((U47 * Axy / 2) * (Tc47 + Tc48)) + ((U57 * Axy / 2) * (Tc67 + Tc68))))) / ((chx57 + (Axy / 2 * (U47 + U57))))
Th591 = (((Th58 * (chx58 - ((Axy / 2 * (U48 + U58)))) + ((U48 * Axy / 2) * (Tc48 + Tc49)) + ((U58 * Axy / 2) * (Tc68 + Tc69))))) / ((chx58 + (Axy / 2 * (U48 + U58))))
Th5101 = (((Th59 * (chx59 - ((Axy / 2 * (U49 + U59)))) + ((U49 * Axy / 2) * (Tc49 + Tc410)) + ((U59 * Axy / 2) * (Tc69 + Tc610))))) / ((chx59 + (Axy / 2 * (U49 + U59))))
Th5111 = (((Th510 * (chx510 - ((Axy / 2 * (U410 + U510)))) + ((U410 * Axy / 2) * (Tc410 + Tcin)) + ((U510 * Axy / 2) * (Tc610 + Tcin))))) / ((chx510 + (Axy / 2 * (U410 + U511))))


Tc611 = (((Tc62 * (ccx61 - (Axy / 2 * (U51 + U61)))) + ((U51 * Axy / 2) * (Thin + Th52)) + ((U61 * Axy / 2) * (Thin + Th72)))) / (ccx61 + (Axy / 2 * (U51 + U61)))
Tc621 = (((Tc63 * (ccx62 - (Axy / 2 * (U52 + U62)))) + ((U52 * Axy / 2) * (Th52 + Th53)) + ((U62 * Axy / 2) * (Th72 + Th73)))) / (ccx62 + (Axy / 2 * (U52 + U62)))
Tc631 = (((Tc64 * (ccx63 - (Axy / 2 * (U53 + U63)))) + ((U53 * Axy / 2) * (Th53 + Th54)) + ((U63 * Axy / 2) * (Th73 + Th74)))) / (ccx63 + (Axy / 2 * (U53 + U63)))
Tc641 = (((Tc65 * (ccx64 - (Axy / 2 * (U54 + U64)))) + ((U54 * Axy / 2) * (Th54 + Th55)) + ((U64 * Axy / 2) * (Th74 + Th75)))) / (ccx64 + (Axy / 2 * (U54 + U64)))
Tc651 = (((Tc66 * (ccx65 - (Axy / 2 * (U55 + U65)))) + ((U55 * Axy / 2) * (Th55 + Th56)) + ((U65 * Axy / 2) * (Th75 + Th76)))) / (ccx65 + (Axy / 2 * (U55 + U65)))
Tc661 = (((Tc67 * (ccx66 - (Axy / 2 * (U56 + U66)))) + ((U56 * Axy / 2) * (Th56 + Th57)) + ((U66 * Axy / 2) * (Th76 + Th77)))) / (ccx66 + (Axy / 2 * (U56 + U66)))
Tc671 = (((Tc68 * (ccx67 - (Axy / 2 * (U57 + U67)))) + ((U57 * Axy / 2) * (Th57 + Th58)) + ((U67 * Axy / 2) * (Th77 + Th78)))) / (ccx67 + (Axy / 2 * (U57 + U67)))
Tc681 = (((Tc69 * (ccx68 - (Axy / 2 * (U58 + U68)))) + ((U58 * Axy / 2) * (Th58 + Th59)) + ((U68 * Axy / 2) * (Th78 + Th79)))) / (ccx68 + (Axy / 2 * (U58 + U68)))
Tc691 = (((Tc610 * (ccx69 - (Axy / 2 * (U59 + U69)))) + ((U59 * Axy / 2) * (Th59 + Th510)) + ((U69 * Axy / 2) * (Th79 + Th710)))) / (ccx69 + (Axy / 2 * (U59 + U69)))
Tc6101 = (((Tcin * (ccx610 - (Axy / 2 * (U510 + U610)))) + ((U510 * Axy / 2) * (Th510 + Th511)) + ((U610 * Axy / 2) * (Th710 + Th711)))) / (ccx610 + (Axy / 2 * (U510 + U610)))


Th721 = (((Thin * (chx71 - ((Axy / 2 * (U61 + U71)))) + ((U61 * Axy / 2) * (Tc61 + Tc62)) + ((U71 * Axy / 2) * (Tc81 + Tc82))))) / ((chx71 + (Axy / 2 * (U61 + U71))))
Th731 = (((Th72 * (chx72 - ((Axy / 2 * (U62 + U72)))) + ((U62 * Axy / 2) * (Tc62 + Tc63)) + ((U72 * Axy / 2) * (Tc82 + Tc83))))) / ((chx72 + (Axy / 2 * (U62 + U72))))
Th741 = (((Th73 * (chx73 - ((Axy / 2 * (U63 + U73)))) + ((U63 * Axy / 2) * (Tc63 + Tc64)) + ((U73 * Axy / 2) * (Tc83 + Tc84))))) / ((chx73 + (Axy / 2 * (U63 + U73))))
Th751 = (((Th74 * (chx74 - ((Axy / 2 * (U64 + U74)))) + ((U64 * Axy / 2) * (Tc64 + Tc65)) + ((U74 * Axy / 2) * (Tc84 + Tc85))))) / ((chx74 + (Axy / 2 * (U64 + U74))))
Th761 = (((Th75 * (chx75 - ((Axy / 2 * (U65 + U75)))) + ((U65 * Axy / 2) * (Tc65 + Tc66)) + ((U75 * Axy / 2) * (Tc85 + Tc86))))) / ((chx75 + (Axy / 2 * (U65 + U75))))
Th771 = (((Th76 * (chx76 - ((Axy / 2 * (U66 + U76)))) + ((U66 * Axy / 2) * (Tc66 + Tc67)) + ((U76 * Axy / 2) * (Tc86 + Tc87))))) / ((chx76 + (Axy / 2 * (U66 + U76))))
Th781 = (((Th77 * (chx77 - ((Axy / 2 * (U67 + U77)))) + ((U67 * Axy / 2) * (Tc67 + Tc68)) + ((U77 * Axy / 2) * (Tc87 + Tc88))))) / ((chx77 + (Axy / 2 * (U67 + U77))))
Th791 = (((Th78 * (chx78 - ((Axy / 2 * (U68 + U78)))) + ((U68 * Axy / 2) * (Tc68 + Tc69)) + ((U78 * Axy / 2) * (Tc88 + Tc89))))) / ((chx78 + (Axy / 2 * (U68 + U78))))
Th7101 = (((Th79 * (chx79 - ((Axy / 2 * (U69 + U79)))) + ((U69 * Axy / 2) * (Tc69 + Tc610)) + ((U79 * Axy / 2) * (Tc89 + Tc810))))) / ((chx79 + (Axy / 2 * (U69 + U79))))
Th7111 = (((Th710 * (chx710 - ((Axy / 2 * (U610 + U710)))) + ((U610 * Axy / 2) * (Tc610 + Tcin)) + ((U710 * Axy / 2) * (Tc810 + Tcin))))) / ((chx710 + (Axy / 2 * (U610 + U711))))


Tc811 = (((Tc82 * (ccx81 - (Axy / 2 * (U71 + U81)))) + ((U71 * Axy / 2) * (Thin + Th72)) + ((U81 * Axy / 2) * (Thin + Th92)))) / (ccx81 + (Axy / 2 * (U71 + U81)))
Tc821 = (((Tc83 * (ccx82 - (Axy / 2 * (U72 + U82)))) + ((U72 * Axy / 2) * (Th72 + Th73)) + ((U82 * Axy / 2) * (Th92 + Th93)))) / (ccx82 + (Axy / 2 * (U72 + U82)))
Tc831 = (((Tc84 * (ccx83 - (Axy / 2 * (U73 + U83)))) + ((U73 * Axy / 2) * (Th73 + Th74)) + ((U83 * Axy / 2) * (Th93 + Th94)))) / (ccx83 + (Axy / 2 * (U73 + U83)))
Tc841 = (((Tc85 * (ccx84 - (Axy / 2 * (U74 + U84)))) + ((U74 * Axy / 2) * (Th74 + Th75)) + ((U84 * Axy / 2) * (Th94 + Th95)))) / (ccx84 + (Axy / 2 * (U74 + U84)))
Tc851 = (((Tc86 * (ccx85 - (Axy / 2 * (U75 + U85)))) + ((U75 * Axy / 2) * (Th75 + Th76)) + ((U85 * Axy / 2) * (Th95 + Th96)))) / (ccx85 + (Axy / 2 * (U75 + U85)))
Tc861 = (((Tc87 * (ccx86 - (Axy / 2 * (U76 + U86)))) + ((U76 * Axy / 2) * (Th76 + Th77)) + ((U86 * Axy / 2) * (Th96 + Th97)))) / (ccx86 + (Axy / 2 * (U76 + U86)))
Tc871 = (((Tc88 * (ccx87 - (Axy / 2 * (U77 + U87)))) + ((U77 * Axy / 2) * (Th77 + Th78)) + ((U87 * Axy / 2) * (Th97 + Th98)))) / (ccx87 + (Axy / 2 * (U77 + U87)))
Tc881 = (((Tc89 * (ccx88 - (Axy / 2 * (U78 + U88)))) + ((U78 * Axy / 2) * (Th78 + Th79)) + ((U88 * Axy / 2) * (Th98 + Th99)))) / (ccx88 + (Axy / 2 * (U78 + U88)))
Tc891 = (((Tc810 * (ccx89 - (Axy / 2 * (U79 + U89)))) + ((U59 * Axy / 2) * (Th79 + Th710)) + ((U89 * Axy / 2) * (Th99 + Th910)))) / (ccx89 + (Axy / 2 * (U79 + U89)))
Tc8101 = (((Tcin * (ccx810 - (Axy / 2 * (U710 + U810)))) + ((U510 * Axy / 2) * (Th710 + Th711)) + ((U810 * Axy / 2) * (Th910 + Th911)))) / (ccx810 + (Axy / 2 * (U710 + U810)))


Th921 = (((Thin * (chx91 - ((Axy / 2 * (U81 + U91)))) + ((U81 * Axy / 2) * (Tc81 + Tc82)) + ((U91 * Axy / 2) * (Tc101 + Tc102))))) / ((chx91 + (Axy / 2 * (U81 + U91))))
Th931 = (((Th92 * (chx92 - ((Axy / 2 * (U82 + U92)))) + ((U82 * Axy / 2) * (Tc82 + Tc83)) + ((U92 * Axy / 2) * (Tc102 + Tc103))))) / ((chx92 + (Axy / 2 * (U82 + U92))))
Th941 = (((Th93 * (chx93 - ((Axy / 2 * (U83 + U93)))) + ((U83 * Axy / 2) * (Tc83 + Tc84)) + ((U93 * Axy / 2) * (Tc103 + Tc104))))) / ((chx93 + (Axy / 2 * (U83 + U93))))
Th951 = (((Th94 * (chx94 - ((Axy / 2 * (U84 + U94)))) + ((U84 * Axy / 2) * (Tc84 + Tc85)) + ((U94 * Axy / 2) * (Tc104 + Tc105))))) / ((chx94 + (Axy / 2 * (U84 + U94))))
Th961 = (((Th95 * (chx95 - ((Axy / 2 * (U85 + U95)))) + ((U85 * Axy / 2) * (Tc85 + Tc86)) + ((U95 * Axy / 2) * (Tc105 + Tc106))))) / ((chx95 + (Axy / 2 * (U85 + U95))))
Th971 = (((Th96 * (chx96 - ((Axy / 2 * (U86 + U96)))) + ((U86 * Axy / 2) * (Tc86 + Tc87)) + ((U96 * Axy / 2) * (Tc106 + Tc107))))) / ((chx96 + (Axy / 2 * (U86 + U96))))
Th981 = (((Th97 * (chx97 - ((Axy / 2 * (U87 + U97)))) + ((U87 * Axy / 2) * (Tc87 + Tc88)) + ((U97 * Axy / 2) * (Tc107 + Tc108))))) / ((chx97 + (Axy / 2 * (U87 + U97))))
Th991 = (((Th98 * (chx98 - ((Axy / 2 * (U88 + U98)))) + ((U88 * Axy / 2) * (Tc88 + Tc89)) + ((U98 * Axy / 2) * (Tc108 + Tc109))))) / ((chx98 + (Axy / 2 * (U88 + U98))))
Th9101 = (((Th99 * (chx99 - ((Axy / 2 * (U89 + U99)))) + ((U89 * Axy / 2) * (Tc89 + Tc810)) + ((U79 * Axy / 2) * (Tc109 + Tc1010))))) / ((chx99 + (Axy / 2 * (U89 + U99))))
Th9111 = (((Th910 * (chx910 - ((Axy / 2 * (U810 + U910)))) + ((U810 * Axy / 2) * (Tc810 + Tcin)) + ((U710 * Axy / 2) * (Tc1010 + Tcin))))) / ((chx910 + (Axy / 2 * (U810 + U911))))

Tc1011 = ((Tc102 * (ccx101 - ((U91 * Axy) / 2))) + ((U91 * Axy) / 2) * (Thin + Th92)) / (ccx101 + ((U91 * Axy) / 2))
Tc1021 = ((Tc103 * (ccx102 - ((U92 * Axy) / 2))) + ((U92 * Axy) / 2) * (Th92 + Th93)) / (ccx102 + ((U92 * Axy) / 2))
Tc1031 = ((Tc104 * (ccx103 - ((U93 * Axy) / 2))) + ((U93 * Axy) / 2) * (Th93 + Th94)) / (ccx103 + ((U93 * Axy) / 2))
Tc1041 = ((Tc105 * (ccx104 - ((U94 * Axy) / 2))) + ((U94 * Axy) / 2) * (Th94 + Th95)) / (ccx104 + ((U94 * Axy) / 2))
Tc1051 = ((Tc106 * (ccx105 - ((U95 * Axy) / 2))) + ((U95 * Axy) / 2) * (Th95 + Th96)) / (ccx105 + ((U95 * Axy) / 2))
Tc1061 = ((Tc107 * (ccx106 - ((U96 * Axy) / 2))) + ((U96 * Axy) / 2) * (Th96 + Th97)) / (ccx106 + ((U96 * Axy) / 2))
Tc1071 = ((Tc108 * (ccx107 - ((U97 * Axy) / 2))) + ((U97 * Axy) / 2) * (Th97 + Th98)) / (ccx107 + ((U97 * Axy) / 2))
Tc1081 = ((Tc109 * (ccx108 - ((U98 * Axy) / 2))) + ((U98 * Axy) / 2) * (Th98 + Th99)) / (ccx108 + ((U98 * Axy) / 2))
Tc1091 = ((Tc1010 * (ccx109 - ((U99 * Axy) / 2))) + ((U99 * Axy) / 2) * (Th99 + Th910)) / (ccx109 + ((U99 * Axy) / 2))
Tc10101 = ((Tcin * (ccx1010 - ((U910 * Axy) / 2))) + ((U910 * Axy) / 2) * (Th910 + Th911)) / (ccx1010 + ((U910 * Axy) / 2))

Th12 = Th121
Th13 = Th131
Th14 = Th141
Th15 = Th151
Th16 = Th161
Th17 = Th171
Th18 = Th181
Th19 = Th191
Th110 = Th1101
Th111 = Th1111

Tc21 = Tc211
Tc22 = Tc221
Tc23 = Tc231
Tc24 = Tc241
Tc25 = Tc251
Tc26 = Tc261
Tc27 = Tc271
Tc28 = Tc281
Tc29 = Tc291
Tc210 = Tc2101


Th32 = Th321
Th33 = Th331
Th34 = Th341
Th35 = Th351
Th36 = Th361
Th37 = Th371
Th38 = Th381
Th39 = Th391
Th310 = Th3101
Th310 = Th3111

Tc41 = Tc411
Tc42 = Tc421
Tc43 = Tc431
Tc44 = Tc441
Tc45 = Tc451
Tc46 = Tc461
Tc47 = Tc471
Tc48 = Tc481
Tc49 = Tc491
Tc410 = Tc4101

Th52 = Th521
Th53 = Th531
Th54 = Th541
Th55 = Th551
Th56 = Th561
Th57 = Th571
Th58 = Th581
Th59 = Th591
Th510 = Th5101
Th511 = Th5111

Tc61 = Tc611
Tc62 = Tc621
Tc63 = Tc631
Tc64 = Tc641
Tc65 = Tc651
Tc66 = Tc661
Tc67 = Tc671
Tc68 = Tc681
Tc69 = Tc691
Tc610 = Tc6101

Th72 = Th721
Th73 = Th731
Th74 = Th741
Th75 = Th751
Th76 = Th761
Th77 = Th771
Th78 = Th781
Th79 = Th791
Th710 = Th7101
Th711 = Th7111

Tc81 = Tc811
Tc82 = Tc821
Tc83 = Tc831
Tc84 = Tc841
Tc85 = Tc851
Tc86 = Tc861
Tc87 = Tc871
Tc88 = Tc881
Tc89 = Tc891
Tc810 = Tc8101


Th92 = Th921
Th93 = Th931
Th94 = Th941
Th95 = Th951
Th96 = Th961
Th97 = Th971
Th98 = Th981
Th99 = Th991
Th910 = Th9101
Th911 = Th9111


Tc101 = Tc1011
Tc102 = Tc1021
Tc103 = Tc1031
Tc104 = Tc1041
Tc105 = Tc1051
Tc106 = Tc1061
Tc107 = Tc1071
Tc108 = Tc1081
Tc109 = Tc1091
Tc1010 = Tc10101


Next O
Text31.Text = Thin
Text32.Text = Th121
Text33.Text = Th131
Text34.Text = Th141
Text35.Text = Th151
Text36.Text = Th161
Text37.Text = Th171
Text38.Text = Th181
Text39.Text = Th191
Text40.Text = Th1101

Text41.Text = Tc211
Text42.Text = Tc221
Text43.Text = Tc231
Text44.Text = Tc241
Text45.Text = Tc251
Text46.Text = Tc261
Text47.Text = Tc271
Text48.Text = Tc281
Text49.Text = Tc291
Text50.Text = Tcin

Text51.Text = Thin
Text52.Text = Th321
Text53.Text = Th331
Text54.Text = Th341
Text55.Text = Th351
Text56.Text = Th361
Text57.Text = Th371
Text58.Text = Th381
Text59.Text = Th391
Text60.Text = Th3101

Text61.Text = Tc411
Text62.Text = Tc421
Text63.Text = Tc431
Text64.Text = Tc441
Text65.Text = Tc451
Text66.Text = Tc461
Text67.Text = Tc471
Text68.Text = Tc481
Text69.Text = Tc491
Text70.Text = Tcin

Text71.Text = Thin
Text72.Text = Th521
Text73.Text = Th531
Text74.Text = Th541
Text75.Text = Th551
Text76.Text = Th561
Text77.Text = Th571
Text78.Text = Th581
Text79.Text = Th591
Text80.Text = Th5101

Text81.Text = Tc611
Text82.Text = Tc621
Text83.Text = Tc631
Text84.Text = Tc641
Text85.Text = Tc651
Text86.Text = Tc661
Text87.Text = Tc671
Text88.Text = Tc681
Text89.Text = Tc691
Text90.Text = Tcin

Text91.Text = Thin
Text92.Text = Th721
Text93.Text = Th731
Text94.Text = Th741
Text95.Text = Th751
Text96.Text = Th761
Text97.Text = Th771
Text98.Text = Th781
Text99.Text = Th791
Text100.Text = Th7101

Text101.Text = Tc811
Text102.Text = Tc821
Text103.Text = Tc831
Text104.Text = Tc841
Text105.Text = Tc851
Text106.Text = Tc861
Text107.Text = Tc871
Text108.Text = Tc881
Text109.Text = Tc891
Text110.Text = Tcin

Text111.Text = Thin
Text112.Text = Th921
Text113.Text = Th931
Text114.Text = Th941
Text115.Text = Th951
Text116.Text = Th961
Text117.Text = Th971
Text118.Text = Th981
Text119.Text = Th991
Text120.Text = Th9101

Text121.Text = Tc1011
Text122.Text = Tc1021
Text123.Text = Tc1031
Text124.Text = Tc1041
Text125.Text = Tc1051
Text126.Text = Tc1061
Text127.Text = Tc1071
Text128.Text = Tc1081
Text129.Text = Tc1091
Text130.Text = Tcin





End Sub

[debasisdas]

you need to separate those as per the logic like all the computation in one part and all the assignment in another etc