function?obj_write（filenameverticesfaces?）??
%TEST?Summary?of?this?function?goes?here????
%??write?matrix?to?file????
??
vertices=vertices‘;??
faces=faces‘;??
fid=fopen（filename‘a‘）;????
????
[xy]=size（vertices）;????
????
?for?i=1:x??
????fprintf（fid‘v?‘）;??
????for?j=1:y-1????
????????fprintf（fid‘%f?‘vertices（ij））;????
????end????
????fprintf（fid‘%f\r\n‘vertices（