谁能给我个自动生成数学公式的小程序，谢谢，100分

2011-08-05 10:31:52 277 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

gtsam 学习十（ISAM2 理论）翻译自：iSAM2: Incremental Smoothing and Mapping Using the Bayes Tree 摘要提出了一种新型的贝斯树处理稀疏矩阵，在转化为因子图，可以更好的求解平方根信息和映射问题。文中提出了三个概念使用概率密度项进行矩阵分解介绍如何将矩阵分解转换为贝叶斯数和条件概率密度基于贝叶斯树提供了一种新的系数非线性优化：ISAM2（进行重新排序和重新线性化，避免了批量更新）问题描述文章聚焦与如何用增量实时解决非线性问题，利用增量即新的测量值实时更新估阅读详情

比如说有 A B C D E 五个变量，要能根据 + - * / ，还有 sin、cos、tan、PI、 sqrt 、LOG 等函数自动生成公式，比如说：

sin(A)+ cos(A+B)* PI

tan(sqrt(A*D)- 2* E)+ LOG(C* D*E)

...等等

说明白了吧？
谢谢

...全文

从零开始：用这些公开数据集搞定电力AI项目（含鸟巢、绝缘子、负荷预测等33个实战资源）本文系统梳理了电力AI领域33个精选公开数据集，涵盖目标检测、负荷预测等关键场景，如鸟巢检测、绝缘子缺陷识别等。通过实战案例解析数据预处理、模型选型及性能优化策略，帮助工程师快速构建端到端解决方案，解决电力AI项目中的数据获取与处理难题。阅读详情

ljstudio

C# 111,129 成员 642,538 内容

+ 关注 + 加入社区

切换为时间正序

ljstudio 2011-08-14

打赏
举报

明天结贴，见者有份

小赖赖 2011-08-14

打赏
举报

楼主自己实现了啊,顶下

CaRrot_Love 2011-08-07

打赏
举报

学习了顶下..

Rich 2011-08-07

打赏
举报

恩，学习了！不过个人感觉，数学公式生成还是要有一定的规则的吧，比如要按照一定计算方式！

LMAOhuaNL 2011-08-07

打赏
举报

我顶顶LS的

ljstudio 2011-08-07

打赏
举报

嗯，这就算完了，不要那些函数了，可能算起来会比较慢
谢谢大家了，虽然没帮上什么忙，不过也挺热心的，等有时间就来结贴吧，见者有份

function dx(n:Integer=-1):string;
var
i,j,tn,mx:Integer;
begin
Randomize;

mx:= 28;
i:= Random(mx);
j:= Random(mx);

tn:= n;
if tn=-1 then
begin
repeat
tn:= Random(mx)+12;
until tn<=mx;
end;

case tn of
0:Result:= 'A';
1:Result:= 'B';
2:Result:= 'C';
3:Result:= 'D';
4:Result:= 'E';
5:Result:= 'HZ';
6:Result:= 'KD';
7:Result:= 'HW';
8:Result:= 'QW';
9:Result:= 'PJ';
10:Result:= 'DS';
11:Result:= 'XS';
12:Result:= dx(Random(11))+ dx(Random(11));//两个数合并
13:Result:= dx(i) +'+'+ dx(j);
14:Result:= dx(i) +'-'+ dx(j);
15:Result:= dx(i)+'*'+ dx(j);
16:Result:= dx(i)+'/'+ dx(j);
17:Result:= dx(Random(16)) + '+ 0.618';
18:Result:= dx(Random(16)) + '- 0.618';
19:Result:= dx(Random(16)) + '* 0.618';
20:Result:= dx(Random(16)) + '/ 0.618';
21:Result:= '0.618/'+ dx(Random(16));
22:Result:= '0.618-'+ dx(Random(16));
23:Result:= dx(Random(16)) +'+'+ IntToStr(Random(100)+1);
24:Result:= dx(Random(16)) +'-'+ IntToStr(Random(100)+1);
25:Result:= dx(Random(16)) +'*'+ IntToStr(Random(100)+1);
26:Result:= dx(Random(16)) +'/'+ IntToStr(Random(100)+1);
27:Result:= IntToStr(Random(100)+1)+'-'+dx(Random(16));
28:Result:= IntToStr(Random(100)+1)+'/'+dx(Random(16));
end;
end;

调用：
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
ts:string;
begin
//
Memo1.Clear;
for i:= 0 to 100 do
begin
repeat
ts:= dx;
until (Length(ts)>15) and (Length(ts)<40);

Memo1.Lines.Add(ts);
end;

意识模糊 2011-08-07

打赏
举报

顶！学习一下

ustbwuyi 2011-08-06

打赏
举报

可以尝试用表达式树来创建。

ljstudio 2011-08-06

打赏
举报

自己顶一下

ljstudio 2011-08-06

打赏
举报

to ustbwuyi:
可以给个简单一点的例子吗，谢谢!

ljstudio 2011-08-05

打赏
举报

to icansaymyabc:
这不是作业

to gefangliang:
我要的是随机自动生成公式的。根据公式计算这个倒是不需要。

心灵彩虹 2011-08-05

打赏
举报

http://www.codesoso.com/code/math_expression_parser.aspx

心灵彩虹 2011-08-05

打赏
举报

http://topic.csdn.net/u/20100504/09/6a7a5b87-296b-435c-94cc-bc0b2b045f25.html

icansaymyabc 2011-08-05

打赏
举报

作业！不支持

谁能给我个自动生成数学公式的小程序，谢谢，100分

相关推荐