"Source: Text/Geometry/Scheme.text";
"Line: 6047";
"Date: Fri May 26 16:23:18 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Scheme.text, line: 6047
// Example: H119E44 ()
print "Example: H119E44";
ei := GetEchoInput();
SetEchoInput(true);
Q := Rationals();
F<u,v,x,y> := RuledSurface(Q,2);
G<a,b,r,s> := RuledSurface(Q,3);
F;
phi := map< F -> G | [u,v,x,y*u] >;
Scheme(F,[u,v]) join Scheme(F,[x,u*y]);        
RationalPoints($1);
SetEchoInput(ei);
