Re: [問題] 一些mathmatica問題
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間12年前 (2012/11/23 18:08)推噓1(1推 0噓 0→)留言1則, 1人參與討論串2/2 (看更多)
※ 引述《abbybao (小寶)》之銘言：
: 1.我要計算Sin由0至π的黎曼和
: 我輸入之後結果沒有跑出來,後來去查手冊發現沒Riemann這指令
: 想問一下還有其他指令可以做出來嗎?
: 程式碼
: In = Riemann[Sin, 0, Pi, n]
: Out= Riemann[Sin, 0, \[Pi], n]
Riemann[fun_, init1_, initn_, n_] := Block[{s},
lr = Total[(#[[2]] - #[[1]])*fun[#[[1]]] & /@
Partition[Range[init1, initn, (initn - init1)/n], 2, 1]];
rr = Total[(#[[2]] - #[[1]])*fun[#[[2]]] & /@
Partition[Range[init1, initn, (initn - init1)/n], 2, 1]];
mr = Total[(#[[2]] - #[[1]])*fun[Mean@#] & /@
Partition[Range[init1, initn, (initn - init1)/n], 2, 1]];
{lr, rr, mr}
]
Riemann[Sin,0,Pi,10]
data=N@ParallelMap[{#,Riemann[Sin,0,Pi,#]}&,Range[10,1000,10]];
riemannlist=Table[{data[[i,1]],data[[i,2,j]]},{j,3},{i,Length@data}];
ListLinePlot@riemannlist
: 2.我要對f(x,y)=x^4*y^5 ,對x做三次偏微y做兩次偏微,偏微後傳出x=1 y=2 的值
: 我偏微後不知道要在怎麼傳出x=1 y=2 的值?
: 程式碼
: In = D[x^4*y^5, {x, 3}, {y, 2}]
: Out= 480 x y^3
: 拜託大家了,謝謝^^
D[x^4*y^5,{x,3},{y,2}]/.{x->1,y->2}
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.134.143
推
11/24 09:43, , 1F
11/24 09:43, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
