function [r1,r2,r3,r4]=sat_pos(x,y,z,s)
%**************************************************************************
% CLUSTER project: Cluster Flight                  Autor: Christian Maszl * 
% Unit System = [SI]                  Mail: e0025754@student.tuwien.ac.at *
%**************************************************************************
%
% This subroutine calculate the position vectors for all time
% steps.

% Convert to km.
r1=[x(:)-(sqrt(6)/3)*s                  y(:)  -s+z(:)];
r2=[x(:)-(sqrt(6)/3)*s        sqrt(3)*s+y(:)     z(:)];
r3=[x(:)-(sqrt(6)/3)*s                  y(:)   s+z(:)];
r4=[x(:)+(sqrt(6)/3)*s    (sqrt(3)/3)*s+y(:)     z(:)];


