Программа Dinam

Integer n, I, j, k

Real m1, m2, lamb

Common /a/ lamb, q, c, p0, b, m1, m2

Write (7,1)

Format (2x, ‘Введите ваш личный номер’)

Read (5,*)L

Type*, ‘Введите движущее усилие при пуске’

Read (5,*)P0

Type*, ‘Введите коэффициент пропорциональности’

Read (5,*)B

Type*, ‘Введите силу сопротивления, вес груза’

Read (5,*)Q

Type*, ‘Введите приведённую массу механизма М1 (кг)’

Read (5,*)M1

Type*, ‘Введите жёсткость полиспаста (Н/м)’

Read (5,*)C

Type*, ‘Введите интервал вывода данных Т МАХ (с)’

Read (5,*)T

Print 11, l

Format (5x, ‘исполнитель – личный номер,15/

5x, ‘Пусковые нагрузки’

n=t*20

m2=q/9.81

lamb=q*(m1+m2)/(m1*m2)

dt=.001

dx2=0

assign 17 to k

BO TO 18

Type*, ‘Введите’

Read (5,*)p0

Type*, ‘Введите’

Read (5,*)dx2

Print 21

Format (5x, ‘’)

Dx2=-dx2

B=0

Assign 22 to k

Print 23

Format (5x, ’t’, 3x, ‘F KAH’/ 7x, ‘DX1’, 5x, ‘DDX1’, 3x, ‘x2’, 7x, ‘dx2’, 5x, ‘ddx2’ /70 (‘ ‘)/5x, ‘C’, 10x, ‘H’, 3x, 2(6x, 2m, 8x, m/c, 5x, ‘m/c2’)/70 (‘))

t=d.

f=0

df=0.

x2=0.

Do 24 I=1, n

Do 25 j=1, 100

Call ff(RF1, F, DF, DX2)

RF1=rf1*dt

Call fx(rx1, f)

Rx1=rx1*dt

A=f*df*dt/2

GS1=rf1/2+rf

GS=dx2+rx1/2

Call FF(rf2, a, gsi, gs)

Rf2=rf2*dt

Call fx (rx2, a)

Rx2=rx2*dt

E=a+rf1*dt/4.

Gs1=rf2/2+de

Gs2=dx2+rx2/2

Call ff (rf3, e, gs1, gs2)

Rf3=rf3*dt

Call fx (rx3, e)

Rx3=rx3*dt

E=a+rf2*dt/4

G11=df+rf3

G12=dx2=rx3

Call ff(rf4, e, g11, g12)

Rf4=rf4*dt

Call fx (rx4, e)

<….>

Таблица 5.3

Варианты исходных данных

№ п/п	Масса груза, кг - m2	Высота подъёма, м - H	Скорость подъёма, м/с - V	№ п/п	Масса груза, кг - m2	Высота подъёма, м - H	Скорость подъёма, м/с - V	Группа режима работы
			14.5

Лабораторная работа №6

СТРОП СИНТЕТИЧЕСКИЙ ТЕКСТИЛЬНЫЙ