应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 关于mathematica软件推导公式的问题
51/1返回列表
查看: 2150  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

nazis

新虫 (初入文坛)

[求助] 关于mathematica软件推导公式的问题 已有1人参与

各位虫友大家好:
我今天想向大家请教一个用mathematica推导数学公式的问题。我刚接触这个软件，所以有很多问题不懂。先说说具体问题吧。我希望推导以下的两个公式：

关于mathematica软件推导公式的问题
001.png


关于mathematica软件推导公式的问题-1
002.png

公式本身不是很难，我把这个公式输入到了软件中，尝试了Expand, Simplify等命令，但是还是没办法给出化简之后的答案。软件显示的问题是说我没有给这些参数赋值，可是是我就是不会赋值啊。并且，公式中ra, rb, δ 都是大于零的实数，是变量，没有具体的值。我的目的是进行公式推导，不是数值计算。这个公式本身可以手推，可是我后面还需要求导等等，那我就傻了。。。
希望各位大牛多多指教啊，在线等。。。
回复此楼

» 猜你喜欢
1楼 2015-12-18 11:31:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nazis

新虫 (初入文坛)
公式1中ra和rb的上标，即其正负号可以不用管。只是以ra和rb区别为两个参量
赞一下(1人) 回复此楼
3楼2015-12-18 14:03:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

nazis

新虫 (初入文坛)
希望有虫友能够就这两个公式的推导在mathematica中写一个代码，感激不尽
赞一下 回复此楼
2楼2015-12-18 11:50:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

会飞的鱼18

铜虫 (初入文坛)

【答案】应助回帖

感谢参与，应助指数 +1
r = (-ra + rb E^(-2 I \[Delta]))/(1 - ra rb E^(-2 I \[Delta]));
R = r r\[Conjugate];
Simplify[R, {ra > 0, rb > 0, \[Delta] > 0}]
ComplexExpand[R]
楼主看一下这样是否可以。
赞一下 回复此楼
4楼2015-12-20 16:57:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nazis

新虫 (初入文坛)
引用回帖:
4楼: Originally posted by 会飞的鱼18 at 2015-12-20 16:57:09
r = (-ra + rb E^(-2 I \))/(1 - ra rb E^(-2 I \));
R = r r\;
Simplify
ComplexExpand
楼主看一下这样是否可以。

嗯，非常谢谢，不过展开之后分子非常复杂。能不能设置一个约束条件哦：Cos^2[x]+Sin^2[x]=1，这样分子就可以合并三角函数的同类项
赞一下 回复此楼
5楼2015-12-21 06:47:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭