r*********e
发帖数: 29495 | |
w******x
发帖数: 4396 | 2 看过几次了，哪个有闲心有mathematica/matlab的给证实一下 |
B********e
发帖数: 19317 | |
s****l
发帖数: 10462 | |
k*****e
发帖数: 22013 | |
k*****e
发帖数: 22013 | 6 clf; clc; clear all;
syms x y
eq1 = ((x/7)^2*sqrt(abs(abs(x)-3)/(abs(x)-3))+(y/3)^2*sqrt(abs(y+3/7*sqrt(33
))/(y+3/7*sqrt(33)))-1);
eq2 = (abs(x/2)-((3*sqrt(33)-7)/112)*x^2-3+sqrt(1-(abs(abs(x)-2)-1)^2)-y);
eq3 = (9*sqrt(abs((abs(x)-1)*(abs(x)-.75))/((1-abs(x))*(abs(x)-.75)))-8*abs(
x)-y);
eq4 = (3*abs(x)+.75*sqrt(abs((abs(x)-.75)*(abs(x)-.5))/((.75-abs(x))*(abs(x)
-.5)))-y);
eq5 = (2.25*sqrt(abs((x-.5)*(x+.5))/((.5-x)*(.5+x)))-y);
eq6 = (6*sqrt(10)/7+(1.5-.5*abs(x))*sqrt(abs(abs(x)-1)/(abs(x)-1))-(6*sqrt(
10)/14)*sqrt(4-(abs(x)-1)^2)-y);
axes('Xlim', [-7.25 7.25], 'Ylim', [-5 5]);
hold on
ezplot(eq1,[-8 8 -3*sqrt(33)/7 6-4*sqrt(33)/7]);
ezplot(eq2,[-4 4]);
ezplot(eq3,[-1 -0.75 -5 5]);
ezplot(eq3,[0.75 1 -5 5]);
ezplot(eq4,[-0.75 0.75 2.25 5]);
ezplot(eq5,[-0.5 0.5 -5 5]);
ezplot(eq6,[-3 -1 -5 5]);
ezplot(eq6,[1 3 -5 5]);
colormap([0 0 1])
title('Batman');
xlabel('');
ylabel('');
hold off
【在 w******x 的大作中提到】
: 看过几次了，哪个有闲心有mathematica/matlab的给证实一下
|
c*******7
发帖数: 17225 | 7 帅死了。。。
谁能出一个打印包子的数学方程啊。。。 |
s****l
发帖数: 10462 | 8 这位蝙蝠侠方程哥凭这个应该可以轻松搞定工作吧。。。。。。也算是闲的蛋疼的经典
成功之作吧 |
z**c
发帖数: 7595 | 9 这帮土包子，设计Logo都是这么干的。 Logo的颜色都是赋值了的。 |
s****l
发帖数: 10462 | 10 要不你洋一个包子方程出来？要带褶子的。LOL
【在 z**c 的大作中提到】
: 这帮土包子，设计Logo都是这么干的。 Logo的颜色都是赋值了的。
|
|
|
z**c
发帖数: 7595 | 11 这起码得上傅里叶方程了 ：）
爱因斯坦说过：世界无它，唯杂乱无章偏微分方程是也。 要不人家怎么叫爱因斯坦呐
？
【在 s****l 的大作中提到】
: 要不你洋一个包子方程出来？要带褶子的。LOL
|
a*****c
发帖数: 2086 | 12 帅
33
abs(
x)
【在 k*****e 的大作中提到】
: clf; clc; clear all;
: syms x y
: eq1 = ((x/7)^2*sqrt(abs(abs(x)-3)/(abs(x)-3))+(y/3)^2*sqrt(abs(y+3/7*sqrt(33
: ))/(y+3/7*sqrt(33)))-1);
: eq2 = (abs(x/2)-((3*sqrt(33)-7)/112)*x^2-3+sqrt(1-(abs(abs(x)-2)-1)^2)-y);
: eq3 = (9*sqrt(abs((abs(x)-1)*(abs(x)-.75))/((1-abs(x))*(abs(x)-.75)))-8*abs(
: x)-y);
: eq4 = (3*abs(x)+.75*sqrt(abs((abs(x)-.75)*(abs(x)-.5))/((.75-abs(x))*(abs(x)
: -.5)))-y);
: eq5 = (2.25*sqrt(abs((x-.5)*(x+.5))/((.5-x)*(.5+x)))-y);
|
o******1
发帖数: 12177 | 13 好帅，变态，轰隆，冬盖！
33
abs(
x)
【在 k*****e 的大作中提到】
: clf; clc; clear all;
: syms x y
: eq1 = ((x/7)^2*sqrt(abs(abs(x)-3)/(abs(x)-3))+(y/3)^2*sqrt(abs(y+3/7*sqrt(33
: ))/(y+3/7*sqrt(33)))-1);
: eq2 = (abs(x/2)-((3*sqrt(33)-7)/112)*x^2-3+sqrt(1-(abs(abs(x)-2)-1)^2)-y);
: eq3 = (9*sqrt(abs((abs(x)-1)*(abs(x)-.75))/((1-abs(x))*(abs(x)-.75)))-8*abs(
: x)-y);
: eq4 = (3*abs(x)+.75*sqrt(abs((abs(x)-.75)*(abs(x)-.5))/((.75-abs(x))*(abs(x)
: -.5)))-y);
: eq5 = (2.25*sqrt(abs((x-.5)*(x+.5))/((.5-x)*(.5+x)))-y);
|
m*******h
发帖数: 601 | 14 如果所有方程合并，不设定边界是同样的效果吗？
分段截取好像有点儿取巧 |
m*******h
发帖数: 601 | 15
【在 m*******h 的大作中提到】
: 如果所有方程合并，不设定边界是同样的效果吗？
: 分段截取好像有点儿取巧
|
k*****e
发帖数: 22013 | 16 原方程里面所有的sqrt(abs(...)/...)本质上都是分段截区
在这个区内，得出来等于1，在这个区外，得出来等于i
matlab能够算复数，等于i也照样给你算，
带复数画图不知道是怎么画的，就乱了。
【在 m*******h 的大作中提到】
: 如果所有方程合并，不设定边界是同样的效果吗？
: 分段截取好像有点儿取巧
|
s****l
发帖数: 10462 | 17 可以先设定只算实数吧
【在 k*****e 的大作中提到】
: 原方程里面所有的sqrt(abs(...)/...)本质上都是分段截区
: 在这个区内，得出来等于1，在这个区外，得出来等于i
: matlab能够算复数，等于i也照样给你算，
: 带复数画图不知道是怎么画的，就乱了。
|
m*******h
发帖数: 601 | 18 在很多区间方程好像都有多个解，感觉画不出来batman |
t****n
发帖数: 1879 | 19 哈哈哈
【在 m*******h 的大作中提到】
|
d*******r
发帖数: 3875 | |
r*********e
发帖数: 29495 | 21 good one!
【在 d*******r 的大作中提到】
: 人工的不如天然的
|
