1
// A small example of MESH Creation
2
// and visualisation of a linear on triangles function
4
getf('SCI/demos/fec/macros.sci')
11
noeul=[(1:(N))',x',y',0*ones(N,1)];
12
noeul=[noeul;(N+1),0,0,0];
14
for i=1:(N-1),trianl=[trianl;i,i,i+1,N+1,0];end
15
trianl=[trianl;N,N,1,N+1,0];
17
rect=[-1.2,-1.2,1.2,1.2];
18
fec(noeul(:,2),noeul(:,3),trianl,(1:N+1)',"030"," ",rect);