function plotcube(X,T)
%畫3D模型函數(function)
%plotcube(X)  只有一個參數時按照缺省屬性畫線和點
%此函數只能夠畫3維的立方體，且定點按照一定的規律標記
%其中第一個參數為物體定點坐標矩陣，如：X(:,i)為第i個定點坐標的列向量
%第二個參數T為畫線屬性設置函數，使用時應用如下格式：plot3data(X,'r:')
X11=[X(:,1)];
X12=[X(:,2)];
X13=[X(:,3)];
X14=[X(:,4)];
X15=[X(:,5)];
X16=[X(:,6)];
X17=[X(:,7)];
X18=[X(:,8)];

%########################################
%頂點標記
plot3(X11(1),X11(2),X11(3),'k.');
plot3(X12(1),X12(2),X12(3),'k.');
plot3(X13(1),X13(2),X13(3),'k.');
plot3(X14(1),X14(2),X14(3),'k.');
plot3(X15(1),X15(2),X15(3),'k.');
plot3(X16(1),X16(2),X16(3),'k.');
plot3(X17(1),X17(2),X17(3),'k.');
plot3(X18(1),X18(2),X18(3),'k.');
text(X11(1),X11(2),X11(3),'1');
text(X12(1),X12(2),X12(3),'2');
text(X13(1),X13(2),X13(3),'3');
text(X14(1),X14(2),X14(3),'4');
text(X15(1),X15(2),X15(3),'5');
text(X16(1),X16(2),X16(3),'6');
text(X17(1),X17(2),X17(3),'7');
text(X18(1),X18(2),X18(3),'8');

%部分連線
Xt=[X11(1) X12(1) X13(1) X14(1) X15(1) X16(1) X17(1) X18(1)];
Yt=[X11(2) X12(2) X13(2) X14(2) X15(2) X16(2) X17(2) X18(2)];
Zt=[X11(3) X12(3) X13(3) X14(3) X15(3) X16(3) X17(3) X18(3)];
if nargin~=1    
    plot3(Xt,Yt,Zt,T);
else plot3(Xt,Yt,Zt);
end
%補線(4185)(7236)
Xt=[X14(1) X11(1) X18(1) X15(1)];
Yt=[X14(2) X11(2) X18(2) X15(2)];
Zt=[X14(3) X11(3) X18(3) X15(3)];
if nargin~=1    
    plot3(Xt,Yt,Zt,T);
else plot3(Xt,Yt,Zt);
end
Xt=[X17(1) X12(1) X13(1) X16(1)];
Yt=[X17(2) X12(2) X13(2) X16(2)];
Zt=[X17(3) X12(3) X13(3) X16(3)];
if nargin~=1    
    plot3(Xt,Yt,Zt,T);
else plot3(Xt,Yt,Zt);
end