MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Creating My Package?


Hi,

take the ASCII editor of your choice and enter

BeginPackage["MyPackage`"]

Area::usage="Area[gprim] return the area of the graphics primitive
gprim."

Begin["`Private`"]

Area[Rectangle[p1_,p2_,___]]:=Times @@ (p2-p1)

End[]
EndPackage[]


Save the file as MyPackage.m
in a directory on your $Path

Regards
  Jens


"HPhreacker(tm)" wrote:
> 
> Hello All.
> 
> I want to create a package for basic geometry(area of squares, circles,
> volume of sphere, etc...). How do I create it?
> 
> Regards
> HPhreacker - POA-RS  Brazil
> 
> --
> MSN hphreacker at hotmail.com (NOT USED AS E-MAIL)
> ICQ 151782344
> Spammers would like to use abuse at yahoo.com for contact.


  • Prev by Date: Difference /recurrence equations
  • Next by Date: Finding a formula for a sum
  • Previous by thread: Re: Creating My Package?
  • Next by thread: FrameTick Problem