0
一个3D线性表面我有以下数据:剧情从2D函数中的R
x <- c(1000,2000,3000,4000,5000,6000,8000,12000)
y_80 <- c(33276,33276,5913,2921,1052,411,219,146)
y_60 <- c(14724,14724,3755,1958,852,372,211,140)
y_40 <- c(9632,9632,2315, 1250,690,332,196,127)
y_20 <- c(4672,4672,1051,562,387,213,129,81)
y_5 <- c(825,825,210,118,88,44,27,17)
从该数据创建5的样条函数:
f_80 <- splinefun(x, y_80, method=c("monoH.FC"))
f_60 <- splinefun(x, y_60, method=c("monoH.FC"))
f_40 <- splinefun(x, y_40, method=c("monoH.FC"))
f_20 <- splinefun(x, y_20, method=c("monoH.FC"))
f_5 <- splinefun(x, y_5, method=c("monoH.FC"))
在Z轴是后的数f_即函数f_80,Z值为80,依此类推。
我需要做的是从这些函数绘制三维曲面,并在线条之间进行线性插值。 R中可能吗? 我已经有过类似的问题,但我找不到答案。谢谢