"Source: Text/Geometry/Scheme.text";
"Line: 6093";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Scheme.text, line: 6093
// Example: H122E44 ()
print "Example: H122E44";
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);
