use strict;
my $x = 0.97000436e0;
my $y = 0.24308753e0;
my $vx =0.93240737e0;
my $vy =0.86473146e0;

my $R=4.e7;
my $V=176.5e0;
my $M=7.4e22;

print<<EOT;
delta=3600
error=1E-10

EOT

 
print $M,"\t",sprintf("%.13E",-$x*$R),"\t",sprintf("%.13E", $y*$R),"\t0\t",sprintf("%.13E", $vx*$V),"\t",sprintf("%.13E", $vy*$V), "\t0\n";
print $M,"\t",     0,"\t",     0,"\t0\t",sprintf("%.13E", -2*$vx*$V),"\t",sprintf("%.13E", -2*$vy*$V), "\t0\n";
print $M,"\t",sprintf("%.13E", $x*$R),"\t",sprintf("%.13E", -$y*$R),"\t0\t",sprintf("%.13E", $vx*$V),"\t",sprintf("%.13E", $vy*$V), "\t0\n";