zasdfgbnm 发表于 2010-1-10 16:21:59

[fx-5800P系列]5800P绘制函数图像的程序

首先将函数以赋值语句的形式存储在程序FUNCTIΟN中，例如要绘制f(x)=cos(x)
就将程序FUNCTIΟN写成cos(X)→Y，然后运行PLOT程序
效果图：

PLOT程序代码如下0→DimZ
6→DimZ
ClrStat
-1×10^99→Z
1×10^99→Z
"START"?→Z
"END"?→Z
Cls
"LOADING"
"----------------"注：16个减号
(Z-Z)÷15→Z
For 1→I To 16
Locate I,2,"+"
Z+(I-1)×Z→X
X→List X
Prog "FUNCTIΟN"
Y→List Y
If Y>Z
Then Y→Z
IfEnd
If Y<Z
Then Y→Z
IfEnd
Next
"DONE"
Cls
(Z-Z)÷12→Z
1→I
Lbl 1
List Y→Y
If Y<Z+6Z:Then
If Y<Z+3Z:Then
If Y<Z+Z
Then Locate 1,4,"."   注：引号中为小数点
Goto 2
IfEnd
If Y≥Z+Z And Y<Z+2Z
Then Locate I,4,"-"   注：引号中为负号
Goto 2
Else
Locate I,4,"°"         注：引号中为度（sin左面那个键）
Goto 2
IfEnd
Else
If Y<Z+4Z
Then Locate I,3,"."    注：引号中为小数点
Goto 2
IfEnd
If Y≥Z+4Z And Y<Z+5Z
Then Locate I,3,"-"   注：引号中为负号
Goto 2
Else
Locate I,3,"°"         注：引号中为度（sin左面那个键）
Goto 2
IfEnd
IfEnd
Else
If Y<Z+9Z:Then
If Y<Z+7Z
Then Locate I,2,"."    注：引号中为小数点
Goto 2
IfEnd
If Y≥Z+7Z And Y<Z+8Z
Then Locate I,2,"-"   注：引号中为负号
Goto 2
Else
Locate I,2,"°"         注：引号中为度（sin左面那个键）
Goto 2
IfEnd
Else
If Y<Z+10Z
Then Locate I,1,"."    注：引号中为小数点
Goto 2
IfEnd
If Y≥Z+10Z And Y<Z+11Z
Then Locate I,1,"-"   注：引号中为负号
Goto 2
Else
Locate I,1,"°"         注：引号中为度（sin左面那个键）
IfEnd
IfEnd
IfEnd
Lbl 2
If I<16
Then I+1→I
Goto 1

imath 发表于 2010-1-10 16:25:52

太好了，你很厉害呀

zasdfgbnm 发表于 2010-1-10 16:29:37

由于5800P不是图形计算器，绘制的效果有点差
这是cos(x)在-π到π上的图像：

zasdfgbnm 发表于 2010-1-10 16:50:15

2# ∫(Revolve)
就是在屏幕上点点而已，没有什么技术含量
从Lbl 1开始那一大堆if语句全是点点用的

imath 发表于 2010-1-10 18:17:11

你有我的风格

zasdfgbnm 发表于 2010-1-10 18:31:54

你的风格？

zasdfgbnm 发表于 2010-1-10 20:39:45

我算法学的不咋地，包容一下吧（或者帮我改改）

Cichol 发表于 2010-1-10 21:03:31

画点点。。。

[Boeing 617] 发表于 2010-1-15 17:27:39

好像有点长

[Boeing 617] 发表于 2010-1-15 17:28:01

就按这个代码输进去就行了么？

hcz 发表于 2010-1-15 19:27:50

有点囧，还是挺有意思的。

zasdfgbnm 发表于 2010-1-18 11:02:32

就按这个代码输进去就行了么？
Boeing 617 发表于 2010-1-15 17:28 http://www.cncalc.org/images/common/back.gif当然行了

yzhang37 发表于 2010-1-29 13:20:55

强！！！

寒假里我要看本书《算法设计与数据结构》

zasdfgbnm 发表于 2010-1-30 20:13:27

我也要看一本书：Cormen，Introduction to Algorithms，MIT

chaojiliqilin 发表于 2010-2-5 16:32:58

强，我也有5800p 屏幕分辨率太低的说

rouren 发表于 2010-5-29 14:38:10

不错

rouren 发表于 2010-6-5 18:33:36

好像，将函数带入Y后，只能画一条直线

zasdfgbnm 发表于 2010-6-5 19:36:35

那可能是取值范围的问题，例如sin(x)在10-5~10^5之间画出来就是一条直线，因为sin(x)~x当x→0，

xiefei7509 发表于 2010-9-4 19:59:52

新人报到，进入学习中。

lzsad 发表于 2011-12-24 23:36:13

每次怎么都在16步出问题？
页: [1] 2
查看完整版本: [fx-5800P系列]5800P绘制函数图像的程序