Le forum de XCAS

Code : Tout sélectionner

/***********************************************************
********** THEOREME D'AL-KASHI (2 côtés,1 angle) ***********
***********************************************************/

//c1 et c2 les côtés, Angle en degrés

AlKashi2cotes1angle(c1,c2,Angle):={
  local a,alpha,beta,gamma,A,B,C;
  alpha:=Angle*pi/180;
  a:=evalf((c1^2+c2^2-2c1*c2*cos(Angle/180*pi))^(1/2),2);
  beta:=evalf(acos((a^2+c1^2-c2^2)/(2*a*c1))*180/pi,2);
  gamma:=evalf(acos((a^2+c2^2-c1^2)/(2*a*c2))*180/pi,2);
  DispG;ClrGraph;
  A:=point(0,0);B:=point(c2,0);C:=point(c1*exp(i*alpha));
  triangle(A,B,C,affichage=epaisseur_ligne_3);
  legende(milieu(A,B),c2,quadrant3);legende(milieu(A,C),c1,quadrant2);
  legende(milieu(B,C),a,affichage=rouge);
  angle(A,B,C,"");angle(B,C,A,"");angle(C,A,B,"");
  afficher("voici le troisième côté et les deux autres angles")
  retourne [a,beta,gamma]
}