wlog_psv - write post-processed variable in log file
wlog_psv(u,lst,flag)
- u : integer. a file descriptor
- lst : list. the data to be saved or displayed
- flag : integer. a flag to set where display the information
- 1 : display informations in the scilab window
- 2 : display informations in a tcl/tk window
//Save Post-processed results
//lst est une tlist
//ex : tlist(['teb';'sigma'],teb,sig)
function wlog_psv(u,lst,flag)
tt=">> Save Post processed results :\n";
for i=1:size(lst(1),1)
tt=[tt+"<"+lst(1)(i)+">"+"\n!\n"];
for j=1:size(lst(1+i),1) //doit faire test si matrice
for l=1:size(lst(1+i),2)
tt=[tt+string(lst(1+i)(j,l))+" "];
end
tt=[tt+"\n"];
end
tt=[tt+"!\n"];
end
mfprintf(u,tt);
if (flag==1) then
printf(tt);
elseif(flag==2) then
ts=sprintf(tt);
put_list(ts);
end
endfunction
IRCOM Group
Alan Layec