Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Problems creating a package file

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77056] Problems creating a package file
  • From: chuck009 <dmilioto at comcast.com>
  • Date: Sat, 2 Jun 2007 04:14:45 -0400 (EDT)

Hello everyone.

I'd like to create my own package of some plotting routines but I'm having problems getting routines to work within the package.  I suspect my context is not right.  I created PlotRoutines.m via File/SaveAsSpecial/PackageFormat and placed it in a PlotUtilities directory within the ExtraPackages directory:

(*
   PlotRoutines.m

    Package for plot routines *)

BeginPackage["PlotUtilities`PlotRoutines`"];

TagPoints::usage = "Tag Polygons with '1' which satisfy passed inequality"

Begin["`Private`"];

TagPoints[inequality_][p_] := 
    Block[{x, y, z}, {x, y, z} = p; If[inequality, {p, 1}],{p, 2}]];

End[];

EndPackage[];

It takes a Graphics3D object and tests each coordinate of each Polygon matching the search criteria specified in the inequality and is suppose to append either a 1 or a 2 to each coordinate.  I'd call it as:


<< PlotUtilities`PlotRoutines`

p1=Graphics3D[Plot3D[some plot here]]

p1 /. Polygon[pts_] :> Polygon[TagPoints[z â?¥ 2] /@ pts];

However it doesn't update the polygons and I know it works when I create the TagPoints function within the notebook.   Also, I noticed when I first create the *.m file, Mathematica adds (*  *) to the file which I remove.  Not sure what to do.  Can someone help me?


  • Prev by Date: Re: Re: Ellipse equation simplification on Mathematica:
  • Next by Date: Gradient option for FindMinimum
  • Previous by thread: Re: pure function to generate a list of integrals
  • Next by thread: Re: Problems creating a package file