[Add-in]Malical 2.15[我要专家]

yzhang37

名字不是很好听，换一个

还有没有elseif
没有Select Case 语句
没有Do While
还有数值输入功能不是很强大

GWHBOB

不知容错能力如何，比如我打个死循环进去？

py86546539

1 建议丰富库函数，如随机数函数，截图函数等
2 有时不是很稳定，会爆机
3 exit不能直接退回到菜单
4 同21L增强数值（包括字符串）输入功能
5 能否一键构造矩阵（还有多维数组），如a=【【【1】【2】】【【3】【4】】】

话说LZ的malical对手持党帮助极大。。希望越做越强。

noivan

不知容错能力如何，比如我打个死循环进去？
GWHBOB 发表于 2011-7-11 17:53

设置一个多按键组合强行退出键？（要不常按但按起来难度并不大的）

月与映之皮丘

设置一个多按键组合强行退出键？（要不常按但按起来难度并不大的）
noivan 发表于 2011-7-12 11:45

要是我的话，我会选optn+exp+del

GWHBOB

24# noivan 不如拔电池……不过既然不好提高运行效率，往人性化方面走提高编程效率（如21L字串输入）也是一个很好的选择。

diameter

26# GWHBOB

这样吧，添加一个System函数，把能否退出的权利让给程序作者

1. system["AC_Break"]=false #关闭了按AC键退出的检查，默认为true

复制代码

还有什么其他的关于解释器配置的想法吗？（比如数值强制用常量初始化等……）

noivan

26# GWHBOB

这样吧，添加一个System函数，把能否退出的权利让给程序作者system["AC_Break"]=false #关闭了按AC键退出的检查，默认为true还有什么其他的关于解释器配置的想法吗？（比如数值强制用常量初始化等…… ...
diameter 发表于 2011-7-12 18:22

希望本机可以轻松编译，如提供书写工具，前一段时间我用EDIT打开MCL文件，好像有点问题，保存后就不能运行了。。。

l5h5t7

希望增加超频函数，提高运行效率。
建议增加多程序启动，如果麻烦的话可以把后台程序挂起。

LLLYYYGGG123

[url=]还是把Malical写的3DFP贴出来[/url]
附地址啊

chuxianbing

自己编写的一段计算方位角，用来极坐标放样的程序
说明：在显示计算结果时按exit键返回上一级菜单
按AC键退出程序
按exp键输入度分秒
输入数据时直接回车使用默认值

chuxianbing

选择菜单
1为坐标反算
2为坐标正算


输入坐标框

角度输入框

chuxianbing

1. var func= "sin(x)+cos(y)"
   
2. var x_min=-6.3,x_max=6.3,y_min=-3.1,y_max=3.1,sp=0.5
   
3. var px1=0, py1=0, px2=0, py2=0
   
4. var bx, by, g=30, h=30
   
5. var cos_s, sin_s, cos_t, sin_t
   
6. var dx,dy
   
7. ::main()
   
8.   var i
   
9.   var func2
   
10.   while 1>0
    
11.     i = show_menu()
    
12.     if i==2
    
13.       func2 = requeststr("sin(x)+cos(y)","f(x,y)=")
    
14.       if dim(func2) then
    
15.              func=func2
    
16.           ifend
    
17.         continue
    
18.     ifend
    
19.     if i==1 then
    
20.       view()
    
21.           continue
    
22.     ifend
    
23.     if i==3 then
    
24.       exit()
    
25.     ifend
    
26.   wend
    
27. ::endf
    
28. 
    
29. ::show_menu()
    
30.   var index;
    
31.   index=menu("3D Function Power","1:     Draw      ","2:     z(x,y)    ","3:     Exit      ")
    
32.   return index
    
33. ::endf
    
34. 
    
35. ::view()
    
36.   var key
    
37.   # 30020 = left
    
38.   # 30021 = right
    
39.   while 1
    
40.     draw_3d()
    
41.     key = getkey()
    
42.     if key==30018 or key==30020 # up
    
43.       h = h + 10
    
44.           continue
    
45.     ifend
    
46. 
    
47.     if key==30023 or key==30021 # down
    
48.       h = h -10
    
49.           continue
    
50.     ifend
    
51.     if key==30002
    
52.       ClrIO()
    
53.       return nil
    
54.     ifend
    
55.   wend
    
56. ::endf
    
57. 
    
58. ::rcl_deg()
    
59.   var s,t
    
60.   s = 3.1415926 * g / 180;
    
61.   t = 3.1415926 * (90 - h) / 180;
    
62.   sin_s = sin(s)
    
63.   cos_s = cos(s)
    
64.   sin_t = sin(t)
    
65.   cos_t = cos(t)
    
66. ::endf
    
67. 
    
68. ::_3d_to_win(x,y,z)
    
69.   var w
    
70.   if g !=0
    
71.     w = x * cos_s - y * sin_s
    
72.     y = x * sin_s + y * cos_s
    
73.     x = w
    
74.   ifend
    
75.   if h != 90 then
    
76.     w = y * cos_t - z * sin_t;
    
77.     z = y * sin_t + z * cos_t;
    
78.     y = w;
    
79.   IfEnd
    
80.   px2 = px1
    
81.   py2 = py1
    
82.   px1 = (x - x_min)*(127/(x_max-x_min))+1
    
83.   py1 = (y - y_min)*(63 /(y_max-y_min))+1
    
84. ::EndF
    
85. 
    
86. ::draw_3d()
    
87.   var x,y,z
    
88.   rcl_deg()
    
89.   clrio()
    
90.   x = x_min
    
91. while 1
    
92.     if x > x_max
    
93.            break
    
94.         ifend
    
95.     y = y_min
    
96.     z = eval(func)
    
97.     _3d_to_win(x,y,z)
    
98.     while y <= y_max
    
99.       z = eval(func)
    
100.       _3d_to_win(x,y,z)
     
101.       line(px1,py1,px2,py2)
     
102.       y = y+sp
     
103.     wend
     
104.     putdisp()
     
105.     x = x+sp
     
106. Wend
     
107. y = y_min
     
108. while y <= y_max
     
109.     x = x_min
     
110.     z = eval(func)
     
111.     _3d_to_win(x,y,z)
     
112.    while x <= x_max
     
113.       z = eval(func)
     
114.       _3d_to_win(x,y,z)
     
115.       line(px1,py1,px2,py2)
     
116.       x = x+sp
     
117.    wend
     
118.    putdisp()
     
119.    y = y+sp
     
120. wend
     
121. locate(1,1,func)
     
122. ::endf

复制代码