5.4. 5.4.1 , .

, -1 , . 9.3.1.

ARCA: PROCEDURE OPTIONS (MAIN);

/* R*/

GET LIST (F,FL,A,B,C,D,Q1,Q2,Q3,Q4,P1,P2,P3,H);

PUT SKIP EDIT ( R)(X(10),A);

PUT SKIP DATA (F,FL,A,B,C,D,Q1,Q2,Q3,Q4,P1,P2,P3,H);

DECLAREF,FL,A,B,C,D,Q1,Q2,Q3,Q4,P1,P2,P3,H,VA,VB,HH,R,X,Y,TGFI,SINFI,COSFI,

FMO, FQO,FM,FQ,FN;

VA=(Q1*A*(2.*FLA)+P1*(FL+2.*B)+Q2*B*(FL+B)+P2*FL+Q3*C*(FLC)+2.*P3*D+

Q4*D*D)/(2.*FL);

VB=(Q1*A*A+2.*P1*A+Q2*B*(FLB)+P2*FL+Q3*C*(FL+C)+2.*P3*(FLD)+

Q4*D*(2.*FLD))/(2.*FL);

HH=(VB*FL/2. P3*CQ4*D*(C+D/2.) Q3*C*C/2.)/F;

R=FL*FL/(8.*F)+F/2.;

PUT SKIP DATA (VA,VB,HH,R);

DO X=0. TO A BY H;

FMO=VA*XQ1*X*X/2.;

FQO=VAQ1*X;

CALL TR; CALL REZ; END;

DO X=A TO A+B BY H;

FMO=VA*X-Q1*A*(XA/2.)-P1*(XA) Q2*(XA)**2/2.;

FQO=VAQ1*AP1Q2*(XA);

CALL TR;CALL REZ;END;

DO X=FL/2. TO FL/2.+C BY H;

FMO=VA*XQ1*A*(XA/2.) P1*(XA) Q2*B*(XAB/2.)-P2*(X-FL/2.)-Q3*(X-FL/2.)**2/2.;

FQO=VA-Q1*A-P1-Q2*B-Q3*(X-FL/2.)-P2;

CALL TR;CALL REZ;END;

DO X=FLD TO FL BY H;

FMO=VB*(FLX) Q4*(FLX)**2/2.;

FQO=VB+Q4*(FLX);

CALL TR;CALL REZ;END;

TR: PROCEDURE;

Y=FR+SQRT(R*R (X-FL/2.)**2);

TGFI=(FL/2. X)/SQRT(R*R (XFL/2.)**2);

COSFI=SQRT(1./(1.+TGFI**2));

SINFI=TGFI*COSFI;

END TR;

REZ: PROCEDURE;

FQ=FQO*COSFIHH*SINFI;

FM=FMOHH*Y;

FN=-FQO*SINFIHH*COSFI;

PUT SKIP DATA (X,FM,FQ,FN);

END REZ;

END ARCA;

:

l

f

q

φ

H

Mz

Qy/

N

Δx

FL

F

Q

FI

FMO

FQO

HH

FM

FQ

FN

H

, . , , . 9.3.1, :

5 OPEN ARCA05.DAT FOR OUTPUT AS FILE#1

10 PRINT

20 PRINT F,FL,A,B,C,D,Q1,Q2,Q3,Q4,P1,P2,P3

30 INPUTF,FL,A,B,C,D,Q1,Q2,Q3,Q4,P1,P2,P3

40 VA=(Q1*A*(2.*FLA)+2*P1*(FL)+Q2*B*(FL+B)+P2*FL+Q3*C*(FLC)+2.*P3*D+

Q4*D*D)/(2.*FL)

50 VB=Q1*A+P1+Q2*B+P2+Q3*C+P3+Q4*D-VA

60 H=(VB*FL/2. P3*C-Q4*D*(C+D/2.) Q3*C*C/2.)/F

70 PRINT#1,

80 PRINT#1, VA=,VA,VB=,VB,H=,H

100 PRINT#1, ,

110 PRINT#1,

120 X=-1.0

125 X=X+1.

130 TG=4.*F*(FL2.*X)/(FL*FL)

140 COS=SQRT(1./(1.+TG*TG))

150 SIN=TG*COS

160 Y=4.*F*X*(FLX)/(FL*FL)

170 IF X>A GO TO 205

180 MO=VA*XQ1*X*X/2.

190 Q0=VAQ1*X

200 GO TO 320

205 AA=0.5*FL

210 IF X>AA GO TO 245

220 =VA*X-Q1*A*(XA/2.) P1*(XA)-Q2*(XA)**2/2.

230 QO=VAQ1*AP1Q2*(XA)

240 GO TO 320

245 AA=A+B+C

250 IF X>AA GO TO 290

260 MO=VA*XQ1*A*(XA/2.) P1*(XA) Q2*B*(XAB/2.) P2*(XFL/2.)

Q3*(XFL/2.)**2/2.

270 QO=VAQ1*AP1Q2*BQ3*(XFL/2.) P2

280 GO TO 320

290 IF X>FL GO TO 370

300 MO=VB*(FL-X)-Q4*(FL-X)**2/2.

310 QO= -VB+Q4*(FL-X)

320 M=MO-H*Y

330 Q=QO*COSH*SIN

340 N=QO*SINH*COS

350 PRINT#1, X=,X,Y=,Y,M=,M,Q=,Q,N=,N

360 GO TO 125

370 STOP

380 END

:

l

f

q1

cosφ

sinφ

tgφ

Mz

Qy/

FL

F

Q1

COS

SIN

TG

MO

QO

M

Q

Q N , Q N . Q, N .

, , . 9.3.2, -IV.

PROGRAM ARCA01

C

TYPE , F=

ACCEPT , F

TYPE , FL=

ACCEPT , FL

TYPE , =

ACCEPT , .. B,C,D,Q1,Q2,Q3,Q4,P1,P2,P3

WRITE (6,102)

102 FORMAT (5X, /)

WRITE (6,103)

103 FORMAT (30X, /)

WRITE (6,106)

106 FORMAT (5X, X,5X,Y,10X,M,13X,Q,15X,N/)

VA=(Q1*A*(2.*FLA)+P1*(FL+2.*B)+Q2*B*(FL+B)+P2*FL+Q3*C*(FLC)+2.*P3*D+

Q4*D*D)/(2.*FL)

VB=Q1*A+P1+Q2*B+P2+Q3*C+P3+Q4*DVA

H=(VB*FL/2. P3*CQ4*D*(C+D/2.) Q3*C*C/2.)/F

WRITE (6,104) VA, VB, H

104 FORMAT (5X,VA=,F8.4,5X,VB=,F8.4,H=,F8.4/)

X=0.

2 X=X+1.

IF (X.EQ.FL) GO TO 10

Y=F/FL*SQRT(FL*FL4.*(X0.5*FL)**2)

TGFI=(F/FL)**2*4.*(FL/2. X)/Y

COSFI=SQRT(1./(1.+TGFI**2))

SINFI=TGFI*COSFI

IF (X-A) 5,5,6

5 FMO=VA*XQ1*X*X/2.

FQO=VAQ1*X

G0 TO 12

6 IF (XAB) 7,7,8

7 FMO=VA*X-Q1*A*(XA/2.)-P1*(XA)-Q2*(XA)**2/2.

FQO=VAQ1*AP1Q2*(XA)

G0 TO 12

8 IF (X-A-B-C) 9,9,10

9 FMO=VA*XQ1*A*(XA/2.) P1*(XA) Q2*B*(XAB/2.) P2*(XFL/2.)

Q3*(XFL/2.)**2/2.

FQO=VAQ1*AP1Q2*BQ3*(XFL/2.) P2

GO TO 12

10 IF (XFL) 11,14,14

FMO=VB*(FLX) Q4*(FLX)**2/2.

FQO= VB+Q4*(FLX)

12 FM=FMOH*Y

FQ=FQO*COSFIH*SINFI

FN=FQO*SINFIH*COSFI

PRINT , X,Y,FM,FQ,FN

G0 TO 2

14 STOP

END

= 0 , .. = 0, tgφ =, φ = π/2, cosφ = 0, sinφ = 1. , (5.4.3) (=0) = 0, Q( = 0) = , N( = 0) = V. = l, .. = 0, φ = π/2, cosφ = 0, sinφ = 1, (5.4.3) ( = l) = 0, Q( = l) = H,N( = l) = V.

Q N , Q N . Q, N .

-1.

9.3.1. z, Q/ N , . 5.4.1, a.

. . -1 - . (5.4.4), tgφ (5.4.5).

: z, Q/, N . 5.4.1, .

9.3.2. z, Q/ N , -

. 5.4.3.

y = 4fx(l x)/l2,tgφ = dy/dx = 4f(l 2x)/l2.

. - . -1 , , , tgφ.

: z, Q/, N . 5.4.3.

9.3.3. z, Q/ N , . 5.4.4.

. - .

: z, Q/, N . 5.4.4, , , .

, , . 5.4.4

x

y

M

Q

N

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

2.397916

3.316625

3.968627

4.472136

4.873397

5.196152

5.454356

5.656854

5.809475

5.916080

5.979130

6.000000

5.979130

5.916080

5.809475

5.656854

5.454356

5.196152

4.873397

4.472136

3.968627

3.316625

2.397916

-25.00936

-24.17419

-21.13823

-18.20665

-16.28125

-15.82497

-15.60995

-14.30865

-12.03476

-8.863564

-4.843040

-0.000000

-4.343040

-7.863564

-10.53476

-12.30865

-13.10995

-12.82497

-21.28125

-28.20665

-33.13823

-35.17419

-32.00936

-1.388797

2.037357

2.778986

2.308956

1.174283

-0.3642907

0.7613568

1.775328

2.710070

3.589154

4.430793

5.250000

-3.931229

-3.090930

-2.214185

-1.282963

-0.2739916

0.8446751

-7.291819

-5.504004

-3.213944

-4.0983200E-02

5.003451

-28.07817

-25.95499

-23.99145

-22.39378

-21.14080

-20.19108

-20.18001

-20.11618

-20.01170

-19.87286

-19.70230

-19.50000

-19.68141

-19.83075

-19.94768

-20.02914

-20.06832

-20.05241

-23.33756

-23.82265

-24.23805

-24.45017

-23.93278

9.3.4. z, Q/ N , . 9.3.3. , tgφ 9.3.2.

: VA = V = 120 ; = 120 ; M = Q = 0; N = .

9.3.5. z, Q/ N , . 9.3.4. (5.4.4), tgφ dy/dx. 9.3.1.

: V = 5; = 7,5 ; = 0, R = 6,5 ; N = 7,5 ; Q=5 .

9.3.6. , , . 9.3.5. , tgφ 9.3.2.


: VA = 90 ; VB = 30 ; = 60 ; Q = 30 ; N = .