SHARE
TWEET

Untitled

a guest Jun 16th, 2019 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ReIm[z_]:=N[{Re[z], Im[z]}];
  2.  
  3. ReIm[ComplexInfinity]={0,1000};
  4.  
  5. Attributes[ReIm]=Listable;
  6.      
  7. LFT[mat_List][z_?NumericQ] := reim[Divide @@ (mat - {z, 1})];
  8. Off[Power::infy, General::dbyz, Divide::infy];
  9.      
  10. polys = Table[{FaceForm[Hue[Random[], 0.6]],
  11.     Polygon[LFT[w][triangle[]]]}, {w, G}];
  12.      
  13. Graphics[{EdgeForm[Black], polys}, PlotRange -> {{-3, 4}, {0, 2.4}},
  14.  Frame -> True, FrameTicks -> False]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top