Re: [問題] 一些mathmatica問題

[chungyuandye (養花種魚數月亮賞星星)]

※ 引述《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
推 abbybao:THANKS :)