|
|
计算器程序
| 程序名称: |
函数图像绘制程序 |
| 平台: |
fx-5800系列 |
| 系统/软件要求: |
子程序：functiｏn |
| 版本号: |
1 |
| 类型: |
图像 |
| 作者: |
zasdfgbnm |
| 大小(K): |
99999 |
| 更新日期: |
2010-01-10 |
| 描述: |
绘制函数图像 |
| 已知缺陷: |
绘制速度慢，分辨率低 |
| 源代码: |
开源/部分开源 |
首先将函数以赋值语句的形式存储在程序FUNCTIΟN中，例如要绘制f(x)=cos(x)
就将程序FUNCTIΟN写成cos(X)→Y，然后运行PLOT程序
效果图：
PLOT程序代码如下- 0→DimZ
- 6→DimZ
- ClrStat
- -1×10^99→Z[3]
- 1×10^99→Z[4]
- "START"?→Z[1]
- "END"?→Z[2]
- Cls
- "LOADING"
- "----------------" 注：16个减号
- (Z[2]-Z[1])÷15→Z[6]
- For 1→I To 16
- Locate I,2,"+"
- Z[1]+(I-1)×Z[6]→X
- X→List X[I]
- Prog "FUNCTIΟN"
- Y→List Y[I]
- If Y>Z[3]
- Then Y→Z[3]
- IfEnd
- If Y<Z[4]
- Then Y→Z[4]
- IfEnd
- Next
- "DONE"
- Cls
- (Z[3]-Z[4])÷12→Z[5]
- 1→I
- Lbl 1
- List Y[I]→Y
- If Y<Z[4]+6Z[5]:Then
- If Y<Z[4]+3Z[5]:Then
- If Y<Z[4]+Z[5]
- Then Locate 1,4,"." 注：引号中为小数点
- Goto 2
- IfEnd
- If Y≥Z[4]+Z[5] And Y<Z[4]+2Z[5]
- Then Locate I,4,"-" 注：引号中为负号
- Goto 2
- Else
- Locate I,4,"°" 注：引号中为度（sin左面那个键）
- Goto 2
- IfEnd
- Else
- If Y<Z[4]+4Z[5]
- Then Locate I,3,"." 注：引号中为小数点
- Goto 2
- IfEnd
- If Y≥Z[4]+4Z[5] And Y<Z[4]+5Z[5]
- Then Locate I,3,"-" 注：引号中为负号
- Goto 2
- Else
- Locate I,3,"°" 注：引号中为度（sin左面那个键）
- Goto 2
- IfEnd
- IfEnd
- Else
- If Y<Z[4]+9Z[5]:Then
- If Y<Z[4]+7Z[5]
- Then Locate I,2,"." 注：引号中为小数点
- Goto 2
- IfEnd
- If Y≥Z[4]+7Z[5] And Y<Z[4]+8Z[5]
- Then Locate I,2,"-" 注：引号中为负号
- Goto 2
- Else
- Locate I,2,"°" 注：引号中为度（sin左面那个键）
- Goto 2
- IfEnd
- Else
- If Y<Z[4]+10Z[5]
- Then Locate I,1,"." 注：引号中为小数点
- Goto 2
- IfEnd
- If Y≥Z[4]+10Z[5] And Y<Z[4]+11Z[5]
- 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
|
评分
-
查看全部评分
|
发表于 2010-1-10 16:21:59
沉默卡
变色卡
千斤顶
显身卡
楼主
发表于 2010-1-29 13:20:55
