Материалы сайта
Это интересно
Автоматизация линии производства кормовой рыбной муки
Программа расчета АФЧХ на языке «BASIC» CLS SCREEN 12 WINDOW (0, 480)-(640, 0) oo=1: y=0: r=0 FOR T=80 TO 160 STEP 20 y=0 FOR t=80 TO .1 STEP .03 re=(.32*COS(40*w)-64*w*SIN(40*w))/(40000*w^2+1) im=-(.32*SIN(40*w)+64*w*COS(40*w))/(40000*w^2+1) PRINT USING «###.####»; w; PRINT « »; PRINT USING «###.####»;40000*w^2+1; PRINT « »; PRINT USING «###.####»;.32*COS(40*w); PRINT « »; PRINT USING «###.####»;64*w*SIN(40*w); PRINT « »; PRINT USING «###.####»;.32*SIN(40*w); PRINT « »; PRINT USING «###.####»; 64*w*COS(40*w); PRINT « »; PRINT USING «###.####»; re; PRINT « »; PRINT USING «###.####»;im oo=oo+1: k=k+1 y=0: r=r+.1: y=y+1 a=SQR(re*re+im*im) IF w=0 THEN w=.00001 b=(a/w*t)) IF w>.3 OR w<.06 THEN GOTO 10 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 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