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

Re: Creating My Package?

• To: mathgroup at smc.vnet.net
• Subject: [mg35096] Re: Creating My Package?
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Tue, 25 Jun 2002 03:39:34 -0400 (EDT)
• Organization: Universitaet Leipzig
• References: <af6idg$lm7$1@smc.vnet.net>
• Reply-to: kuska at informatik.uni-leipzig.de
• Sender: owner-wri-mathgroup at wolfram.com

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.