summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/trianglecenterofmass.mp
blob: 5074aae8a5b28d39f26fd612ef42996b6e2b7ab6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
% trianglecenterofmass.mp
% L. Nobre G.
% 2010

%

prologues := 1;

beginfig(1);
  numeric u;
  u = 1cm;
  z1 = origin;
  z2 = (1u,0);
  z3 = (1+uniformdeviate(4))*dir(5+uniformdeviate(80))*u;
  draw z1--z2--z3--cycle withpen pencircle scaled 2pt;
  numeric a, b, c, d;
  a = (ypart z3)/3;
  z4 = (0,a);
  if (xpart z3) < (xpart z2):
    d = xpart z2;
  else:
    d = xpart z3;
  fi;
  z5 = (d,a);
  draw z4--z5 withcolor red;
  z12 = (xpart z3,0);
  z23 = whatever[z2,z3];
  z230 = unitvector((-ypart (z3-z2),xpart (z3-z2)));
  z23 = whatever[z1,z230];
  z13 = whatever[z1,z3];
  z130 = unitvector((ypart (z3-z1),-xpart (z3-z1)));
  z13 = whatever[z2,z2+z130];
  b = abs(z23)/3;
  c = abs(z13-z2)/3;
  z6 = z2+b*z230;
  z7 = z3+b*z230;
  draw z6--z7 withcolor green;
  z8 = z3+c*z130;
  z9 = z1+c*z130;
  draw z8--z9 withcolor blue;
endfig;

end.