Построение графика временной функции

 
 
 

       Рисунок 3.11 — Продолжение схемы алгоритма основной программы

       Блок 02 служит для ввода исходных данных. Блок 03 решает нелинейное уравнение. Блок 04 решает квадратное уравнение. Блок 05 вычисляет значение временной функции. В зависимости от значения, задаваемого в блоке 06, управление передается блоку 07 или блоку 09 или блоку 11, которые соответственно служат для вывода графика в машинном времени, в реальном времени, и вывода результатов вычислений.

4. построение графика с выводом результата расчета

1. Вывод промежуточных значений

 

       Значения  коэффициентов временной функции 

       a=0.2; b=2; c=1.8;

       d=17; x=0.45; m=0.56 

       Значения временной функции приведены в таблице 4.1 

       Таблица 4.1 — Значение временной функции 

    

2. Вывод графика временной  функции

 
 

 

       Заключение

       Курсовая  работа выполнена в соответствии с заданием. Программа может быть использована в учебном процессе. Целью данной работы являлось построение графика временной функции в машинном и реальном времени,  с возможностью вывода результатов на экран видеотерминала и на принтер.

       Мировой и отечественный  опыт подготовки специалистов в области компьютерной науки и компьютерной инженерии подтверждает целесообразность и эффективность понимания основ программирования на более простых и базирующих языках программирования, одним из которых является Basic. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

       Список  использованных источников 

       

1. Конспект лекций по дисциплине «Информатика».
2. Москаленко А.А. и др., Основы программирования.– Методическое пособие. – Мп.: БНТУ,2009 г.
3. Материалы сайта http://shadowsshot.ho.ua.

 

ПРИЛОЖЕНИЕ  А. Листинг программы 

1 SCREEN 9

5 CLS

10 DIM Y1(60): DIM A(5): DIM Y(30)

20 GOSUB 1000

30 GOSUB 1500

40 GOSUB 2000

50 GOSUB 3000

55 INPUT "Variantigrafika: 1-mashinnoe vremya, 2-realnoe vremya, 3-rezultati";P

56 IF P=1 THEN GOSUB 4000: END

57 IF P=2 THEN GOSUB 5000: END

58 IF P=3 THEN GOSUB 6000 ELSE PRINT "Oshibkavvoda": END

60 END

1000 REM Vvoddannix

1010 A1=1:B1=3:C1=-2:E=.001:A=.2:B=2:C=ABS(A-B):D=TAN(35*3.14/180):XA=0:XB=1

1020 T0=0:TKON=12:TK=.5

1030 RETURN

1500 REM newton

1510 X=(XA+XB)/2

1520 FX=SQR(1-X)-COS(SQR(1-X))

1530 F1X=(SIN(SQR(1-X))+1)*SQR(1-X)/(2*X-2)

1540 F=FX/F1X

1550 X=X-F

1560 IF ABS(F)<=E THEN ELSE GOTO 1520

1570 RETURN

2000 REM Kvadratnoeuravnenie

2010 D=B1^2-4*A1*C1

2020 ON SGN(D)+2 GOTO 2030,2040,2050

2030 D=-D:Z=SQR((B1/(2*A1))^2+(SQR(D)/(2*A1))^2):IF(-B1/(2*A1)<0) THEN Z=-Z:GOTO 2090

2040 Z=-B1/(2*A1): GOTO 2090

2050 Z1=(-B1+SQR(D))/(2*A1)

2060 Z2=(-B1-SQR(D))/(2*A1)

2070 IF ABS(Z1)<ABS(Z2) THEN Z=Z1 ELSE Z=Z2

2080 M=Z

2090 RETURN

3000 REM gorner

3010 A(5)=X+M

3020 A(4)=D

3030 A(3)=C

3040 A(2)=B

3050 A(1)=A

3060 N=1

3070 FOR T=T0 TO TKON STEP TK

3080 Y1=A(1)

3090 FOR I=2 TO 5

3100 Y1=Y1*T+A(I)

3110 NEXT I

3120 Y(N)=Y1

3130 N=N+1

3140 NEXT T

3150 RETURN

4000 REM Grafik

4010 CLS

4020 XN=80: YN=250: YK=40: XK=80

4030 MX=(640-XN-XK)/12

4040 MY=(YN-YK)/Y(25)

4050 LOCATE 18,4

4060 PRINT USING "##.##"; Y(1)

4070 LOCATE 4,73

4080 PRINT USING "####.##"; Y(25)

4090 FOR T=T0 TO TKON STEP TK                  'Setka X'

4100 V=XN+MX*T

4110 PSET (V,250)

4120 LINE-(V,YK),3

4130 NEXT T

4140 FOR N=1 TO 6 STEP 3                      'Setka Y'

4150 U=YN-MY*Y(N)

4160 PSET (XN,U)

4170 LINE-(560,U),3

4180 NEXT N

4190 FOR N=8 TO 25                            'Setka Y 2'

4200 U=YN-MY*Y(N)

4210 PSET (XN,U)

4220 LINE-(560,U),3

4230 NEXT N

4330 DRAW"C2 bm80,250 U220 NF5 G5"                'Os Y'

4340 DRAW"C2 bm80,250 R530 NG5 H5"                'Os X'

4350 LOCATE 19,9: PRINT 0;

4360 LOCATE 19,15: PRINT 1;

4370 LOCATE 19,20: PRINT 2;

4380 LOCATE 19,25: PRINT 3;

4390 LOCATE 19,30: PRINT 4;

4400 LOCATE 19,35: PRINT 5;

4410 LOCATE 19,40: PRINT 6;

4420 LOCATE 19,45: PRINT 7;

4430 LOCATE 19,50: PRINT 8;

4440 LOCATE 19,55: PRINT 9;

4450 LOCATE 19,59: PRINT 10;

4460 LOCATE 19,64: PRINT 11;

4470 LOCATE 19,69: PRINT 12;

4480 LOCATE 19,75: PRINT "N";

4490 LOCATE 5,5: PRINT "Y (N)";

4500 LOCATE 21,20: PRINT "N"

4510 PSET (145,300),6

4520 U=MX*.5

4530 LINE (145,300)-(145+U,300),6:LINE (145,300)-(145,298),6:LINE-(145,302),6

4540 LINE (145+U,300)-(145+U,298),6: LINE-(145+U,302),6

4550 LOCATE 23,19: PRINT TK;

4560 LOCATE 21,42: PRINT "Y";

4570 PSET (325,18),6

4580 V=(YN-YK)/10

4590 LINE (325,300)-(325+V,300),6:LINE (325,300)-(325,302):LINE-(325,298),6

4600 LINE (325+V,300)-(325+V,302),6:LINE-(325+V,298),6

4610 LOCATE 23,39:PRINT USING "###.##";(Y(25)/10);

4620 LOCATE 24,20:PRINT "Risunok xxx, Grafikvremennoyfunkcii";

4630 DRAW"bm80,250"

4635 N=1

4640 FOR T=T0 TO TKON STEP TK                 'Grafik'

4650 U=XN+MX*T

4660 V=YN-MY*Y(N)

4670 LINE-(U,V)

4680 CIRCLE (U,V),3,4

4690 N=N+1

4700 NEXT T

4710 RETURN

5000 REM grafik2

5010 CLS

5020 XN=80: YN=250: YK=40: XK=80

5030 MX=(640-XN-XK)/12

5040 MY=(YN-YK)/Y(25)

5050 LOCATE 18,4

5060 PRINT USING "##.##"; Y(1)

5070 LOCATE 4,73

5080 PRINT USING "####.##"; Y(25)

5090 FOR T=T0 TO TKON STEP TK                  'Setka X'

5100 V=XN+MX*T

5110 PSET (V,250)

5120 LINE-(V,YK),3

5130 NEXT T

5140 FOR N=1 TO 6 STEP 3                      'Setka Y'

5150 U=YN-MY*Y(N)

5160 PSET (XN,U)

5170 LINE-(560,U),3

5180 NEXT N

5190 FOR N=8 TO 25                            'Setka Y 2'

5200 U=YN-MY*Y(N)

5210 PSET (XN,U)

5220 LINE-(560,U),3

5230 NEXT N

5330 DRAW"C2 bm80,250 U220 NF5 G5"                'Os Y'

5340 DRAW"C2 bm80,250 R530 NG5 H5"                'Os X'

5350 LOCATE 19,9: PRINT 0;

5360 LOCATE 19,15: PRINT 1;

5370 LOCATE 19,20: PRINT 2;

5380 LOCATE 19,25: PRINT 3;

5390 LOCATE 19,30: PRINT 4;

5400 LOCATE 19,35: PRINT 5;

5410 LOCATE 19,40: PRINT 6;

5420 LOCATE 19,45: PRINT 7;

5430 LOCATE 19,50: PRINT 8;

5440 LOCATE 19,55: PRINT 9;

5450 LOCATE 19,59: PRINT 10;

5460 LOCATE 19,64: PRINT 11;

5470 LOCATE 19,69: PRINT 12;

5480 LOCATE 19,75: PRINT "N";

5490 LOCATE 5,5: PRINT "Y (N)";

5500 LOCATE 21,20: PRINT "N"

5510 PSET (145,300),6

5520 U=MX*.5

5530 LINE (145,300)-(145+U,300),6:LINE (145,300)-(145,298),6:LINE-(145,302),6

5540 LINE (145+U,300)-(145+U,298),6: LINE-(145+U,302),6

5550 LOCATE 23,19: PRINT TK;

5560 LOCATE 21,42: PRINT "Y";

5570 PSET (325,18),6

5580 V=(YN-YK)/10

5590 LINE (325,300)-(325+V,300),6:LINE (325,300)-(325,302):LINE-(325,298),6

5600 LINE (325+V,300)-(325+V,302),6:LINE-(325+V,298),6

5610 LOCATE 23,39:PRINT USING "###.##";(Y(25)/10);

5620 LOCATE 24,20:PRINT "Risunok xxx, Grafikvremennoyfunkcii";

5630 DRAW"bm80,250"

5635 N=1

5640 FOR T=T0 TO TKON STEP TK                 'Grafik'

5641 FOR I=1 TO 27500                         'Timer'

5642 Z=EXP(1)*EXP(1)*EXP(1)*EXP(1)*EXP(1)

5643 NEXT I

5650 U=MX*T+XN

5660 V=YN-MY*Y(N)

5670 LINE-(U,V)

5680 CIRCLE (U,V),3,4

5690 N=N+1

5700 NEXT T

5710 RETURN

6000 REM Vivod

6005 N=0

6010 FOR I=1 TO 18

6020 PRINT "Y("I")=";

6025 PRINT USING "####.##"; Y(I);

6027 PRINT "    T="N

6028 N=N+TK

6030 NEXT I

6040 INPUT "Prodolgit 1-da, 2-net"; G

6050 IF G=1 THEN CLS ELSE END

6060 FOR I=19 TO 25

6070 PRINT "Y("I")=";

6075 PRINT USING "####.##"; Y(I);

6076 PRINT "    T="N

6077 N=N+TK

6080 NEXT I

6081 PRINT

6090 PRINT "Naimenshiykoeficientkvadratnogouravneniya M=";