推 ablazekandyh:plot(xt, g(xt,k))? 04/02 17:43
xt=c(6.1,-1.1,3.2,0.7,1.7);
g<-function(x,k) {-5*log(2)-sum(abs(x-k))}
請問若我想畫出k=1.7 時會g達到最大值該怎麼畫？像下面的圖
想法 curve(g(xt,x),xlim=range(xt))
z<-outer(xt,xt,g)
persp(xt,xt,z)
但都行不通。
謝謝^^"
θ
|\
| \ /
| \ /
| \/
|---------------- k
1.7
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.86.139
※ 編輯: bcs 來自: 140.112.86.139 (04/02 17:10)