こちらとこちらの続き 線維方向を考えたうえで3Dに拡張する 6近傍への移動を考える 3Dで線維方向を含めた誘電率の値はこちらに 頂点への移動が少ない可能性がある library(rgl) Nx<-30 Ny<-30 Nz<-30 Nt<-100 U<-array(0,c(Nx,Ny,Nz)) U[11:20,11:20,11:20]<…