Print["For each rotation, first \
line is X, second is Y"]
Print["1 rotation qo"]
  
(Subscript[X, 1 ])  =  1;
(Subscript[Y, 1 ])  =  20;
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  ((Subscript[Y, 1 ])* 
              1) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  ((Subscript[X, 1 ]) * 
              1) ;
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

Print["7 rotations q1"]
  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

Print["3 rotations q2"]
  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/100) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/100);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/100) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/100);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/100) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/100);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]
(Subscript[X, 1])  =  (Subscript[X, 2]);

Print["7 rotations q3"]
  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/1000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/1000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/1000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/1000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/1000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/1000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/1000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/1000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/1000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/1000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/1000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/1000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/1000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/1000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

Print["7 rotations q4"]
  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  

(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

  
Print["Final 7th rotation q3"]
(Subscript[X, 1])  =  (Subscript[X, 2]);
(Subscript[Y, 1]) =  (Subscript[Y, 2]);
(Subscript[X, 2])  =  
        (Subscript[X, 1 ]) +  
          (Subscript[Y, 1 ])* (1/10000) ;
(Subscript[Y, 2]) =  
        (Subscript[Y, 1 ]) -  
          (Subscript[X, 1 ]) * (1/10000);
N[(Subscript[X, 2]), 20]
N[(Subscript[Y, 2]), 20]

res  =  (Subscript[Y, 2]) / (Subscript[X, 2]);
Print["remainder Y/X =", N[%, 20]]
(Subscript[α, 0]) = ArcTan[1] ;
N[%, 20];
(Subscript[α, 1]) = ArcTan[1/10];
N[%, 20] ;
(Subscript[α, 2]) =  ArcTan[1/100] ;
N[%, 20];
(Subscript[α, 3]) = ArcTan[1/1000] ;
N[%, 20] ;
(Subscript[α, 4]) = ArcTan[1/10000] ;
N[%, 20];
angle =  res  +  7  (Subscript[α, 4]) ;
Print["after 7 pm q4 =", N[%, 20]]
angle =  
        res  +  7  (Subscript[α, 3])   +  
          7  (Subscript[α, 4]) ;
Print["after 7 pm q4 + 7 pm q3 =", 
      N[%, 20]]
angle =  
        res  +  3  (Subscript[α, 2])  +  7  (Subscript[α, 3])   +  
          7  (Subscript[α, 4]) ;
Print["after 7 pm q4 + 7 pm q3 + 3 pm q2 =", 
      N[%, 20]]
angle =  
        res  +  7  (Subscript[α, 1])  + 3  (Subscript[α, 2])  +  
          7  (Subscript[α, 3])   +  
          7  (Subscript[α, 4]) ;
Print["after 7 pm q4 + 7 pm q3 + 3 pm q2 + 7 pm q1 =", 
      N[%, 20]]

angle =  
        res  +  1 (Subscript[α, 0]) + 7  (Subscript[α, 1])  + 3  (Subscript[α, 2])  + 
          7  (Subscript[α, 3])  + 7  (Subscript[α, 4]) ;
Print["angle radian =", N[%, 20]]
angle2  =  angle / Degree;
Print["angle degree =", N[%, 20]]