回 帖 发 新 帖 刷新版面

主题:怎么用QB二次函数图像??  通宵等答案

[b]怎么用QB二次函数图像??  [/b][em10]

回复列表 (共9个回复)

沙发

1,输入A,B,C
2,确定当X是什么值的时候Y是什么值
3,确定函数每个点的坐标在屏幕上的绝对坐标
4,PSET

板凳

谢谢了!!我知道点了思路,但具体作法???我是初学呀!




3 楼

SCREEN 12
INPUT "The a is:", a
INPUT "The b is:", b
INPUT "The c is:", c
CLS
PRINT "The function is:"; "y="; a; "x^2+"; b; "x+"; c
LINE (0, 240)-(640, 240), 2
LINE (320, 0)-(320, 480), 2
LINE (635, 235)-(640, 240), 2
LINE (640, 240)-(635, 245), 2
LINE (315, 5)-(320, 0), 2
LINE (320, 0)-(325, 5), 2
FOR x = -320 TO 320
y = a * x * x + b * x + c
IF y < -240 OR y > 240 THEN GOTO 10
PSET (x + 320, 240 - y), 2
IF t1 <> 0 AND t2 <> 0 THEN LINE (x + 320, 240 - y)-(t1, t2), 4
t1 = x + 320
t2 = 240 - y
10 : NEXT x
END

4 楼

SCREEN 12'648*480
INPUT "The a is:", a'二次方系数
INPUT "The b is:", b'一次方系数
INPUT "The c is:", c'0次方系数
CLS
PRINT "The function is:"; "y="; a; "x^2+"; b; "x+"; c'输出函数
LINE (0, 240)-(640, 240), 2'画横坐标(横线)
LINE (320, 0)-(320, 480), 2'画纵坐标(竖线)
LINE (635, 235)-(640, 240), 2'画横坐标箭头
LINE (640, 240)-(635, 245), 2'同上
LINE (315, 5)-(320, 0), 2'画纵坐标箭头
LINE (320, 0)-(325, 5), 2'同上
FOR x = -320 TO 320'X范围从-320到320,分辨率水平为640,所以用-320到320
y = a * x * x + b * x + c'求Y值
IF y < -240 OR y > 240 THEN GOTO 10'如果Y值超出屏幕范围则跳出本次循环
PSET (x + 320, 240 - y), 2'在X,Y的屏幕坐标处画点
IF t1 <> 0 AND t2 <> 0 THEN LINE (x + 320, 240 - y)-(t1, t2), 4'第一次执行循环时T1,T2为0,不执行后面画线语句
t1 = x + 320'保存当前屏幕坐标值
t2 = 240 - y'同上
10 : NEXT x
END
写的不好,大家不要见笑,仅供楼主参考

5 楼

past 那句是不是有点错,我是刚学的,还没学过past语句。运行的时候那里总是出错。
[em18]

6 楼

那是PSET,是画点的,我都试过了,不会有错的,写的不怎么地,仅供你参考,别忘了给我加分,实在不行把那句删掉也可以,不耽误事。

7 楼


谢谢了,知道了。

8 楼

用pset速度太慢了
虽然说只是思路
但是做东西也应该考虑下效率

9 楼

实不相瞒,我也是菜鸟,请楼上给个程序让我学习一下好吗?

我来回复

您尚未登录,请登录后再回复。点此登录或注册