Курсовая работа: Разработка математической модели электронного устройства

61 PRINT "Y ("I;

62 INPUT ") ="; Y (I)

63 NEXT I

100 H= (XK-X) /M: MC= (XK-X) /20: Z9=0

101 FOR I=1 TO N

102 Y1 (I) =Y (I): Y9 (I) =0

103 NEXT I

110 FOR I=1 TO M

120 GOSUB 500

130 FOR L=1 TO N

131 K1 (L) =F (L)

132 Y (L) =Y1 (L) +F (L) /2

133 NEXT L

140 X=X+H/2

141 GOSUB 500

150 FOR L=1 TO N

151 K1 (L) =K1 (L) +2*F (L)

152 Y (L) =Y1 (L) +F (L) /2

153 NEXT L

160 GOSUB 500

170 FOR L=1 TO N

171 K1 (L) =K1 (L) +2*F (L)

172 Y (L) =Y1 (L) +F (L)

173 NEXT L

180 X=X+H/2

181 GOSUB 500

182 FOR L=1 TO N

183 Y (L) =Y1 (L) + (K1 (L) +F (L)) /6

184 Y1 (L) =Y (L)