function EExecAD(M,V,Att,Sg)
{
 var S = {Re:0, Im:0}
 Result=false
 if (V.OB=="C") 
 {
  S.Re=Math.tan(V.C.Re)*Sg;
  S.Im=0;
  TOChisl_Create(M,S,Att);
 } else
 {
  TOEmpty_Create(M,Att);
 }
 Result=true
 return Result
} // EExecAD