Материалы сайта
Это интересно
Автоматизация линии производства кормовой рыбной муки
Программа расчета АЧФХ. CLS SCREEN 12 WINDOW (0,480)-(640,0) oo = 1 y = 0 r = 0 FOR t =1 TO 3 STEP .5 y = 0 FOR w = 0 TO 1 STEP .001 re = (.28 * COS(12 * w) - 11.2 * w *SIN(12 * w) - 84 * w * w * COS(12 * w)) / (90000 * w * w * w * w + 1000 * w * w +1) im = (-10.5 *w *COS(12 * w) + 84 * w * w *SIN(12 * w) - .28 * sin(12 * w)) / (90000 * w * w * w * w +1000 * w * w + 1) IF y >= 2 + r AND t = 1 AND w < .17 THEN CIRCLE(400 + re * 700, 430 + 700 * im), 3, 5 LOCATE oo, 1 PRINT USING (###.#####(; re; PRINT ( (; PRINT USING (###.#####; im ‘LINE ((400 + 5.132276E-03 * 700), (430 + 7.787416E-03 * 700))-((400 + re * 700), (430 + 700 * im)) oo = oo + 1 k = k + 1 y = 0 END IF r = r + .1 y = y + 1 a = SOR(re * re + im * im) IF w = 0 THEN w = .00001 b = (a / (w * t)) IF w > .3 OR w < .06 THEN GOTO 10 PSET ((400 + (re - (im * b) / a) * 700), (430 + 700 * (im + (re * b) / a))) IF y >= 2 + r AND t = 1 AND w < .179 THEN END IF 10 PSET (400 + re * 700, 430 + 700 * im) NEXT w y = 0 NEXT t 20 GOTO 20 END
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 29 30 31