Реферат Дослідження задачі теплопровідності тонких пологих оболонок з розрізами

Тема: Новые рефераты

NG,XG,WGHR1,HR2,HL,BIP,BIM/CM/ CM1, CM2, CM2Z, CM0, CABR / CTCHT / T1G, T2G/CT / AHL,BHL,A2,B2=10XB/0.9739065,0.8650634,0.6794096,0.4333954,0.1488743/WB/0.0666713,0.1494513,0.2190864,0.2692667,0.2955242/=543 I=1, NG2 (I)=XB (I) (NG +1- I) =-XB (I) (I)=WB (I) (NG +1- I)=WB (I)

CONTINUE=N=N (3,3) N, II1, II2, P1, P2

FORMAT(1X,«N=»,I2,2X,«II1=»,I2,2X,«II2=»,I2,2X,«P1=»,F5.2,2X,«P2=»,F5.2/)(3,52)HR1,HR2,HL

FORMAT(1X,«H/R1=»,E13.6,2X,«H/R2=»,E13.6,2X,«L/H=»,F8.5/)(3,53)BIP,BIM

FORMAT (1X, «BIO + =», E13.6, 2X, «BIO-=», E13.6 /)=N=N + N=N / 2=N- 1=0.1D+01/DSQRT(0.2D+01)=3.141592654=0.5*(BIP+BIM)=DCM1=0.5*(BIP-BIM)=DCM2Z=DCM2-0.5*(HR1+HR2)Z=DCM2Z=3.+4*DCM1=CM1+CM1*CM1-CM2Z*CM2Z=DSQRT((3.+2.*DCM1)**2+12.*DCM2**2)=DEK2*DSQRT(DSL1+DSL2)=DSL1-DSL2(DR.GT.0.) GO TO 5 (3,6)

FORMAT (1X «B=0.7E - 03»)=0.1D - 05

CONTINUE=DEK2*DSQRT(DR)=DA=DB=A*HL=B*HL=A*A=B*B=DCM1+DCM1**2-DCM2Z**2=(DA**2-DB**2)*2=DABR=HL*(DCM1*DB**2-3.*DD)/(DB*DABR)=HL*(DCM1*DA**2-3.*DD)/(DA*DABR)=HL*DB*DCM2Z/CABR=HL*DA*DCM2Z/CABR=HL*(3.*(1.+DCM1)*DB**2-3.*DD)/(DB*DABR)=HL*(3.*(1.+DCM1)*DA**2-3.*DD)/(DA*DABR)=1./N28 I=1, N (I)=PI * (2. * I - 1.) / N2

COSU (I)=COS (U (I))

DO 15 I=1, N! ЗАПОВНЕННЯ МАТРИЦІ СИСТЕМИ ЛИН. АЛ. УР.

R (I)=- 1. * P1 (I + N)=- 1. * P216 J=1, N (I.NE.J) GO TO 45 (I, J)= 0. (I, J)=0.TO 46

CONTINUE=HL*ABS(COSU(I)-COSU(J))=A*AXTR=B*AXTRIGNV(1,0,ZA,RA)IGNV(1,0,ZB,RB)(I,J)=RA(I,J)=RB

CONTINUE=IABS (IJ)=IJR-(IJR / 2) * 2 (ISCH) 17,17,18

CS1=COTAN ((U (I) + U (J)) / 2.) / SIN (U (I)) TO 19

CS1=COTAN ((U (I)-U (J)) / 2.) / SIN (U (I))

CONTINUE (COSU (I)-COSU (J)) 20,21,22

SK=- 1.TO 23

SK=0.TO 23

SK=1.

CONTINUE (I, J)=CS * (CS1-SK * (CB11 * SGB (I, J)-CA11 * SGA (I, J))) (I, J + N)= CS * (- 1.)*SK*(CB12*SGB(I,J)-CA12*SGA(I,J))(I+N,J)=3.*AM(I,J+N)(I+N,J+N)=CS*(CS1-SK*(CB22*SGB(I,J)-CA22*SGA(I,J)))

CONTINUE

CONTINUE (II1-N) 40,40,24

IF (II2-N) 41,41,24

R (II1)=0. (II2 + N)=0.42 J=1, N (II1, J + N)=0. (II1, J)=1. (II2 + N, J)=0. (II2 + N, J + N)=1.

CONTINUE

CONTINUESIMQ (AM, R, N2, IER) (IER.EQ.1) WRITE (3,44) IER

FORMAT (1X, «IER =», I1, «СИСТЕМА Лауру НЕ ВИРІШЕНА») 29 I=1, N=SQRT (1.-COSU (I) ** 2) ( I)=R (I) / CP

RM1 (I + N)=R (I + N) / CP26 K=1, N=PI-U (K)=0.=0.27 I=1, N=0.28 J=1 , M

S2=S2 + COS (J * U (I)) * SIN (J * U (K)) / J=PUKR - 2. * S2=S11 + R (I) * PUS

S12=S12 + R (I + N) * PUS (K)=S11 / N

RM2 (K + N)=S12 / N (3,30)

FORMAT (5X, «X», 9X, «RES 1», 10X, «RES 2» /) (3,31) (COSU (I), R (I), R (I + N), I=1, N)