function SetInitialValues
global H fai
global JPs L

 load JP;
 JPs = JPs * 10;
 L = zeros(7,1);
 L(1) = JPs(15,2)-JPs(16,2);
 L(2) = JPs(14,2)-JPs(15,2); 
 L(3) = JPs(7,2)-JPs(8,2);  
 L(4) = JPs(8,2)-JPs(9,2); 
 L(5) = JPs(2,2)-JPs(3,2); 
 L(6) = JPs(1,2)-JPs(2,2);  
 L(7) = JPs(3,2)-JPs(10,2);  
 H(1) = 2; H(2) = 1;
 
 faidegree = 0;
 fai = (faidegree*pi)/180;