trans2n.m

细胞生长结构可视化工具箱-MATLAB Toolbox1999.zip

% Carry out the triangular transform from 2-D to N-D
function ptn = trans2n(pt,v1,v2,v3,n1,n2,n3)
%
%	ptn = trans2n(pt,v1,v2,v3,n1,n2,n3)
%
%	pt = point in visualisation plot
%	vi = ith node in visualiusation plot
%	ni = ith node in N-D space
%

[n12d,n22d,n32d,b1,b2] = trin2d(n1,n2,n3);

pt2d = transtri(pt,v1,v2,v3,n12d,n22d,n32d);

ptn = n1 + pt2d(1)*b1 + pt2d(2)*b2;