%% auteur : -2.5 2.5 setxrange -1 1.1 setyrange 100 setxunit $(a+b)(c+d)=ac+ad+bc+bd$ 0 0 [3 dup] cctexlabel On développe /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit 0 0.7 [2 dup] cctexlabel Somme /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit 1 -0.3 [1.5 dup] cctexlabel Produit /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit -1.4 -0.3 [1.5 dup] cctexlabel (A) node () -2 0.1 cctext (B) node () -1.2 0.1 cctext (C) node () -0.7 0.1 cctext (D) node () -1.5 0.1 cctext /angleA 60 def /angleB 110 def /angleD 100 def /arrowangle 2 def (A) (B) (->) nccurve (A) (C) (->) nccurve (D) (B) (->) nccurve (D) (C) (->) nccurve