找回密码
 欢迎注册
查看: 10528|回复: 2

[提问] 怎么样用mathematica画图Julia Set的图像?

[复制链接]
发表于 2011-3-14 15:45:49 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?欢迎注册

×
Julia Set见
http://www.mcgoodwin.net/julia/juliajewels.html
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-3-14 15:47:16 | 显示全部楼层
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2011-3-14 16:22:29 | 显示全部楼层
Clear["Global`*"];            (*Clear all variables*)
z=0;                          (*迭代的初始值*)
c=0.3+0.6*I;                  (*公式中的常数*)
m=200;                        (*迭代次数*)
data=Table[0,{x,m},{y,2}];    (*定义绘图数据的形状,矩阵*)
Do[z=z^2+c;                   (*迭代公式*)
   data[[n,1]]=Re[z];         (*实数部分赋值给第一列*)
   data[[n,2]]=Im[z],         (*虚数部分赋值给第二列*)
   {n,1,m}];                  (*循环控制*)
ListLinePlot[data]            (*绘图*)
为什么我的这个命令就是不行呢?
  1. Clear["Global`*"];            (*Clear all variables*)
  2. z=0;                          (*迭代的初始值*)
  3. c=0.3+0.6*I;                  (*公式中的常数*)
  4. m=200;                        (*迭代次数*)
  5. data=Table[0,{x,m},{y,2}];    (*定义绘图数据的形状,矩阵*)
  6. Do[z=z^2+c;                   (*迭代公式*)
  7.    data[[n,1]]=Re[z];         (*实数部分赋值给第一列*)
  8.    data[[n,2]]=Im[z],         (*虚数部分赋值给第二列*)
  9.    {n,1,m}];                  (*循环控制*)
  10. ListLinePlot[data]            (*绘图*)
复制代码
还是写在代码框里面好
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-3-29 09:13 , Processed in 0.047663 second(s), 16 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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