%% auteur : -1.5 1.5 setxrange -0.7 1.1 setyrange 100 setxunit %/A{-0.5 0.1} def %/B{-0.2 0.8} def %[A B] (<-) ligne $ka+kb=k(a+b)$ 0 0 [3 dup] cctexlabel On factorise /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit 0 0.7 [2 dup] cctexlabel Produit /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit 0.7 -0.3 [1.5 dup] cctexlabel somme /dx_boxit 3 def /dy_boxit 3 def /linearc .05 def /fillstyle {jaune fill} def boxit -0.7 -0.3 [1.5 dup] cctexlabel