Wolfram Cloud Document

In[]:=

transform[p_]:={p[[1]]+p[[2]]/2,Sqrt[3]/2p[[2]]};

siszero={5,4,6};sisone={10,10,10};(*YOUENTERTHISANDNOTHINGELSE!*)firstpoint=siszero/Max[Total[siszero],0.0001];secondpoint=sisone/Max[Total[sisone],0.0001];firstplot={firstpoint[[1]],firstpoint[[2]]};secondplot={secondpoint[[1]],secondpoint[[2]]};Show[Graphics[{Line[{{0,0},{1,0},{0,1},{0,0}}],Line[{{1/2,0},{0,1}}],Line[{{0,1/2},{1,0}}],Line[{{0,0},{1/2,1/2}}],{Thick,Red,Line[{firstplot,secondplot}]}}]]Show[Graphics[{Line[Map[transform,{{0,0},{1,0},{0,1},{0,0}}]],Line[Map[transform,{{1/2,0},{0,1}}]],Line[Map[transform,{{0,1/2},{1,0}}]],Line[Map[transform,{{0,0},{1/2,1/2}}]],{Thick,Red,Line[Map[transform,{firstplot,secondplot}]]}}]]

Out[]=