Ãëàâíàÿ Áóõãàëòåðèÿ â êàðìàíå Ó÷åò ðàñõîäîâ Ýêîíîìèÿ íà êàäðîâèêàõ Íàëîã íà ïðèáûëü Êàê óâåëè÷èòü àêòèâû Îñíîâíûå ñðåäñòâà
Ãëàâíàÿ ->  Ìíîãîñâÿçíûå ïîëîñêîâûå ñòðóêòóðû 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [ 22 ] 23 24 25 26 27 28

ÀÀ= S*E I ÅÇ/ (E1 H2-f- E2*H 1)

CY22=CYI2--EO*G Nl AA

Q1=C4 (W.S.HI)

Q2=C4 (W,S.H2)

Q3=C6 (W.S.HI)

Q4=C8 (W.S,H2)

LYII = MO*G* (N2/(Ql+Q2)+2/(Q3--Q4))

CII=CXII--CY11

C12=CXI2-(-CY12

C22=CX22-f-CY22

LII = LX1I--LYII Ñ TYPE2.CII,CI2,C22.LII.L!2,L22 Ñ IF(I.EQ.I) PRINT2.CII.C12.C22.LII.LI2,L22 2 FORMAT (2X.CII=.F6.I.2X,CI2=.F6.I,2X.*C22=*,F6.I/

6 2X.4LII = \F6.4.2X.LI2=.F6.4,2X.L22=,F6.4) CALL MODA (C1I,CI2,C22.LII,L12,L22.I) RETURN END

SUBROUTINE MODA (CI.C2,C3,L1.L2,L3,I)

REAL LI.L2.L3.KC.KL

QI=(LI*CI-L2*C2)/II.I27

Q2== (L2*C3-LI C2)/II.I27

Q3= (L2*C I-L3 C2) /11.127

Q4= (L3*C3-L2*C2)/II.I27

DET=SQRT ((Q1-Q4)**2--4*Q2 Q3)

EI=(QI+Q4+DET)/2.

E2=E1-DET

IF (EI.GE.1.ANDE2.GE.I) GOTOlO TYPE9.E1.E2

9 FORMAT (2X,EI=.F6.2,2X.E2=,F6.2) IF (I.EQ.I)PRINT9,E1.E2

E1 = ABS (EI) E2=ABS (E2)

10 A=(EI-QI)/Q2 B= (E2-QI)/Q2

C=2.9979E-4*(C1-A*C2)/SQRT (EI) D=2.9979E-4* (CI-B C2)/SQRT (E2) PI= (I-A/B)*C/2. P2=(I-B/A) D/2.

yf/- Ä Q

U=C*D*W/(A*B)

ZI=(C/B-D/A)/U Z2= (C-D)/U 23=(C*B-D A)/U YI= (D*A-C*B)/W Y2=(C-D)/W Y3= (D/A-C/B)/W RZI = ZI-Z2 RZ2=Z2 RZ3=Z3-Z2 RYI=I./(YI + Y2) RY2=-I./Y2 RY3=I./(Y3-f-Y2) KC=C2/SQRT (C1 C3)

KL=L2/SQRT (L1*L2)

TYPE I.CI. LI,C2,L2.C3.L3.EI.PI.A,C.E2.P2.B.D.

I RYI.RZI.YI,ZI.RY2,RZ2.Y2.Z2.RY3.RZ3,Y3.Z3.KC.KL 2 IF(I.NE.I) RETURN

PR1NTI.C1,LI,C2,L2.C3.L3.EI,P1,A.C,E2,P2.B,D,

I RYI.RZI,YI.ZI,RY2,RZ2.Y2,Z2,RY3,RZ3.Y3.Z3,KC.KL I FORMAT (1Õ.ÏÎÃÎÍÍÛÅ ÏÀÐÀÌÅÒÐÛ ñë72õ.*Ñ11=.Ð6.1.2Õ,ã11=.

1 F6.4/2X,CI2=.F6.1,2X.LI2= .F6.4/2X,C22= .FS. I.2X.

2 Ò22=,Å6.4/1Õ,ÌÎÄÀËÜÍÛÅ ÏÀÐÀÌÅÒÐÛ ÑË

3 /2Õ,-ÅI = .F6.2,2X.PI=-.F9.6.2X.A=,F9.5.2X,*C= \F9.5

4 /2X,E2=.F6.2,2X.P2=\F9.6.2X.B=.F9.5.2X,D=.F9.5

5 /2Õ.ÕÀÐÀÊÒÅÐÈÑÒÈ×ÅÑÊÈÅ ÍÀÃÐÓÇÊÈ/

6 2X.RYI = .F7.2.2X,RZI = .F7.2.2X.YII=.F9.6,2X.ZII = ,F7.2/

7 2X.RY2=.F7.2.2X,RZ2=,F7.2.2X,YI2=.F9.6.2X.ZI2=,F7.2/

8 2X.RY3=.F7.2.2X.RZ3=.F7.2.2X.Y22=.F9.6.2X,Z22=.F7.2/

9 2X. ÊÎÝÔÔÈÖÈÅÍÒÛ ÑÂßÇÈ'/ 8 2X,KC=.F5.3.4X,KL=,F5.3 ) RETURN

FUNCTION CI (A,D)

X= EXP (-1.570796 A/B)

CI=CIC (X)

RETURN

FUNCTION C2 (A.B.H) PIH=3.I4I593/H AA=EXP (PIH* A) BB=EXP (PIH Â)

X=SQRT (2.* (AA-f-BB)/((I+AA) * (l+BB)))

C2=CIC (X)

RETURN

FUNCTION C3 (W.S.H) Q=EXP (-6.283185 Í/ (W+S)) P=SQRT (SQRT(Q)) Z= 1.570796W/ (W-f S)

TI=2*(P SIN(Z)-P**9 SIN(3*Z)-f-P**25*SIN(5*Z))

T2=2*(P+P 9+P**25)

T3=I+2* (Q4.Q..4--Q**9)

T4=I-2*(Q*COS(2*Z)-Q**4*COS(4*Z)+Q**9*COS (6*Z))

X=TI*T2/ (T3*T4)

C3=2. CCI (X)

RETURN

FUNCTION C4 (W.S.H) Q=EXP (-6.283I85*H/(W+S)) P=SQRT(SQRT (Q)) Z=I.570796*W/(W-f-S)

TI=2* (PSIN (Z)-P**9*SIN (3*Z)--P *25*SIN(5*Z))

T2=2*(P+P 9+P**25)

T3=I+2*(Q+Q 4-f-Q**9)

T4= I -2* (QCOS (2*Z) -Q**4*COS (4*Z) --Q**9*COS (6*Z)) X=TI ÒÇ/ (T2* T4)

9 Çàêàç 0376 1 29



2 130

Ñ4=2. ÑÑ (X)

RETURN

FUNCTION C5 (W.S.H)

PIH=3.I4I593/H

X=CH (PIH*(W--S/2.))

Y=CH (PIH S/2.)

X=SQRT((I.+Y)/(I.+X))

C5=CIC (X)

RETURN

FUNCTION C6 (W.S.H)

PIH=3.14I593/H

X=CH (PIH* (W+S/2.))

Y=CH (PIH*S/2.)

X=SQRT((Y-1.)/(X-I.))

C6=ClC (X)

RETURN

FUNCTION C7 (W,S,H)

PIH=3.I4I593/H

X=CH ((W+S/2.)*PIH)

Y=CH (PIH S/2.)

A=X-1.

B=X-Y

C=Y+I.

X=SQRT (C*(A--B+C)/((C+A)*(C+B)))

C7=ClC (X)

RETURN

FUNCTION C8 (W.S.H)

PIH=3.141593/H

X=CH (PIH*(W--S/2.))

Y=CH (PIH S/2.)

A=X+1

B=X-Y

C= Y-1.

X=SQRT (C * (A+B+C)/((C+A) * (C+B)))

C8=C1C (X)

RETURN

FUNCTION CIC (X) A=l.

B=SQRT (1-X X) D=(A+B)/2. B= SQRT (A B) A=D

IF ((A-B).GTI.E-6*A)GOTOI

C=3.141593/ (A+B)

A=l.

D= (A+B) /2.

B=SQRT (A * B) A=D

IF ((A-B).GT.!.E-6* A)G0T02 01 = 3.141593/ (A + B) C1C=C1/C RETURN-END

FUNCTION CCl (X) A=l,

B=SQRT (1- X * X) D= (A + B)/2. B=SQRT (A * B) A=D

IF ((A--B).GT.1.E-6*A) GOTOl

C=3.141593/(A + B)

A=l.

D= (A + B) /2. B=SQRT (A * B) A=D

IF ((A -B).GT.1.E-6* A)G0T02

01 = 3.141593/ (A + B)

CC1 = C/C1

RETURN

FUNCTION CH (X) A=EXP (X) B=FXP( X) CH= (.A-i-Bl/2. RETL.R.\ END

ÏÐÈÌÅÐ ÐÀÑ×ÅÒÀ ÏÎ ÏÐÎÃÐÀÌÌÅ MCL2

ÝÊÂÈÂÀËÅÍÒÍÛÅ ÏÀÐÀÌÅÒÐÛ ÑË Ñ, ÏÔ/Ì L, ÌÊÃ/Ì R, ÎÌ ÑÅÊÖÈÉ

ÀÍÀËÎÃÎÂÎÃÎ ÐÀÇÐßÄÀ ÏÎÃÎÍÍÛÅ ÏÀÐÀÌÅÒÐÛ ÑË Ñ11 = 845.7 L11=1.1689 Ñ12= 764.9 L12=0.1746 Ñ22= 797.8 L22= 0.3676 ÌÎÄÀËÜÍÛÅ ÏÀÐÀÌÅÒÐÛ ÑË Å1 = 87.91 Ð1 = 0.017851 À=-0.16320 Ñ=0.03103 Å2=3.29 Ð2= 0.010324  = 1.08426 0=0.00270 ÕÀÐÀÊÒÅÐÈÑÒÈ×ÅÑÊÈÅ ÍÀÃÐÓÇÊÈ RY1 = 216.69 RZ1 = 28.50 ¥11 = 0.027324 Zl 1 = 76.44 RY2=44.03 RZ2=47.94 ¥12=0.022710 Z12=47.94 RY3= 74.07 RZ3=9.74 Y22= 0.036210 Z22= 57.68 ÊÎÝÔÔÈÖÈÅÍÒÛ ÑÂßÇÈ ÊÑ= 0.931 KL= 0.386



LM=LM+0.01 S=S-0.0l

CALL CONl (E2,H1,H2,H3,W,S,WP,LM,N,NS,CN,CK,R,LV,LD,CP,TGD,

K!X,K2X,FAZ1X,FAZ2X,KCB1X,KCB2X F) W= W-0.0!

WP=WP-0.01 LM=LM-0.01 5=5+0.01

PR!=100.* (K1E2-Kl)

PR2=!00.* (KlHl-KI)

PR3= 100,* (K1H2-Kl)

PR4= !00.* (K1H3-Kl)

PR5=100.* (KlX-Kl)

PR6= 100.* (K2E2-K2)

PR7=I00.*(K2H1~K2)

PR8=100.*(K2H2-K2)

PR9= 100. (K2H3-K2)

PRI0=10O.* (K2X-K2)

PR1I=100.* (KCB1E2-KCB1)

PR12=100.* (KCBlHl-KCBl)

PR13=100.* (KCB1H2-KCB1)

PR!4=100.* (KCB1H3-KCB!)

PR15=100.* (KCBIX-KCB!)

PRI6=J00. (KCB2E2-KCB2)

PR17=100.* (KCB2H1-KCB2)

PR!8=!00.* (KCB2H2-KCB2)

PR 19= ! CO.* (KCB2H3-KCB2)

PR20=!00.* fKCB2X-KCB2)

PR2!= !00.* (FAZ2E2-FAZ1E2-FAZ2+FAZ!)

PR22= ! 00. (FAZ2N! - FAZ! N1-FAZ2 + FAZ!)

PR23= !00.* (FAZ2H2-FAZ1H2-FAZ2+FAZ!)

PR24= !00. (FAZ2H3-FAZ1H3-FAZ2 + FAZ!)

PR25= !00. (FAZ2X-FAZ 1X-FAZ2+ FAZ!)

VK1=DE2* AB5 (PR!) + DH! AB5 (PR2) + DH2 AB5 (PR3) + DH3

AB5(PR4) + DX * AB5(PR5)

VK2=DE2 * AB5(PR6) + DH! * AB5(PR7)+DH2 AB5(PR8) +DH3

ABS(PR9) + DX AB5(PR!0)

VKCB!=DE2 AB5(PR!!) + DH! * AB5 (PR!2) + DH2 * AB5(PR!3) +

DH3 AB5(PR14) + DX AB5(PR!5)

VKCB2=DE2 * AB5(PR16) + DH1 * AB5(PR17) + DH2 ABS(PR18) +

DH3 AB5(PR19) + DX * AB5(PR20)

VFAZA=DE2 AB5(PR21) + DH! AB5(PR22) + DH2 AB5(PR23) +

DH3 AB5(PR24)4-DX AB5(PR25) KRFAZF= KRFAZA *F/FK FAZA=FAZ2-FAZ1 IF(FAZA.LT.O.)FAZA=FAZA+360 K!M=K!-VK! K2M=K2-VK2 FAZAM=FAZA- VFAZA KCBIM=KCBI+VKCB! KCB2M=KCB2+VKCB2

K1MI = AMIN1 (KIMI.KIM-KRK) K2M!=AM1N! (K2M1.K2M- KRK)

ÏÐÎÃÐÀÌÌÀ ÐÀÑ×ÅÒÀ ÔÀÇÎÂÐÀÙÀÒÅËÅÉ DOP

*** ÈÌß ÐÀÇÄÅËÀ - DOP*** DOP JOB (682010,NXR, ÒÐÅÒÜßÊÎÂ', MSGCI,ASS= P,PRTY= 5 EXEC FTGCLG. TG=5,RG= IOOK.OUT= P.PC= NOSOURSE C.SYSIN DD*

REAL LM,LV,LD,KRK,KRFAZA,KRKCB,K!,K2,KCB1,KCB2,K!E2,K2E2,

* KCB1E2, KCB2E2.K!H!,K2H!,KCB!HI,KCB2HI,K!H2,K2H2,KCBlH2,

* KCB2H2.K!H3,K2H3,KCB!H3, KCB2H3,KIX,K2X,KCBIX.KCB2X,KIM

* K2M,KCB1M,KCB2M,K!M!,K2M!,KCBIM!,KCB2M!, KRFAZF

READ !,E2,H1,H2,H3,W,S,WP,LM,N,NS,R,CN,CK,LV,LD,CP,TGD.DE2,

* DH1,DH2,DH3,DX,KRFAZA,KRKCB,KRK,FN,DF.FK

I FORMAT(6F6.0/2F6.0,2!6,2F6-0/4F6 0,E6.!,F6.0/6F6.0/4F6.0)

PRINT 8,E2,W,N,R,TGD,HI,S,NS.LV.H2,WP.CN,LD,H3,LM,CK,CP,DE2, DH!,DH2,DH3,DX,KRK.KRKCB.KRFAZA,FN,FK,DF 8 FORMAT (2Õ,ÏÀÐÀÌÅÒÐÛ ÔÀÇÎÂÐÀÙÀÒÅËß72Õ,£2= ,F5.2,2X, *W= ,F5.2,3X,N= M 2,6X,R= ,F5.2,3XTGD= ,E9.2/2X.HI = ,F5.2,2X, S=,F5.2.3X,NS=-.12,5X,LV=,F5.3/2X,H2=.F5.2,2X,WP=,F5.2.,

* CN= ,F5.2,2X,LD= ,F5.0/2X.H3= ,F5.2,2X,LM= ,F5.2 2X,CK=

* F5.2,2X,CP=,F5.2/2X,flOnyCKH/2X,DE2= F5.2 2X DH1= F5 2 2X

* DH2=,F5.2,2X,DH3=,F5.2,2X,DX=,F5.2/2X, ÊÐÈÒÈ×ÅÑÊÈÅ

* nAPAMETPbl72X,KRK=-.F7 2,-ÄÁ-,2Õ,ÆÐÊÑÂ=,Å5.2.2Õ, KRFAZA= ,F5.!,TPAÄ/2X, ×ËCTOTA ÍÀ×ÀËÜÍÀß, ÊÎÍÅ×ÍÀß, ØÀÃ, ÌÃÖ,/2Õ.

* FN= ,F5.0,2X;FK= ,F5.0,2X,DF= \F5.0/) F=FN

KIM!=1 E70 K2M1= 1.E70 FAZAM1= 1.E70 KCB!MI= I E70 KCB2M1=1.E70

6 CALL CON! (E2.H1 H2.H3.W,S WP.I M.N,NS.CN,CK,R.LV,LD,CP,TGD, -K1,K2,FAZLFAZ2,KCB1,KCB2,F) E2= E2-fO.O!

CALL CONl (E2.HLH2.H3,W,S,WP,LM,N,NS,CN,CK,R,LV,LD,CP,TOD. *K I E2.K2E2,FAZ 1 E2,FAZ2E2.KCB! E2.KCB2E2,F) E2=E2-0.0! H! = H!-fO.O!

CALL CON! (E2,H!,H2,H3,W,S,WP,LM,N,NS.CN,CK.R,LV,LD,CP,TCD, K1H!,K2H!,FAZ1HI,FAZ2H!.KCB!H!,KCB2H1.F) H1 = H!~0.01 H2=H2+0.0!

CALL CON! (E2,H!,H2,H3,W,S,WP,LM,N,NS,CN,CK,R,LV,LD,CP,TGD, KIH2 K2H2,FAZIH2,FAZ2H2,KCB\H2.KCB2H2,F) H2=H2-0.0! H3=H3-f 0.0!

CALL CON! (E2,H!,H2,H3,W,S.WP,LM,N,NS,CN,CK,R,LV,R,LD,CP,TGD, K1H3,K2H3,FAZIH3,FAZ2H3,KCB1H3,KCB2H3,F) H3= H3~0.0! W=W+0.0! WP=WP-fO.O!



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [ 22 ] 23 24 25 26 27 28

© 2024 Constanta-Kazan.ru
Òåë: 8(843)265-47-53, 8(843)265-47-52, Ôàêñ: 8(843)211-02-95