/usr/share/doc/freefem-examples/varvect.pde is in freefem-examples 3.5.8-5.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | wait;
n:=15;
border(1,0,1, n){x:=t;y:=0};
border(1,0,1, n){x:=1;y:=t};
border(1,0,1, n){x:=1-t;y:=1};
border(1,0,1, n){x:=0;y:=1-t};
buildmesh(1800);
f=-2*(x*(x-1)+y*(y-1));
varsolve(u,v;w,s)
begin
g = dx(u)*dx(w)+dy(u)*dy(w)+dx(v)*dx(s)+dy(v)*dy(s);
h = w+s;
onbdy(1) v = x;
onbdy(1) u = x;
end : intt[g] - intt[f,h] ;
plot(v);
plot(u-v);
w = x+x*y*(y-1)*(x-1);
plot(w-v);
|