1) Function RationalPoints-of-C (C, C ′ ( ℚ ) ).
2) Initilize found-ponits = empty list.
3) Add P = ( a ,0 ) to found-points.
4) for each Q ( x ′ , y ′ ) ∈ C ′ ( ℚ ) such that x ′ ≠ a do.
5) Compute P ( x , y ) ∈ C ( ℚ ) such that.
6) x = 1 + a x ′ x ′ and y = y ′ x ′ 4 .
7) end for.
8) Add P and ι ( P ) to found-points.
9) return ℚ -points of C.