cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 7122|回复: 21

方程的艺术【Batman Equation?】,与大家共分享!

[复制链接]
发表于 2011-7-31 21:04:44 | 显示全部楼层 |阅读模式
本帖最后由 路人 于 2011-8-1 09:24 编辑

batman-2.jpg

人人上看到的,换了张超大清晰图【Powered by Google Pic search】,求逆向推测创作思路!
 楼主| 发表于 2011-7-31 21:07:44 | 显示全部楼层
本帖最后由 路人 于 2011-8-1 09:23 编辑

呕心沥血花了两个小时的成果········

bat.JPG

PS:已知此方程在NS环境下拖动显示区域时会出现如下问题(输入的方程没有问题
未命名.jpg

CP Manager表示画整个方程式的话表示内存不够,但可以分式作图
CP报错,求高手
捕获.JPG

wolframalpha表示字符太长、TI-92+模拟器表示无法黏贴。
方程线性表示详见4L



tns下载:(第一也不是图像,请放心~)
注意!
这个方程在模拟器上的共花费了10s才显现出来,
经估计:模拟器上运行需要1s的文档,实体机至少要10~∞s
所以请做好ns"死机"的准备(可能也就等个2Mins吧~)

Batman.tns (4.92 KB, 下载次数: 78)
发表于 2011-7-31 21:52:44 | 显示全部楼层
本帖最后由 diameter 于 2011-7-31 21:55 编辑

2# 路人

笔记本上没装Mathematica(我也不常用),
用wolframAlpha试了试,线性的写了一长串才完成方程的一点点……
再输要吐血了
未命名.JPG
 楼主| 发表于 2011-7-31 21:55:51 | 显示全部楼层
本帖最后由 路人 于 2011-7-31 23:29 编辑
2# 路人  

笔记本上没装Mathematica(我也不常用),
用wolframAlpha试了试,线性的写了一长串才完成方程的一点点……
在输要吐血了
diameter 发表于 2011-7-31 21:52
  1. 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+
的同学是多么的强大!
发表于 2011-8-1 06:59:15 | 显示全部楼层
那么V5的方程是外星人写的么?
 楼主| 发表于 2011-8-1 08:59:23 | 显示全部楼层
那么V5的方程是外星人写的么?
zhaochenze 发表于 2011-8-1 06:59

我认为是几个F(X)=0的方程乘起来的结果,
至于方程是怎么算出来的,
我认为是NS之类的计算器根据图像枚举出的方程式
发表于 2011-8-1 09:21:30 | 显示全部楼层
帅!!!!!!!!!!!!!!!!!!
发表于 2011-8-1 09:40:38 | 显示全部楼层
wolframAlpha表示压力很大,方程输不完……
 楼主| 发表于 2011-8-1 09:44:15 | 显示全部楼层
本帖最后由 路人 于 2011-8-1 10:27 编辑
wolframAlpha表示压力很大,方程输不完……
diameter 发表于 2011-8-1 09:40

恩,这个方程式实在是太长了(526个字符)!

~呼叫CP高手解决2L问题~
发表于 2011-8-1 11:46:39 | 显示全部楼层
果然很强大
发表于 2011-8-3 12:01:17 | 显示全部楼层
  1. ((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画不出来
发表于 2011-8-3 12:21:11 | 显示全部楼层
乘积就是多条的合成
根号估计是控制定义域的
其实大约的确是一堆二次型曲线
发表于 2011-8-3 12:55:37 | 显示全部楼层
类似ES编程的方式,把多分支算式合并
发表于 2011-8-3 15:19:13 | 显示全部楼层
= =Mathematica杯具中

batequ.nb

1.73 MB, 下载次数: 73

发表于 2011-8-3 15:25:30 | 显示全部楼层
  1. p := Abs[x]; ContourPlot[{
  2.   If[((6 Sqrt[10])/7 - y) (y + (3 Sqrt[33])/7) > 0,
  3.     p^2/49 + y^2/9 - 1] == 0,
  4.   p/2 - (3 Sqrt[33] - 7)/112 p^2 - 3 + Sqrt[1 - (Abs[p - 2] - 1)^2] ==
  5.     y,
  6.   If[(1 - p) (p - 3/4) > 0, 9 - 8 p - y] == 0,
  7.   If[(3/4 - p) (p - 1/2) > 0, 3 p + 3/4 - y] == 0,
  8.   If[(1/2 - p) (p + 1/2) > 0, 9/4 - y] == 0,
  9.   If[p - 1 > 0, (6 Sqrt[10])/7 + (3 - p)/
  10.      2 - (3 Sqrt[10])/7 Sqrt[4 - (p - 1)^2] - y] == 0
  11.   }, {x, -8, 8}, {y, -4, 4}, PlotPoints -> 60]
复制代码
一种可以画出图的。。。不过实在是太慢了
发表于 2011-8-3 20:38:07 | 显示全部楼层
乘积就是多条的合成
根号估计是控制定义域的
其实大约的确是一堆二次型曲线
imz 发表于 2011-8-3 12:21

我也是这样想的
发表于 2011-8-3 20:45:48 | 显示全部楼层
改天写个表达式生成器
 楼主| 发表于 2011-8-4 00:13:43 | 显示全部楼层
16# Cyvre

我也是这么想的,
没人去解决2LCP报错的问题么。
发表于 2011-8-4 15:42:54 | 显示全部楼层
((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
这个软件挺不错,就是只支持到xp啊
发表于 2011-8-4 16:00:18 | 显示全部楼层
nspire数学模式写好,复制到字符串里就是线性模式
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-3-29 07:21 , Processed in 0.061141 second(s), 25 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表