電子圖板怎樣生成igs檔案

程式碼如下，看看當初寫的程式碼，好稚嫩啊

main指令碼檔案

%產生資料並寫入iges檔案

clc

clear

issearch=2%0表示只寫點，1表示只寫線，2表示點線都寫

fprintf('正在寫檔案。。。n')

%產生正弦波檔案

x=0:0.1:10

x=x'

y=sin(x)

Data=[x y]

Data(1，3)=0

write_iges('iges_'，Data，issearch)

%產生peaks檔案

[x，y，z]=peaks(30)

xx=x(:)

yy=y(:)

zz=z(:)

Data=[xx zz yy]

write_iges('iges_'，Data，issearch)

%產生拋物線檔案

[x，y]=meshgrid(-1:0.1:1)

z=x.^2+y.^2

xx=x(:)

yy=y(:)

zz=z(:)

Data=[xx yy zz]

write_iges('iges_'，Data，issearch)

%產生解釋檔案

xx=[100]

yy=[010]

zz=[00]

Data=[xx yy zz]

write_iges(''，Data，0)

%產生Matlab圖示

[x，y]=meshgrid(linspace(-1，1，16))

z=membrane

z=z(1:2:end，1:2:end，1:2:end)

xx=x(:)

yy=y(:)

zz=z(:)

Data=[xx zz yy]

write_iges('iges_'，Data，issearch)

fprintf('寫檔案結束。n')

add_start_global函式檔案：

%構造開始段和全域性段字串

function [filename，file_str]=add_start_global(FileName)

%開始段資訊

start='Matlab-IGES-UG，Proe'

%全域性段資訊

timedata=clock