如何用mathmatica画一个带参数的二维数组做参数曲线

来源：蜘蛛抓取(WebSpider) 时间：2012-04-01 12:07 标签： 二维数组做参数
【图文】Mathematica使用方法_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
Mathematica使用方法
上传于||文档简介
&&Mathematica使用方法,很有用哦
大小：411.00KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢mathematica命令大全_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
mathematica命令大全
上传于||文档简介
&&mathematica
阅读已结束，如果下载本文需要使用2下载券
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩28页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
用Mathematica绘制几何图形
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口Plot画出的曲线中间有间断_mathematica吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：10,337贴子：
Plot画出的曲线中间有间断收藏
m = 0.8; i = 5.6; \[Omega] = 100 \[Pi];vma[t_] := m Sin[\[Omega] t]vmb[t_] := m Sin[\[Omega] t - 2 \[Pi]/3]vmc[t_] := m Sin[\[Omega] t + 2 \[Pi]/3]ia[t_, \[Theta]_] := i Sin[\[Omega] t + \[Theta]]ib[t_, \[Theta]_] := i Sin[\[Omega] t + \[Theta] - 2 \[Pi]/3]ic[t_, \[Theta]_] := i Sin[\[Omega] t + \[Theta] + 2 \[Pi]/3]in[t_, \[Theta]_] := -(Sign[vma[t]] vma[t] ia[t, \[Theta]] +
Sign[vmb[t]] vmb[t] ib[t, \[Theta]] +
Sign[vmc[t]] vmc[t] ic[t, \[Theta]])Plot[in[t, 0], {t, 0, 0.02}]
票牛教你如何买到热门、便宜、真实的演出门票！
楼主之前是不是问过一个类似的？不过你现在在二维情况把它复现也算是一大壮举……问题似乎出在Sign对数值值的正负判定上。有意思，很有意思。然后，这个问题依旧可以用Compile解决：in[t_, \[Theta]_] = -(Sign[vma[t]] vma[t] ia[t, \[Theta]] +
Sign[vmb[t]] vmb[t] ib[t, \[Theta]] +
Sign[vmc[t]] vmc[t] ic[t, \[Theta]])Compile[{t}, in[t, 0]]Plot[%[t], {t, 0, 2/100}]
很奇怪的现象即使不用Compile，楼长原来的代码最后一句加上Simplify也可以消除间断Plot[in[t, 0] // Simplify, {t, 0, 0.02}]
Plot[in[t, 0], {t, 0, 0.02}, PlotPoints -& 800]
好像是Mma不知何故把一些点排除了可以用 Exclusions -& None把点补上使图连续Plot[in[t, 0], {t, 0, 0.02}, Exclusions -& None]
会不会是因为Sign对较小的实数当作0处理的？
可以自定义个sign，sign[x_] := Which[x & 0, -1, x == 0, 0, True, 1]这个就没问题
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或怎样用mathematica拟合二元函数？
怎样用mathematica拟合二元函数？
08-10-21 &
用 Fit 函数更详细的看
请登录后再发表评论!

我要回帖

更多关于 二维数组做参数 的文章

 

随机推荐