Advertisement
1121133114641

Untitled

May 13th, 2014
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.49 KB | None | 0 0
  1. (** User Mathematica initialization file **)
  2. Get["drawtriangle`"]
  3. $PrePrint = If[MatrixQ[#],MatrixForm[#],#]&;
  4.  
  5. ---------------------
  6.  
  7. (** User Mathematica initialization file **)
  8.  
  9. (** Decide how to display graphics on this machine **)
  10.  
  11. Begin["System`Private`"]
  12. (* Hide any symbols which are created *)
  13.  
  14. Which[
  15. $Linked || $ParentLink =!= Null, <<"FrontEndGraphics.m",
  16. True, <<"NoGraphics.m"
  17. ]
  18.  
  19. End[]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement