Advertisement
virus_forever

Untitled

Mar 4th, 2014
161
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.41 KB | None | 0 0
  1.  z3_nt:=0;
  2.  
  3.  x22_nt:=z3_nt * Sin(ugol_y2_3) + x3_nt * Cos(ugol_y2_3);
  4.  y22_nt:=y3_nt;
  5.  z22_nt:=z3_nt * Cos(ugol_y2_3) - x3_nt * Sin(ugol_y2_3);
  6.  
  7.  x11_nt:=x22_nt;
  8.  y11_nt:=z22_nt * Sin(gam_a00) + y22_nt * Cos(gam_a00);
  9.  z11_nt:=z22_nt * Cos(gam_a00) - y22_nt * Sin(gam_a00);
  10.  
  11.  //x0_nt:=x11_nt;
  12.  //y0_nt:=y11_nt + (0.5 * da0);
  13.  //z0_nt:=z11_nt;
  14.  
  15.  x0_nt:=y11_nt + (0.5 * da0);
  16.  y0_nt:=-z11_nt;
  17.  z0_nt:=-x11_nt;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement