方程的艺术【Batman Equation？】，与大家共分享！
本帖最后由 路人 于 2011-8-1 09:24 编辑人人上看到的，换了张超大清晰图【Powered by Google Pic search】，求逆向推测创作思路！ 本帖最后由 路人 于 2011-8-1 09:23 编辑
呕心沥血花了两个小时的成果········
PS：已知此方程在NS环境下拖动显示区域时会出现如下问题（输入的方程没有问题）
CP Manager表示画整个方程式的话表示内存不够，但可以分式作图
CP报错，求高手
wolframalpha表示字符太长、TI-92+模拟器表示无法黏贴。
方程线性表示详见4L
tns下载：（第一也不是图像，请放心~）
注意！
这个方程在模拟器上的共花费了10s才显现出来，
经估计：模拟器上运行需要1s的文档，实体机至少要10~∞s
所以请做好ns"死机"的准备（可能也就等个2Mins吧~）
本帖最后由 diameter 于 2011-7-31 21:55 编辑
2# 路人
笔记本上没装Mathematica（我也不常用），
用wolframAlpha试了试，线性的写了一长串才完成方程的一点点……
再输要吐血了 本帖最后由 路人 于 2011-7-31 23:29 编辑
2# 路人
笔记本上没装Mathematica（我也不常用），
用wolframAlpha试了试，线性的写了一长串才完成方程的一点点……
在输要吐血了
diameter 发表于 2011-7-31 21:52 http://www.cncalc.org/images/common/back.gif
f1(x)=zeros(((((x)/(7)))^(2)*√(((abs(abs(x)-3))/(abs(x)-3)))+(((y)/(3)))^(2)*√(((abs(y+((3*√(33))/(7))))/(y+((3*√(33))/(7)))))-1)*(abs(((x)/(2)))-((3*√(33)-7)/(112))*x^(2)-3+√(1-(abs(abs(x)-2)-1)^(2))-y)*(9*√(((abs((abs(x)-1)*(abs(x)-0.75)))/((1-abs(x))*(abs(x)-0.75))))-8*abs(x)-y)*(3*abs(x)+0.75*√(((abs((abs(x)-0.75)*(abs(x)-0.5)))/((0.75-abs(x))*(abs(x)-0.5))))-y)*(2.25*√(((abs((x-0.5)*(x+0.5)))/((0.5-x)*(0.5+x))))-y)*(((6*√(10))/(7))+(1.5-0.5*abs(x))*√(((abs(abs(x)-1))/(abs(x)-1)))-((6*√(10))/(14))*√(4-(abs(x)-1)^(2))-y),y)
突然感觉用
TI-89ti & v200 & 92+
的同学是多么的强大！
那么V5的方程是外星人写的么？ 那么V5的方程是外星人写的么？
zhaochenze 发表于 2011-8-1 06:59 http://www.cncalc.org/images/common/back.gif
我认为是几个F(X)=0的方程乘起来的结果，
至于方程是怎么算出来的，
我认为是NS之类的计算器根据图像枚举出的方程式 帅！！！！！！！！！！！！！！！！！！ wolframAlpha表示压力很大，方程输不完…… 本帖最后由 路人 于 2011-8-1 10:27 编辑
wolframAlpha表示压力很大，方程输不完……
diameter 发表于 2011-8-1 09:40 http://www.cncalc.org/images/common/back.gif
恩，这个方程式实在是太长了（526个字符）！
~呼叫CP高手解决2L问题~ 果然很强大 ((x/7)^2sqrt(abs(abs(x)-3))/(abs(x)-3)+(y/3)^2*sqrt(abs(y+3sqrt(33)/7))/(y+3sqrt(33)/7)-1)(abs(x/2)-((3sqrt(33)-7)/112)x^2-3+sqrt(1-(abs(abs(x)-2)-1)^2)-y)(9sqrt(abs((abs(x)-1)(abs(x)-75))/((1-abs(x))(abs(x)-75)))-8abs(x)-y)(3abs(x)+0.75sqrt(abs((abs(x)-0.75*(abs(x)-0.5)))/(((0.75-abs(x))*(abs(x)-0.5))))-y)*(6sqrt(10)/7+(1.5-0.5abs(x))sqrt(abs(abs(x)-1)/(abs(x)-1))-6sqrt(10)/14*sqrt(4-(abs(x)-1)^2)-y)=0我用grafeq画不出来 乘积就是多条的合成
根号估计是控制定义域的
其实大约的确是一堆二次型曲线 类似ES编程的方式，把多分支算式合并 = =Mathematica杯具中 p := Abs; ContourPlot[{
If[((6 Sqrt)/7 - y) (y + (3 Sqrt)/7) > 0,
p^2/49 + y^2/9 - 1] == 0,
p/2 - (3 Sqrt - 7)/112 p^2 - 3 + Sqrt - 1)^2] ==
y,
If[(1 - p) (p - 3/4) > 0, 9 - 8 p - y] == 0,
If[(3/4 - p) (p - 1/2) > 0, 3 p + 3/4 - y] == 0,
If[(1/2 - p) (p + 1/2) > 0, 9/4 - y] == 0,
If)/7 + (3 - p)/
2 - (3 Sqrt)/7 Sqrt - y] == 0
}, {x, -8, 8}, {y, -4, 4}, PlotPoints -> 60]一种可以画出图的。。。不过实在是太慢了 乘积就是多条的合成
根号估计是控制定义域的
其实大约的确是一堆二次型曲线
imz 发表于 2011-8-3 12:21 http://www.cncalc.org/images/common/back.gif
我也是这样想的 改天写个表达式生成器 16# Cyvre
我也是这么想的，
没人去解决2LCP报错的问题么。 ((x/7)^2sqrt(abs(abs(x)-3))/(abs(x)-3)+(y/3)^2*sqrt(abs(y+3sqrt(33)/7))/(y+3sqrt(33)/7)-1)(abs(x/2)-((3sqrt(33)-7)/112)x^2-3+sqrt(1-(abs(abs(x)-2)-1)^2)-y)(9sqrt(abs((abs(x)-1)(abs(x)-75))/((1-abs(x)) ...
zhj 发表于 2011-8-3 12:01 http://www.cncalc.org/images/common/back.gif这个软件挺不错，就是只支持到xp啊 nspire数学模式写好，复制到字符串里就是线性模式
页:
[1]
2