книги / Электромеханические аппараты автоматики

5

REM

%%ПРОГРАММУ%7РАЗРАБОТАЛ%%Д0ЦЕНТУЖАФЕДРЫ%%3ЛЕКТР ИЧЕ СКИ Х%% '

10

REM

%

п

15

REM

М

А

М

М

20

REM

О

РЕ. KRB

25

REM

С

30

REM

К

35

REM

$

Н А

Г

Е

Р

К

0

Н

А

X

40

REM

%

45

REM

3

50

REM

н

55

REM

ЕРГ$%ИНСТИТ$%КАНДШЕХН$%НАУК%ЮРИЙ%%СЕРГЕЕВИЧ%ЖОРОБКОВ%% '

60

PRINT

TA B (2 0 )'

Д О Б Р Ы Й

Д Е Н Ь '

\

PRINT

\

PRINT

\

PR INT

65

PR INT

TA B (2 0 )/

$$$$$$$$$$$$$$$$$$$$$$

70

PR INT

" Р А С Ч Е

Т

О Б М О Т К И

Р Е Л Е

Н А

Г

Е

Р К О Н А Х "

75

PRINT

\

&&&&&&&&&&&

& Ш

Ш

Ш

Ш

&&&&&&&

&&&

Ш Ш

Ш

Ш

Ш

- "

80

PRINT

PR INT

\

DIM

0 (73 )

\

L E T М =142/113

\

PRINT

85

PRINT

'

ИМЕЕТСЯ

ЛИ У ВАС НА ДИСКЕ ФАЙЛ С ДАННЫМИ ОБМОТОЧНЫХ";

О"

90

PR INT

\

ПРОВОДОВ

?" \

PR INT

\

PR INT "

THEN

ДА

<ВК>

,

НЕТ

95

PRINT

\

INPUT

С9$

\

PRINT

\

IF

C9S="

150

\

FOR

J= l%

TO

73%

100

PRINT

PRINT

"

ВВЕДИТЕ

ДИАМЕТР

0 ( " J " )

ПРОВОДА"

105

PRINT

\

INPUT

0 (J)

\

PR INT

\ PR INT " ПРАВИЛЬНО ЛИ ВВЕДЕНО ? ";

110

PRINT

AA

<BK>

,

НЕТ

O'

\

PR INT

\

INPUT

C9S

\

PR INT

115 IF C9S<>" " THEN

100 \

PR INT

\

PRINT

" ИМЕЕТСЯ

ЛИ ЕЩЕ

1 ДИАМЕТР";

120

PRINT

"

ПРОВОДА

?" \

PRINT

"

ДА

<ВК> ,

НЕТ

0" \

PRINT

J

125

INPUT

C9S \

PRINT

\

LE T

JO = J

\

IF

С 9 $ о "

"

THEN

130

\

NEXT

130

OPEN

"0 . KRB"

FOR

OUTPUT

AS

F I L E

#1

J \

CLOSE

#1 \

PRINT

135

FOR J= l%

TO

JO

\

PRINT # 1 ,0 (J )

\

NEXT

140

PRINT

'

\

ТЕПЕРЬ

У

ВАС ЕСТЬ НАДИСКЕ

ФАЙЛ С ДАННЫМИ

О

ПРОВОДАХ"

145

PRINT

GO

ТО

160

AS

F I L E

#1

150

OPEN

"0 . KRB"

FOR

INPUT

NEXT

I

\

CLOSE

#1

\

PRINT

155 FOR 1=1% TO 73% \

INPUT

# 1 ,0 (1 )

\

FS ,O S

160

PR INT

" УКАХИТЕ

СВОЮ ФАМИЛИЮ ,

ИМЯ

И ОТЧЕСТВО

,

ГРУППУ"

\

INPUT

165

INPU T

ES

\ PR INT

" УКАХИТЕ

ТИП

ГЕРКОНОВ

В

РЕЛЕ"

\

PR INT

\

INPUT G$

170

PR INT

\

PR INT

'

УКАХИТЕ

КОЛИЧЕСТВО ГЕРКОНОВ

В РЕЛЕ

N9

175

PRINT

\

INPUT

N9 \

PRINT

\

I F

N9>100

THEN

170

L"

\

PR INT

180

PR INT

L

\

PRINT

"

ЗАДАЙТЕ

В

ММ ПОЛНУЮ ДЛИНУ ГЕРКОНА

185

INPU T

\ I F

L> = 150

THEN

180

\

PR INT

\

I F

L<=0

THEN

180

D9

190

PR INT

"

ВВЕДИТЕ

В ММ ДИАМЕТР

БАЛЛОНА D9" \ PR INT

\

INPUT

195

PRINT

\

I F

D9<=1

THEN

190

\

PR INT

\

L E T

D0=D9*( 1 +1 NT( SQR(N9) +. 5 ))

200

PR INT

\

ЗАДАЙТЕ

FO

В

I F

А

М Д С

200

СРАБАТЫВАНИЯ

ГЕРКОНА

FO"

205

PRINT

INPUT

\

F0<=0

THEN

\

PR INT

\

I F

N9=1

THEN

D0=D9

210

PRINT

\

PR INT

" ЗАДАЙТЕ В ГРАДУСАХ ТЕМПЕРАТУРУ ОКРУХАКЩ Й СРЕДЫ ТО"

215

PRINT

\

INPUT

ТО \

PRINT

\

IF

ABS(Т О )>=100

THEN

210

ОБМОТКИ Т"

220

PRINT

\

PR INT

"УКАХИТЕ

ДОПУСТИМОЕ

ПРЕВЫШЕНИЕ

ТЕМПЕРАТУРЫ

225

PR INT

\

INPU T

T

\

I F

T<=0 THEN

220 \

PR INT

\

I F

T0+T>700

THEN

220

230

PR INT

\

PR INT

"ЗАДАЙТЕ

КОЭФФИЦИЕНТ ТЕПЛООТДАЧИ

К Г

\

PR INT

\

PRINT

235

PR INT

"

В

БОЛЬШИНСТВЕ

СЛУЧАЕВ

ОН

РАВЕН

10 ВТ/(М . КВ. ГРАДУС)

240

PR INT

”

ЕСЛИ ЭТО

ВАС УСТРАИВАЕТ,

ТО

ВВЕДИТЕ

-

0,

"

BRINT

\

INPU T К1

245

PR INT

“

ИНАЧЕ

ВВЕДИТЕ

НЕОБХОДИМОЕ

ЕГО

ЗНАЧЕНИЕ

"

\

\

250

L E T

03=. 1 1 5 *S Q R (N 9 *F0)

\

L E T

F - l . 4 *F 0 *N 9 \

33333

I F

K l- 0

THEN

K l- 1 0

255

L E T

R O *. 0 175 *( 1% *4 . 30000E-03*( T+TO -20% ))

ОБМОТКИ

U

"

\

PR IN T

260

PR INT

\

PR INT

'

ЗАДАЙТЕ

НАПРЯХЕНИЕ

ПИТАНИЯ

265

INPUT

U

\

PR INT

\

I F

U>400

THEN

260

\

I F

U<0

THEN

260

ВНЕШНЕМ';

270

PRINT' ПРИ

ВНУТРЕННЕМ

РАСПОЛОХЕНИИ

ГЕРКОНОВ

-

<ВК>

,

ПРИ

275

PRINT

'

-

0'

\

PRINT

\

INPUT

Х$

\ PR INT

\

I F

Х $ -'

'

THEN

300

280

PRINT

'ВВЕДИТЕ

В

ММ ДИАМЕТР

СЕРДЕЧНИКА

D 2 > = '0 3 ; 'ММ'

285

PRINT

\ INPUT 02 \ PR INT

D1 >=' D 2 ;' ММ'

290

PR INT И ВНУТРЕННИЙ ДИАМЕТР ОБМОТКИ

GO

ТО 320

295

PRINT

\ INPUT 01

\

PRINT

\

I F D K D 2

THEN

290

\

0 1 ,”

300

PRINT

ВВЕДИТЕ В ММ ЭКВИВАЛЕНТНЫЙ ВНУТРЕННИЙ ДИАМЕТР ОБМОТКИ

305

PR INT " КОТОРЫЙ ПРИ ВНУТРЕННЕМ РАСПОЛОХЕНИИ ГЕРКОНОВ"

310

PR INT

"

ДОЛХЕН

БЫТЬ НЕ

МЕНЕЕ

'i0 0 ;"

ММ"

THEN 300

315

PRINT

\ INPUT D1

\

L E T

D2-0%

\ IF

D 1<00

ОБМОТКИ

L1 "

320

PRINT

\

\ PR INT "НАЗНАЧЬТЕ

В

ММ

ПРЕДВАРИТЕЛЬНУЮ

ДЛИНУ

325

PRINT

INPUT

L I

\

L E T

L ( 1 ) = L 1

\

I F

L1> L

THEN

320

330

LE T

H 1= IN T (.4 772 3 9 *L *D 9 /L 1+ 1% )

\

IF E$<>' ' THEN

L E T

E

l

ГРУППА

335

FOR

L1= L1

TO L

STEP

5% \

FOR

H1=H1

TO

2%*H1

STEP

. 1 *H 1

340

L E T

D7«2%*SQR( 1 . 0 0 0 0 0 E-0 3 *F*R 0 *( D 1+ H 1)/U )

\

PR INT

\

PR IN T

345

PR INT

\

P R I N T ," Я

С Ч И ТА Ю ",,"

ХДИТЕ

\

ОТВЕТА"

350

FOR

J= l%

TO

68%

\ I F

0 (J)> = D 7

THEN

355

NEXT J

355

LE T

D 7 -0 (J )

\

L E T Y -H l *L 1 *SQR( SQR( D 7/6 . 76 75 8))

360

LE T

Y l » l . 27324/( D 7*D 7)

\

LE T

N=Y*Y1

\

L E T N = 1 0 0 »*IN T (. 0 1*N + . 5)

365

LE T

Y2=N/Y1

\

I F

\

Y>=Y2

THEN

370

\

NEXT

HI

370

PR INT

\

PRINT

L E T

R l-4 .O O O O O E -0 3 *R O *N *(D 1 + H 1 )/ ( D 7*D 7)

375

L E T

I l - U / R l

\

L E T

P I = U *I1

\

L E T

F 1 - N * I 1

\

PR INT

PR IN T

\

PR INT

380

L E T

T l= 1.0 0 0 0 0 E + 0 6 *P l/(2 . 5*M *K1 *L 1 *(0 1 + 2% *H i) )

\

385

IF

T K T

THEN 390

\

NEXT

L I

\

I F

T1> T

THEN

210

\

PR INT

\

PR IN T

390

H 1= IN T (. 5+H1)

\

08*D1 +2%*H1

\

I F

D8>=L1

THEN

320

395

PR INT

"

ДЛЯ

ВЫВОДА РЕЗУЛЬТАТОВ

НА

ЭКРАН

НАХМИТЕ

-

<ВК>,

"

400

PR INT

'

\

ИНАЧЕ ВКЛЮЧИТЕ

АЦПУ

И ВВЕДИТЕ ЛЮБОЕ

ЧИСЛО'

\

PR IN T

405

INPUT

Q$

Q-0%

\

PR INT

\

I F

Q$='

'

THEN

500

Е

Н

-------- — —

410

L E T C 8 J-"

*= = * ------- -

Р А С Ч Е Т

\

З А К О Н Ч

415

OPEN " L P :"

FOR

OUTPUT

AS

F I L E

#1

L E T

Q=1% \

I F

F S -"

"

THEN 425

420

PRINT

#Q, TAB( 1 5 ) "ФАМИЛИЯ

"F$

\

PR IN T

#Q, TAB( 25)0$ ; TAB( 5 5 )E l $; E$

425

PR INT

#Q,

\

PRINT

# Q ,,"

И С Х О Д Н Ы Е

Д А Н Н Ы Е : "

430

PR INT

# Q ,, “

Р Е Л Е

Н А

Г

Е

Р

К

О

Н

А

Х

"G$

"

\

PR INT

#Q,

435

PRINT

# Q ,,"

440

PRINT

# Q ,, "

КОЛИЧЕСТВО

ГЕРКОНОВ

В

РЕЛЕ

N 9 -” N9

445

PR IN T

#

Q

, ПОЛНАЯ

Д Л И Н А

Г Е Р К О Н А ....................

L

- " L ; "НМ"

450

PR IN T

I Q , , "

ДИАМЕТР

БАЛЛОНА Г Е Р К О Н А ....................

D9-"D9;"M M "

455

PR IN T

# Q ,, "

Н Д С

СРАБАТЫВАНИЯ

Г Е Р К О Н А .....................

F O - " F O ;" A "

460

P R IN T

# Q ,, "

НАПРЯЖЕНИЕ

ПИТАНИЯ

РЕЛЕ

U

- " U ;" B "

465

I F

02«0 THEN

475

N

E

T

P

С ЕРД ЕЧ Н И КА

D 2 - 'D 2 ;'H M '

470

P R IN T

# Q ,,' Д И

A

475

PR IN T

# Q ,, " ВНУТРЕННИЙ

ДИАМЕТР

ОБМ ОТКИ ......................

D 1 - " D 1 ;"ММ"

480

PR INT.

# Q ,, " ПРЕДВАРИТЕЛЬНАЯ

Д

Л

И

Н

А ......................

L 1 - " L ( 1 ) ; "ММ"

485

PR IN T

# Q ,, " ОКРУЖАЮЩАЯ

ТЕМ ПЕРАТУРА .

.

. . .

. .

T O - " T O ;" Г Р А Д "

490

PR IN T

# Q ,," ДОПУСТИМЫЙ

П ЕРЕГРЕВ

РЕЛЕ

Т - " Т ;" Г Р А Д "

КВ.М"

495

PR IN T

# Q ,, " КОЭФФИЦИЕНТ

ТЕПЛООТД АЧИ ......................

К 1 - " К 1 ;" В Т / Г Р А Д

500

P R IN T

#q,

\

PR IN T # Q ,, "

Р Е З У Л

Ь Т А Т Ы

Р А С Ч Е Т А "

505

P R IN T

# Q ,, "

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"

\ PR IN T

#Q,

510

PR IN T

# Q ,, " Ч И С Л О

ВИТКОВ

ОБМОТКИ

N

»"N

515

PR IN T

# Q ,," Д Л

И

H

А

О Б М О Т К И

L 1 -" L 1 ;" M M "

520

PR IN T

# Q ,, " Т0Л1ЩНА

О Б М О Т К И

H I - " H I ; "MM"

525

PR IN T

# Q ,,'

ВНЕ1ШИЙ ДИАМЕТР

ОБМОТКИ

D 8 -'D 8 ;'M M '

530

PR IN T

# Q ,, "

ДИАМЕТР ГОЛОГО

П РОВ ОД А..

D 7-"D 7;"M M "

535

PR IN T # Q ,, "

СОПРОТИВЛЕНИЕ

ОБМОТКИ

R 1 -" R 1;"0 M "

540

PR IN T # Q „ "

T

О

К

В

ОБМОТКЕ

РЕЛЕ

I 1 - " I 1 ; " A "

545

PR IN T

# Q ,,"

Р

А

Б

О 'Ч

А

Я

М Д С РЕЛЕ F

- " F ;" A "

550

PR IN T # Q ,,'

СОЗДАВАЕМАЯ "

М Д С

РЕЛЕ

F 1 - ' F 1 ; ' А'

555

PR IN T

# Q ,, "

ПОТРЕБЛЯЕМАЯ

МОИЦОСТЪ РЕЛЕ

Р 1 - " Р 1 ;" В Т "

560

P R IN T

# Q ,, "

П ЕРЕГРЕВ

ОБМОТКИ Р

Е

Л

Е .....................

Т 1 - " Т 1 ;" Г Р А Д "

#Q,

565

I F

Q -O X

THEN

580

\

PR IN T

#Q,

\

PR IN T

#Q,

\ P R IN T

# Q ,,C 8 $

\

PR IN T

570

PR IN T

# Q ,, "

ЖЕЛАЮ УСПЕХОВ

В

ИСПОЛЬЗОВАНИИ

ПОЛУЧЕННЫХ-РЕЗУЛЬТАТОВ "

575

PR IN T

#Q,

\

PR IN T # Q ,Т А В (4 9 )"Э

В

М"; Т А В (5 9 )DATS

\

CLOSE

\

PR IN T

580

PR IN T

\

PR IN T

"

ВСЕ ЛИ

УДОВЛЕТВОРЯЕТ

?

ДА -

<ВК>

,

НЕТ

О"

585

P R IN T

\

IN PU T

С9$

\ PR IN T

\

I F

C9S<>'

THEN

160

,

НЕТ

О'

590

P R IN T

'

НАМЕРЕНЫ ВЫВОДИТЬ РЕЗУЛЬТАТЫ

НА

'

ПЕЧАТЬ

-

<ВК>

595

PR IN T

\

IN PU T

С9$

\

PR IN T

\

I F

C 9 S -'

THEN

395

600

P R IN T

\

PR IN T

"

ХОТИТЕ

ЛИ

ВЫ ПОВТОРИТЬ РАСЧЕТ

С

НОВЫМИ ДАННЫМИ ?

605

P R IN T

"

ЕСЛИ

ДА,

ТО

-

<ВК>,

ИНАЧЕ

- 0"

\

PR IN T

\ IN P U T

С9$

\

PR IN T

610

I F

C9S—'

'

THEN

160

\

I F Q -O X

THEN

640

\

PR IN T

\ P R IN T

\

PR IN T

615

P R IN T

"

X

X XX fflXX X XX PXX XX X O X XX XW X XX XX yXX XX ttX XX XX AXX X XX C X XX ?

620

PR IN T

"

X

В

Ы

К

Л

Ю

Ч

И

Т

Е

А

Ц

П

У

*

*

V

625

PR IN T

’

X V

630

PR IN T

"

635

PR IN T

"

PR IN T

ХХХХХХХХХХХХП ХХОХХХХХАХХЛХХУХХЙХХСХХГХХАХХХХХХХХХХГ

640

PR IN T

\

\

PR IN T

\

PR IN T

T A B (2 0 )'

С П А С И Б О ! '

\

END

5 REM

-

%ХПРОГРАММУ%ХРАЗРАБОТАЛ%%ДОЦЕНТ%ХКАФЕДРЫ%%ЭЛЕКТРИЧЕСКИХ%% 7

10

REM

7

X

П

P

0

Г

P

A

M

M

А

A

7

15

REM

-

7

M

П

7

20

REM

-

7

0

В Е С .KRB

П

7

25

REM

-

7

C

A

7

30

REM

-

7 К

P

7

35

REM

-

7

$

Л

Е

К

Т Р О М

А

Г

Н

И Т

Н

Ы

Й

П О Д В Е С "

A

7

40

REM

-

7

X " Э

T

7

45

REM -

7

Э

0

7

50

REM -

7

H

В

7

55

REM -

'

ЕРГ$«ИНСТИТ$ЖАНД$%ТЕХН$ШАУКЖРИЙ%%СЕРГЕЕВИЧ%ЖОРОБКОВ%% '

60

PR IN T Т А В (З О )7 Д О Б Р Ы Й

Д Е Н Ь 7

\

PR IN T

\

PR IN T

\

PR INT

65

PR IN T Т А В (З О )'

$$$$$$$$$$$

SSSSSSS7

Г

70

PR IN T

, '

РАСЧЕТ

Э

Л

Е К

Т Р О

М

А

Г Н

И

Т

Н

О

О

П О Д В Е С А '

75

PR IN T

/

\

Ш

Ш

\

L E T М -14 2 /113

\

DIM

0 (73 )

\

PR IN T

\

PR IN T

\ PR IN T

80

PR IN T

PR IN T

?

85

PR IN T Т А В (18 )'

ХОТИТЕ

ЛИ УКАЗАТЬ СВОИ

ДАННЫЕ

ДА

-

<ВК>

,

НЕТ

О'

90

PR IN T

\

IN P U T

Х$

\

PR IN T

\

I F

Х$<>'

'

THEN

\

115

\

INPU T

FS

95

PR IN T

\

УКАЖИТЕ,

ПОЖАЛУЙСТА,

СВОЮ ФАМИЛИЮ7

PR IN T

100

PR IN T

I F

F S - 7

7

THEN

115

\

PR IN T , 7

ВВЕДИТЕ

СВОЕ

ИМЯ

И

ОТЧЕСТВО7

105

PR IN T

\

INPU T

0$

\

PR INT

\

PR IN T

\

IN PU T

G$

\

PR IN T

110

PR IN T

, 7

УКАЖИТЕ

НОМЕР

ГРУППЫ7

,

115

PR INT

, 7

ЕСЛИ

НАМЕРЕНЫ

ПРОЕКТИРОВАТЬ

ПОДВЕС

-

<ВК>

А

ЕСЛИ7

120

PR IN T

, 7

ХОТИТЕ

ТОЛЬКО

РАССЧИТАТЬ

ТЯГОВУЮ

ХАРАКТЕРИСТИКУ

О7

125

PR IN T

\

PR IN T

, ,

\ INPUT W0$ \

PR IN T

\

GOSUB

1160

ТО"

130

PR INT

\

ЗАДАЙТЕ

В ГРАДУСАХ

ТЕМПЕРАТУРУ

ОКРУЖАЮЩЕЙ

СРЕДЫ

135

PR IN T

PR INT

, ,

\

INPU T

ТО

\

PR INT

\

I F A B S (T0 )> -10 0

THEN

130

140

PR IN T

, и

УКАЖИТЕ

ДОПУСТИМОЕ

ПРЕВЫШЕНИЕ

ТЕМПЕРАТУРЫ

ОБМОТКИ

Г

145

PR INT

\

PR INT

, ,

\ INPU T Т \ PRINT

150

I F

Т+Т0>750

THEN

140

\

I F

Т< -0

THEN 140

К Г

\

PR IN T

\

PR INT

155

PR INT

, "

ЗАДАЙТЕ

КОЭФФИЦИЕНТ

ТЕПЛООТДАЧИ

"

160

PR IN T

, "

В

БОЛЬШИНСТВЕ

СЛУЧАЕВ

ОН

РАВЕН

10

ВТ/(М . КВ. ГРАДУС)

165

PR IN T

ЕСЛИ

ЭТО

ВАС УСТРАИВАЕТ,

ТО

ВВЕДИТЕ

-

0,

"

PR IN T

170

PR IN T

, "

ИНАЧЕ

ВВЕДИТЕ

НЕОБХОДИМОЕ

ЕГО

ЗНАЧЕНИЕ

"

\

175

PR INT

, , \

INPUT К1

\ PR IN T

\

PR IN T

\

I F K l-0 %

THENL E T K l-10 %

180

L E T

R 0 -. 0 1 7 5 *( l% f4 . 30000E-03*( T+T0-20% ))

\

I F

W0$-7

7THEN

265

185

PR IN T

\ PR IN T

, 7

ЗАДАЙТЕ

В

А

ТОК В ОБМОТКЕ

Г

190

PR IN T

\ PR INT

, ,

\ INPU T

I

\

PR INT

195

PR INT

, 7 УКАЖИТЕ ЧИСЛО

ВИТКОВ

ОБМОТКИ

N 7

\

PR IN T

200

PR IN T

, , \

INPU T N

\

PR IN T

\

L E T

F 1 ( 0 ) - I * N

D1

И

ЕГО

ДЛИНУ

L 1 7

205

PR INT

, 7

ЗАДАЙТЕ

В ММ НАРУЖНЫЙ

ДИАМЕТР

ЯКОРЯ

\

210

PR IN T

\

PR INT

, ,

\

INPU T

D1

\

PR IN T

\ PR IN T

, ,

INPUT

L I

\

PR INT

215

PR IN T

, 7 УКАЖИТЕ

В

ММ

ВНУТРЕННИЙ

ДИАМЕТР ЯКОРЯ D37

\ PR INT

220

PR IN T

, , \

INPUT

D3 \

PR INT \

L E T

0-D3/D1

\

I F

0> -1

THEN

215

225

PR IN T

ВВЕДИТЕ

В НМ СРЕДНИЙ

ДИАМЕТР

02

ОБМОТКИ И ЕЕ

ДАЙНУ

L 2 '

230

PR IN T

\ PR INT , ,

\

INPU T

02

\

I F

D2<-01

THEN

225

235

PR IN T

\ PR IN T , ,

\

IN PU T

L2

\

PR IN T

\

L E T

X - 2 * ( 0 2 - D ! ) 4 2 / N

240

I F

X/( 14 0 *1 A7 ) A. 125<1

THEN

255

245

L E T

T1 » 2 . 2 *1 *1 *N *N *0 2 / ( (2 *0 2 -0 1 ) * ( D2- D 1) 4 2 * L 2 * ( I / 1 4 0 )A. 125)

250

PR IN T

\

I F T1< T

THEN

800

\

P R IN T

\

PR IN T

ИНАЧЕ

БУДЕТ

П ЕР ЕГР ЕВ '

255

PR IN T

\

PR IN T

\

ИЗМЕНИТЕ

ПАРАМЕТРЫ ПОДВЕСА,

260

PR IN T

\

PR IN T

PR INT

\

GO

ТО

185

\

I F

S - l THEN 345

265

I F

G$<>'

'

THEN

L E T

E l $ - ' ГРУППА

:

'

270

PR IN T

, "

ИМЕЕТСЯ AM У ВАС НА ДИСКЕ ФАЙЛ С ДАННЫМ ОБМОТОЧНЫХ"

-

О"

275

PR IN T Т А 8 (3 1)"

ПРОВОДОВ 7"

\

P R IN T

\

PR IN T

ДА -

<ВК>,

Н ЕТ

280

P R IN T

\

\ INPU T С9$

\ P R IN T

\

I F C 9S -’

"

THEN

335 \ FOR

J - 1 % ТО 73%

285

PR IN T

PR INT

ВВЕДИТЕ

ДИАМЕТР

0 ( " J " ) ПРОВОДА"

ВВЕДЕНО

?’ ;

290

PR IN T

\

INPU T

0 ( J )

\

PR IN T

\ PR IN T

’

ПРАВИЛЬНО ЛИ

295

PR IN T

'

ДА -

<ВК> ,

Н ЕТ

- 0'

\

PR IN T

\ IN P U T

C9S

\

PR IN T

300

I F

С9$<>"

"

THEN

285

\

PR IN T

\ PR IN T " ИМЕЕТСЯ ЛИ ЕЩ. 1 ДИАМЕТР";

305

PR IN T

"

ПРОВОДА

7"

\

PR IN T

"

ДА

-

<ВК>

, Н ЕТ

-

0"

\

PR IN T

310

IN PU T

С9$

\

PR INT

\

L E T

J O - J

\

I F

С9$<>"

"

THEN

315

\

N EXT J

315

OPEN

"O .K R B "

FOR

OUTPUT

AS

F I L E

\

#1

\

L E T

S - l

#1

\

PR IN T

320

FOR

0 -1%

TO

JO

\

PR IN T

# 1 ,0( J )

NEXT

0

\

CLOSE

325

PR IN T

'

ТЕПЕРЬ

У

ВАС

ИМЕЕТСЯ

НА

ДИСКЕ

ФАЙЛ С

ДАННЫМИ О

ПРОВОДАХ’

330

PR IN T

\

GO

ТО

345

AS

F I L E

#1

335

OPEN

"O .K R B "

FOR

INPU T

I

\

CLOSE

#1

\

PR IN T

\

L E T

S - l

340

FOR

1 - 1

TO 73 \ INPU T

# 1 ,0 (1 )

\

NEXT

345

PR INT

\

PR INT

'

УКАХИТЕ В ГРАММАХ МАКСИМАЛЬНУЮ МАССУ '

PR IN T

350

PR IN T

'

ПОДВЕШИВАЕМОГО ГРУЗА

МО'

\

PR IN T

\

IN PU T МО \

355

I F

М0<-0

THEN

345

\

I F

М0>1. ОООООЕ+06

THEN

345

И МАГНИТ0ПР060ДА'

360

PR IN T

, '

УКАХИТЕ

\

М А Р К У

\

МАТЕРИАЛА ЯКОРЯ

365

PR IN T

\

PR IN T

, ,

IN PU T

MS

PR IN T

ВЫБРАННОГО МАТЕРИАЛА

В'

370

PR IN T

, '

ВВЕДИТЕ

В

ТЛ

ИНДУКЦИЮ НАСШ ЕНИЯ

375

PR IN T \

PR IN T

, ,

\

INPU T

В

\

ВО-В

\

P R IN T

\

I F

B > -2 .5

THEN

370

380

PR IN T

, ’ ЗАДАЙТЕ НАПРЯЖЕНИЕ

ПИТАНИЯ

ОБМОТКИ

ПОДВЕСА

U"

385

PR IN T \

PR IN T

, ,

V

IN PU T

U

\

PR IN T

\

I F

U< -0

THEN

380

I F

B9>B0

THEN400

390

FOR

N9-5

TO 20

\ FOR 0 1 -0

TO

.9

STEP. 1

\

395

I F

D1>0

THEN

405

400

L E T

0 1 - IN T ( S Q R ( .5 *M O / ( 1 - 0 1 *0 1 ) ) / B + .5)

405

L E T D 1 -IN T (D 1 + . 74 )

\

L E T

03 -1 N T (01 *0 1 + . 74)

410

L E T

L I -N 9 *0 1

\

L E T

0-D3/D1

\

L E T

M l- 4 . 90000E- 0 3 *M *D 1*0 1 * L 1 * ( 1 -0 *0 )

415

L E T

И2»(М0+М1) Д 0 2

\

GOSUB

1155

\

GOSUB

116 0

420

L E T

F O - 1 00*1 N T (. 5+820*M*01 *SQR( N1 *M2) / ( 2 4 1 + 7 .5 *M *D 1) )

425

L E T

F9 -6000*01 *0 1 * ( 1 - 0 *0 ) *B / ( M*( 2 4 1 + 7 .5 *M *D 1) )

\

L E T

L 2 - . 4 4 1

430

I F

F 0 > - F 9 / ( l . 5*M)

THEN

L E T

F 0 - F 9 / ( l . 5*M)

09 -01+3

435

L E T

D 9 -IN T ( 1 . 2*0 1 +. 74 )

\

I F

01 >20

THEN

L E T

440

L E T

F - l . 4 *M *F0

\

L E T

F ( 0 ) - F

\

L E T

HI - I N T (. 4 7 7 2 3 9 4 1 *0 9 Д 2 + 1 X)

445

FOR

L 2 -L 2

ТО 5 *L 1

STEP

5

\

FOR

H I-H I

TO

5*H1

STEP

. 1*H 1

450

L E T

D7-2% *SQR( 1 . O O O O O E -0 3 *F*R 0 *(D 9 + H 1) /U)

\

PR INT

\

PR INT

455

PR INT

\

P R I N T ," Я

С Ч И ТАЮ ",,"

ХАИТЕ

ОТВЕТА"

460

FOR

N 2 -1

TO

5

\

PR INT

\

PR INT

\

PR INT

470

\

NEXT

J

\

NEXT

N2

465

FOR J - 1 %

TO

68% \

I F 0 ( J ) A2> «D 7A2/N2

THEN

470

L E T D 7-0 ( J )

\

L E T

Y -H l*L l*S Q R (S Q R (D 7 / 6 . 76 75 8 ))

475

L E T Y1 - 1 . 2 73 2 4 Д D 7*D 7)

\ 'L E T

N -Y *Y 1/ N 2

\ L E T

N -10 0 % *IN T (. 0 1*N + . 5)

480

L E T Y2 -N *N 2 /Y 1

\

I F

Y> -Y2 THEN .485

\

NEXT

HI

485

L E T

D2-D9+H1 \

L E T

D8-D2+H1

490

PR INT

\

PR INT

\

L E T R 1- 4 . O O O O O E -0 3 *R 0 *N *(D 9 + H 1)/(D 7*D 7*N 2 )

495

L E T

I- U / R l

\ L E T

P - U *I

\

L E T

F 1 - N * I

\ PR INT

\

PR IN T

500

L E T

T 1 - 1 . OOOOOE+06*P/( 2. 5 *M *K 1*D 8 *( L2+ . 5 *D 8 *( 1 - ( D9/D8)A2 ) ) )

505

I F

T K T

THEN 510

\

NEXT

L2

\

NEXT

01

\

L E T

H 1 -2 *H 1 \

GO

TO

445

510

H I—IN T ( . 5+H1)

\

D8-D9+2%*H1

\

L E T

D2-D8-H1

\

PR IN T

\

PR INT

515

L E T

P I - 1 1 . 6 4 7 *F 1 *F 1 *M *( 3 * ( L I + 2 .5 *M *D 1) - L 2 ) A2

520

L E T

P l - 1 . O O O O O E-0 9 *Pl/( 2. 5 *M *N 1 *(7 . 5 *M *D 1 *(2 -D 1 / D 2 )) A2)

GO TO

390

525

I F

P I >—1 . 1*M2

THEN

530

\

NEXT

N9

\

NEXT

01

\

D 1 - 1 .1 * D 1

\

530

L E T

B 9 -8 *F 1 * ( 3 * ( L I +2. 5 *M *D 1) - L 2 ) / ( 1 8 75 0 *M *D 2 *D 2 *(1 - 0 * 0 ) * ( 2 - D 1/ 0 2 ))

535

I F

B9<B0

THEN

540

\

L E T

B-B/B9 \ GO TO

390

НАХМИТЕ

< В К > ,"

540

PR INT

\

PR INT

"

ДЛЯ ВЫВОДА РЕЗУЛЬТАТОВ

НА ЭКРАН

\

545

PR INT

'

\

ИНАЧЕ

ВКЛЮЧИТЕ

АЦПУ

И

ВВЕДИТЕ

ЛЮБОЕ

ЧИСЛО'

PR INT

550

INPUT

К$

К-0%

\

PR IN T

\

I F

K S -'

'

THEN

615

—

—

- —

"

555

L E T C8S-"

- —

Р А С Ч Е Т

\

З А К О Н Ч Е Н

560

OPEN

" L P :"

FOR OUTPUT

AS

F I L E

#1

L E T

K -1%

\

I F

F $ -"

"

THEN 570

565 GOSUB 1 1 70

ИСХОДННЫЕ

ДАННЫЕ

ПРОЕКТИРУЕМОГО

ПОДВЕСА

: '

570

PR INT

# К ,, '

\

PR IN T

#K,

575

PRINT

# К ,,'

М А Р К А

МАТЕРИАЛА

ЯКОРЯ

' MS

580