develop a mathematical model using fortran 77 on pulse tube cryocooler using r 407 as a...

90.2K

Verified Solution

Question

Mechanical Engineering

develop a mathematical model using fortran 77 on pulsetube cryocooler using r 407 as a refrigerant please write the codein fortran 77 language only and verify the code generated with thehelp of photon 95628 from both the virgin the answer is accuratevalidate the reason with the available theoretical answers

Answer & Explanation Solved by verified expert

4.1 Ratings (651 Votes)

C TOTAL COEFFICIENTS AWIJDWAAWAMAX1PECLW00 AEIJDEAAEAMAX1PECLE00 ASIJDSAASAMAX1PECLS00 ANIJDNAANAMAX1PECLN00 1 CONTINUE GO TO 2000 C COEFFICIENTS OF PRESSURE CORRECTION EQUATION 1000 DO 2 J2JNM DO 2 I2INM PPIJ00 SPIJ00 SUIJ00 LWNTAGWIJ10 LENTAGEIJ20 LSNTAGSIJ30 LNNTAGNIJ40 LB1NTAGIJP1 ICDGKJ P2 IWV DXWXINXINM DXEX2X1 DYSYJNYJNM DYNY2Y1 C WEST SUMWFINTWAPUIJ AWIJFINTWRHOIJRJDYPJ2SUMW1LWLB IFNTAGWIJEQ17THEN JJJ IFIPERIODEQ1JJJNJ1 RHOWDXWRHO2JDXERHOINMJJDXEDXW SUMWDXWAPU2JDXEAPUINMJJDXEDXW AWIJRHOWRJDYPJ2SUMW2LB ENDIF C EAST SUMEFINTEAPUIJ AEIJFINTERHOIJRJDYPJ2SUME1LELB IFNTAGEIJEQ27THEN JJJ IFIPERIODEQ1JJJNJ1 RHOEDXWRHO2JJDXERHOINMJDXEDXW SUMEDXWAPU2JJDXEAPUINMJDXEDXW AEIJRHOERJDYPJ2SUME20LB ENDIF C SOUTH SUMSFINTSAPVIJ ASIJFINTSRHOIJRCJDXPI2SUMS1LSLB IFNTAGSIJEQ37THEN III IFJPERIODEQ1IIINI1 RHOSDYSRHOI2DYNRHOIIJNMDYNDYS SUMSDYSAPVI2DYNAPVIIJNMDYNDYS ASIJRHOSRCJDXPI2SUMS20LB ENDIF C NORTH SUMNFINTNAPVIJ ANIJFINTNRHOIJRCJ1DXPI2SUMN1LNLB IFNTAGNIJEQ47THEN III IFJPERIODEQ1IIINI1 RHONDYSRHOII2DYNRHOIJNMDYNDYS SUMNDYSAPVII2DYNAPVIJNMDYNDYSP1 ICDGKJ P2 IWV ANIJRHONRCJ1DXPI2SUMN20LB ENDIF 2 CONTINUE 2000 CONTINUE RETURN END C SUBROUTINE SORCENNV INCLUDE COM2DFOR C DIMENSION PRODITJT NNNV GO TO 10203040506070N C FOR PRESSURE CORRECTION 10 DO 11 J2JNM DO 11 I2INM CWFINTWRHOIJFINTWUIJRJDYPJ CEFINTERHOIJFINTEUIJRJDYPJ CSFINTSRHOIJFINTSVIJRCJDXPI CNFINTNRHOIJFINTNVIJRCJ1DXPI SMCECWCNCS IFUNSTDYSMSMRHOIJRHOOIJDELTVOLIJ SUIJSUIJSM1NTAGIJ 11 CONTINUE GO TO 1000 C FOR UVELOCITY 20 DO 21 J2JNM DO 21 I2INM DPDXFINTEPIJFINTWPIJDXPI SUIJSUIJDPDXVOLIJ1NTAGIJ 21 CONTINUE GO TO 1000 C FOR VVELOCITY 30 DO 31 J2JNM DO 31 I2INM DPDYFINTNPIJFINTSPIJDYPJ SUIJSUIJDPDYVOLIJ1NTAGIJ VISPVISIJVISTIJ IFAXISYMMSPIJSPIJVISPRJ2VOLIJ 31 CONTINUE GO TO 1000 C FOR WVELOCITYP1 ICDGKJ P2 IWV 40 DO 41 J2JNM DO 41 I2INM SUIJSUIJ00 41 CONTINUE GO TO 1000 C FOR KINETIC ENERGY 50 DO 51 J2JNM DO 51 I2INM IFNTAGIJEQ1GO TO 51 LWNTAGWIJ LENTAGEIJ LSNTAGSIJ LNNTAGNIJ C EXCLUDE NEARWALL NODE IFLWEQ14ORLWEQ16GO TO 51 IFLEEQ24ORLEEQ26GO TO 51 IFLSEQ34ORLSEQ36GO TO 51 IFLNEQ44ORLNEQ46GO TO 51 C PRODUCTION TERMS DUDXFINTEUIJFINTWUIJDXPI DVDXFINTEVIJFINTWVIJDXPI DUDYFINTNUIJFINTSUIJDYPJ DVDYFINTNVIJFINTSVIJDYPJ TERM20DUDX2DVDY2DUDYDVDX2 IFAXISYMMTERMTERM2VIJRJ2 PRODIJVISTIJTERM ENPAMAX1EIJ00 SUIJPRODIJVOLIJ SUIJ SPIJRHOIJ2CMUENPVISTIJSMALLVOLIJSPIJ 51 CONTINUE GO TO 1000 C FOR DISSIPATION 60 DO 61 J2JNM DO 61 I2INM IFNTAGIJEQ1GO TO 61 RHOPRHOIJ VOLPVOLIJ DPEPABSDIJEIJSMALL SUIJCD1RHOPDPEPPRODIJVOLP SUIJ SPIJCD2RHOPDPEPVOLPSPIJ 61 CONTINUE GO TO 1000P1 See Answer

Get Answers to Unlimited Questions

Join us to gain access to millions of questions and expert answers. Enjoy exclusive benefits tailored just for you!

Membership Benefits:

Unlimited Question Access with detailed Answers
Zin AI - 3 Million Words
10 Dall-E 3 Images
20 Plot Generations
Conversation with Dialogue Memory
No Ads, Ever!
Access to Our Best AI Platform: Flex AI - Your personal assistant for all your inquiries!

Become a Member