Power Formula (动力公式?) v1.0.0 Alpha[OS3.2]

DAS

Power Formula v1.0.0 Alpha
框架什么的写完了，目前就做了一个“胡克定律”供测试，其它公式仍在制作中。

由于ti的限制，目前不支持OS3.1.0.392。兼容版正在开发。
源码可以查看，但不能编辑。

HHX-XXM

沙发


保持中立无敌意

imath

F=KX也要计算器
水水更健康

DAS

imath 发表于 2013-7-10 11:40
F=KX也要计算器
水水更健康

后面还有更多公式。

imath

公式水也就算了，仔细一看，只支持F=KX一个公式

imath

我帮你把后面的台词说了：
由于计算器的USB接口损坏，xxx准备推迟6个月发布

DAS

imath 发表于 2013-7-10 11:55
公式水也就算了，仔细一看，只支持F=KX一个公式

Alpha 版本。

cnzym

高中毕业之后发现，原来坛子里热门的编程话题居然都是诸如牛二、正余弦定理、配平方程式之类的东西……

imath

cnzym 发表于 2013-7-10 14:12
高中毕业之后发现，原来坛子里热门的编程话题居然都是诸如牛二、正余弦定理、配平方程式之类的东西……

不要把DAS认为热门的话题当做是整个论坛热门的话题！

杜克 Duke

……这种5800p时代的东西……

楼主我要无线电波长计算公式 要支持短波 中波 长波的

adriweb

Have you guys seen FormulaPro ... ?








Download : https://github.com/adriweb/EEPro-for-Nspire/blob/master/FormulaPro.tns?raw=true

TI-China has made a Chinese translation, but I'm not sure if it is available.
FP 2.0 should include multilingual support by default anyway.

DAS

adriweb 发表于 2013-7-11 01:51
Have you guys seen FormulaPro ... ?

oh...imba.

That·s cool,and i cant believe it is a Lua Open-Source Program.

But...i cant fill munber in formula on the program and have to calc on scratchpad?



By the way,I have a problem on my program.this prgm cannot use a Negative number as arg.i means if i enter a Negative number in textbox as a argument,it report error.you can press"1","c"in the program,you will find a page about Uniformly accelerated linear motion.and if you set v1=-1,v0=12,a="N/A",t=0.01,it reported a error.i want to know how can i fix it.

1. -----------这是一份人人都可以查看的源代码，但它不能被未授权的查看者编辑(Readonly)---------------
   
2. 
   
3. platform.apiLevel = '2.0'
   
4. 
   
5. disp = 0
   
6. calc = 0
   
7. 
   
8. ---------------------------------------菜单--------------------------------------------
   
9. 
   
10. menu = {
    
11.     {"物理 - 力学",
    
12.         {"胡克定律",function ()    f001()    end},
    
13.         {"重力",function ()    f002()    end},
    
14.         {"f1与f2合力",function ()    f003()    end},
    
15.         {"滑动摩擦力",function ()    f004()    end},
    
16.         {"浮力",function ()    f005()    end},
    
17.         {"万有引力定律",function ()    f006()    end},
    
18.         {"库仑力",function ()    f007()    end},
    
19.         {"电场力",function ()    f008()    end},
    
20.         {"磁场力 - 洛仑兹力",function ()    f009()    end},
    
21.         {"磁场力 - 安培力",function ()    f010()    end},
    
22.         {"牛顿第二定律",function ()    f011()    end},
    
23.         {"匀变速直线运动",function ()    f012()    end},
    
24.         {"匀速圆周运动",function ()    f013()    end},
    
25.         {"直线运动公式",function ()    f014()    end},
    
26.         {"动量，动量定理和冲量",function ()    f015()    end},
    
27.         {"动量守恒定律",function ()    f016()    end},
    
28.         {"功，动能和重力势能",function ()    f017()    end},
    
29.         {"动能定理",function ()    f018()    end},
    
30.         {"功率",function ()    f019()    end},
    
31.         {"简谐振动",function ()    f020()    end},
    
32.         {"波长，波速和频率",function ()    f021()    end},
    
33.     },
    
34.     {"物理 - 热学",
    
35.         {"热力学第一定律",function ()    f101()    end},
    
36.         {"克拉白龙方程",function ()    f102()    end},
    
37.         {"理想气体状态方程",function ()    f103()    end},
    
38.         {"理想气体玻马定律",function ()    f104()    end},
    
39.         {"理想气体查理定律",function ()    f105()    end},
    
40.         {"理想气体盖吕萨克定律",function ()    f106()    end},
    
41.     },
    
42.     {"物理 - 电磁学",
    
43.         {"直流电路 - 电流强度的定义",function ()    f201()    end},
    
44.         {"直流电路 - 电阻的串并联",function ()    f202()    end},
    
45.         {"直流电路 - 欧姆定律1",function ()    f203()    end},
    
46.         {"直流电路 - 欧姆定律2",function ()    f204()    end},
    
47.         {"直流电路 - 电功和电功率",function ()    f205()    end},
    
48.         {"电场和磁场 - 库仑定律",function ()    f206()    end},
    
49.         {"电场和磁场 - 电场强度",function ()    f207()    end},
    
50.         {"电场和磁场 - 电势差",function ()    f208()    end},
    
51.         {"电场和磁场 - 电场力的功",function ()    f209()    end},
    
52.         {"电场和磁场 - 电势和电容",function ()    f210()    end},
    
53.         {"电场和磁场 - 磁感应强度",function ()    f211()    end},
    
54.         {"电场和磁场 - 带电粒子在匀强...",function ()    f212()    end},
    
55.         {"电磁感应 - 磁通量",function ()    f213()    end},
    
56.         {"电磁感应 - 法拉第电磁感应定...",function ()    f214()    end},
    
57.         {"电磁感应 - 电磁震荡",function ()    f215()    end},
    
58.         {"交变电流 - 正弦交流电(从中性...",function ()    f216()    end},
    
59.         {"交变电流 - 理想变压器",function ()    f217()    end},
    
60.     },
    
61.     {"物理 - 光学",
    
62.         {"折射率",function ()    f301()    end},
    
63.         {"全反射临界角",function ()    f302()    end},
    
64.         {"波长，频率与波速的关系",function ()    f303()    end},
    
65.         {"光子能量",function ()    f304()    end},
    
66.         {"爱因斯坦光电方程",function ()    f305()    end},
    
67.     },
    
68.     {"物理 - 原子物理学",
    
69.         {"波尔的原子理论",function ()    f401()    end},
    
70.         {"氢原子能级公式",function ()    f402()    end},
    
71.         {"氢原子轨道半径公式",function ()    f403()    end},
    
72.         {"核反应方程",function ()    f404()    end},
    
73.         {"爱因斯坦质能方程",function ()    f405()    end},
    
74.     },
    
75. }
    
76. 
    
77. toolpalette.register(menu)
    
78. toolpalette.enable("物理 - 原子物理学","核反应方程",false)
    
79. 
    
80. -------------------------------------------菜单结束--------------------------------------------------
    
81. 
    
82. -------------------------------------------功能跳转--------------------------------------------------
    
83. function f001()
    
84. falseall()
    
85. disp = 1
    
86. Text001:setVisible(true)
    
87. Text002:setVisible(true)
    
88. Text003:setVisible(true)
    
89. Text001:setFocus(true)
    
90. Text001:setText("N/A",90,0)
    
91. refresh()
    
92. end
    
93. 
    
94. function f012()
    
95. falseall()
    
96. disp = 12
    
97. Text001:setVisible(true)
    
98. Text002:setVisible(true)
    
99. Text003:setVisible(true)
    
100. Text004:setVisible(true)
     
101. Text001:setFocus(true)
     
102. Text001:setText("N/A",90,0)
     
103. refresh()
     
104. end
     
105. 
     
106. -------------------------------------------功能跳转结束-----------------------------------------
     
107. 
     
108. function falseall()
     
109. Text001:setVisible(false)
     
110. Text002:setVisible(false)
     
111. Text003:setVisible(false)
     
112. Text004:setVisible(false)
     
113. Text005:setVisible(false)
     
114. Text006:setVisible(false)
     
115. Text007:setVisible(false)
     
116. end
     
117. 
     
118. --------------------------------------------GC------------------------------------------------
     
119. 
     
120. function on.paint(gc)
     
121. if disp == 0 then
     
122. gc:drawString("Power Formula   V1.0.0 Alpha",50,70)
     
123. gc:drawString("请按 menu 开始",90,90)
     
124. gc:setFont("sansserif","r",9)
     
125. gc:drawString("By DAS  Copyright 2013   All right reserved.",45,185)
     
126. gc:drawString("Protect by CC BY-SA 3.0 Agreement",60,200)
     
127. end
     
128. -------------------------------------------------------
     
129. if disp == 1 then
     
130. gc:drawString("物理 - 力学 - 胡克定律",20,20)
     
131. gc:drawString("F=Kx",20,40)
     
132. gc:drawString("K=",12,82)
     
133. gc:drawString("x=",160,82)
     
134. gc:drawString("F=",12,114)
     
135. if calc == 0 then
     
136. gc:drawString("输入3个参数中的2个并按esc键计算",20,200)
     
137. end
     
138. if calc == 1 then
     
139. gc:drawString("按⇧shift+tab开始一个新的计算",40,200)
     
140. end
     
141. end
     
142. ------------------------------------------------------
     
143. if disp == 12 then
     
144. gc:drawString("物理 - 力学 - 匀变速直线运动",20,20)
     
145. gc:drawString("V₁=V₀+at",20,40)
     
146. gc:drawString("V₁=",12,82)
     
147. gc:drawString("V₀=",160,82)
     
148. gc:drawString("a=",12,114)
     
149. gc:drawString("t=",160,114)
     
150. if calc == 0 then
     
151. gc:drawString("输入4个参数中的3个并按esc键计算",20,200)
     
152. end
     
153. if calc == 1 then
     
154. gc:drawString("按⇧shift+tab开始一个新的计算",40,200)
     
155. end
     
156. end
     
157. ------------------------------------------------------
     
158. end
     
159. 
     
160. --------------------------------------------------GC结束-----------------------------------------------------------
     
161. 
     
162. --------------------------------------------------计算区-----------------------------------------------------------
     
163. function on.escapeKey()
     
164. if disp == 1 then
     
165. if Text003:getText() == "N/A" then
     
166. varsf = tonumber(Text001:getText()) * tonumber(Text002:getText())
     
167. Text003:setText(tostring(varsf))
     
168. calc = 1
     
169. refresh()
     
170. end
     
171. if Text001:getText() == "N/A" then
     
172. varsk = tonumber(Text003:getText()) / tonumber(Text002:getText())
     
173. Text001:setText(tostring(varsk))
     
174. calc = 1
     
175. refresh()
     
176. end
     
177. if Text002:getText() == "N/A" then
     
178. varsx = tonumber(Text003:getText()) / tonumber(Text001:getText())
     
179. Text002:setText(tostring(varsx))
     
180. calc = 1
     
181. refresh()
     
182. end
     
183. end
     
184. ----------------------------------------------
     
185. if disp == 12 then
     
186. if Text001:getText() == "N/A" then
     
187. varsv1 = tonumber(Text002:getText()) + tonumber(Text003:getText()) * tonumber(Text004:getText())
     
188. Text001:setText(tostring(varsv1))
     
189. calc = 1
     
190. refresh()
     
191. elseif Text002:getText() == "N/A" then
     
192. varsv0 = tonumber(Text001:getText()) - tonumber(Text003:getText()) * tonumber(Text004:getText())
     
193. Text002:setText(tostring(varsv0))
     
194. calc = 1
     
195. refresh()
     
196. elseif Text003:getText() == "N/A" then
     
197. varsa = (tonumber(Text001:getText()) - tonumber(Text002:getText())) / tonumber(Text004:getText())
     
198. Text003:setText(varsa)
     
199. calc = 1
     
200. refresh()
     
201. elseif Text004:getText() == "N/A" then
     
202. varst = (tonumber(Text001:getText()) - tonumber(Text002:getText())) / tonumber(Text004:getText())
     
203. Text004:setText(tostring(varst))
     
204. calc = 1
     
205. refresh()
     
206. end
     
207. end
     
208. ----------------------------------------------
     
209. end
     
210. 
     
211. ---------------------------------------------计算区结束-----------------------------------------------------
     
212. 
     
213. ------------------------------------------绘制富文本框什么的------------------------------------------------
     
214. 
     
215. function on.resize()
     
216. Text001 = D2Editor.newRichText();
     
217. Text001:move(40,60)
     
218. Text001:resize(100,30)
     
219. Text001:setText("N/A",90,0)
     
220. Text001:setBorder(1)
     
221. Text001:setVisible(false)
     
222. Text002 = D2Editor.newRichText();
     
223. Text002:move(190,60)
     
224. Text002:resize(100,30)
     
225. Text002:setText("N/A",90,0)
     
226. Text002:setBorder(1)
     
227. Text002:setVisible(false)
     
228. Text003 = D2Editor.newRichText();
     
229. Text003:move(40,92)
     
230. Text003:resize(100,30)
     
231. Text003:setText("N/A",90,0)
     
232. Text003:setBorder(1)
     
233. Text003:setVisible(false)
     
234. Text004 = D2Editor.newRichText();
     
235. Text004:move(190,92)
     
236. Text004:resize(100,30)
     
237. Text004:setText("N/A",90,0)
     
238. Text004:setBorder(1)
     
239. Text004:setVisible(false)
     
240. Text005 = D2Editor.newRichText();
     
241. Text005:move(40,124)
     
242. Text005:resize(100,30)
     
243. Text005:setText("N/A",90,0)
     
244. Text005:setBorder(1)
     
245. Text005:setVisible(false)
     
246. Text006 = D2Editor.newRichText();
     
247. Text006:move(190,124)
     
248. Text006:resize(100,30)
     
249. Text006:setText("N/A",90,0)
     
250. Text006:setBorder(1)
     
251. Text006:setVisible(false)
     
252. Text007 = D2Editor.newRichText();
     
253. Text007:move(40,156)
     
254. Text007:resize(100,30)
     
255. Text007:setText("N/A",90,0)
     
256. Text007:setBorder(1)
     
257. Text007:setVisible(false)
     
258. end
     
259. 
     
260. ------------------------------------------绘制富文本框结束-------------------------------------------------------
     
261. 
     
262. function on.contextMenu()
     
263. if Text001:hasFocus() == true then
     
264. if Text002:isVisible() == true then
     
265. Text002:setFocus(true)
     
266. end
     
267. elseif Text002:hasFocus() == true then
     
268. if Text003:isVisible() == true then
     
269. Text003:setFocus(true)
     
270. end
     
271. elseif Text003:hasFocus() == true then
     
272. if Text004:isVisible() == true then
     
273. Text004:setFocus(true)
     
274. end
     
275. elseif Text004:hasFocus() == true then
     
276. if Text005:isVisible() == true then
     
277. Text005:setFocus(true)
     
278. end
     
279. elseif Text005:hasFocus() == true then
     
280. if Text006:isVisible() == true then
     
281. Text006:setFocus(true)
     
282. end
     
283. elseif Text006:hasFocus() == true then
     
284. if Text007:isVisible() == true then
     
285. Text007:setFocus(true)
     
286. end
     
287. end
     
288. end
     
289. function on.backtabKey()
     
290. Text001:setText("N/A",90,0)
     
291. Text002:setText("N/A",90,0)
     
292. Text003:setText("N/A",90,0)
     
293. Text004:setText("N/A",90,0)
     
294. Text005:setText("N/A",90,0)
     
295. Text006:setText("N/A",90,0)
     
296. Text007:setText("N/A",90,0)
     
297. Text001:setFocus(true)
     
298. calc = 0

复制代码

DAS

adriweb 发表于 2013-7-11 01:51
Have you guys seen FormulaPro ... ?

....i know how to use it now.

i think,it was not friendly to begineer and ti-nspire cas(not colored)

===========================================================

i means Formula Pro`s GUI is not friendly to begineer,and not friendly to ti-nspire cas(not colored).

in fact , i can hardly to see the calc result and must turn on the light in 8:00am.

@adriweb

adriweb

Well, we made a documentation on how to use it (keys etc.)

However, thanks for the feedback on clickpad devices, maybe we need to adjust the greyscale we use.

veritatem

good 加入gui吗

johnseeker

请问如何 编写自己工程上用的公式变成TNS呢

DAS

johnseeker 发表于 2014-2-26 16:21
请问如何 编写自己工程上用的公式变成TNS呢

先用tibasic写吧...如果不会或者tibasic满足不了你，可以加qq2917433887(可选)

~恋~鲤~

Power Formula TI-Nspire cas  3.6 不能用

pizza0429

l1997i