maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
10234: {$IFNDEF DELPHI}<br />
10235: procedure SetTitleFont(FontIndex, Width, Height : Integer); external 'dmath';<br />
10236: { Sets the font for the main graph title }<br />
102<strong>37</strong>: procedure SetOxFont(FontIndex, Width, Height : Integer); external 'dmath';<br />
10238: { Sets the font for the Ox axis (title and labels) }<br />
10239: procedure SetOyFont(FontIndex, Width, Height : Integer); external 'dmath';<br />
10240: { Sets the font for the Oy axis (title and labels) }<br />
10241: procedure SetLgdFont(FontIndex, Width, Height : Integer); external 'dmath';<br />
10242: { Sets the font for the legends }<br />
10243: procedure SetClipping(Clip : Boolean); external 'dmath';<br />
10244: { Determines whether drawings are clipped at the current viewport<br />
10245: boundaries, according to the value of the Boolean parameter Clip }<br />
10246: {$ENDIF}<br />
10247: procedure PlotOxAxis{$IFDEF DELPHI}(Canvas : TCanvas){$ENDIF}; external 'dmath';<br />
10248: { Plots the horizontal axis }<br />
10249: procedure PlotOyAxis{$IFDEF DELPHI}(Canvas : TCanvas){$ENDIF}; external 'dmath';<br />
10250: { Plots the vertical axis }<br />
10251: procedure PlotGrid({$IFDEF DELPHI}Canvas:TCanvas;{$ENDIF} Grid:TGrid); external 'dmath';<br />
10252: { Plots a grid on the graph }<br />
10253: procedure WriteGraphTitle{$IFDEF DELPHI}(Canvas : TCanvas){$ENDIF}; external 'dmath';<br />
10254: { Writes the title of the graph }<br />
10255: procedure SetMaxCurv(NCurv : Byte); external 'dmath';<br />
10256: { Sets the maximum number of curves and re-initializes their parameters }<br />
10257: procedure SetPointParam<br />
10258: {$IFDEF DELPHI}<br />
10259: (CurvIndex, Symbol, Size : Integer; Color : TColor);<br />
10260: {$ELSE}<br />
10261: (CurvIndex, Symbol, Size, Color : Integer); {$ENDIF} external 'dmath';<br />
10262: { Sets the point parameters for curve # CurvIndex }<br />
10263: procedure SetLineParam<br />
10264: {$IFDEF DELPHI}<br />
10265: (CurvIndex : Integer; Style : TPenStyle; Width : Integer; Color : TColor);<br />
10266: {$ELSE}<br />
10267: (CurvIndex, Style, Width, Color : Integer); {$ENDIF} external 'dmath';<br />
10268: { Sets the line parameters for curve # CurvIndex }<br />
10269: procedure SetCurvLegend(CurvIndex : Integer; Legend : String); external 'dmath';<br />
10270: { Sets the legend for curve # CurvIndex }<br />
10271: procedure SetCurvStep(CurvIndex, Step : Integer); external 'dmath';<br />
10272: { Sets the step for curve # CurvIndex }<br />
10273: function GetMaxCurv : Byte; external 'dmath'; { Returns the maximum number of curves }<br />
10274: procedure GetPointParam<br />
10275: {$IFDEF DELPHI}<br />
10276: (CurvIndex : Integer; var Symbol, Size : Integer; var Color : TColor);<br />
10277: {$ELSE}<br />
10278: (CurvIndex : Integer; var Symbol, Size, Color : Integer); {$ENDIF} external 'dmath';<br />
10279: { Returns the point parameters for curve # CurvIndex }<br />
10280: procedure GetLineParam<br />
10281: {$IFDEF DELPHI}<br />
10282: (CurvIndex : Integer; var Style : TPenStyle; var Width : Integer; var Color : TColor);<br />
10283: {$ELSE}<br />
10284: (CurvIndex : Integer; var Style, Width, Color : Integer); {$ENDIF} external 'dmath';<br />
10285: { Returns the line parameters for curve # CurvIndex }<br />
10286: function GetCurvLegend(CurvIndex : Integer) : String; external 'dmath';<br />
10287: { Returns the legend for curve # CurvIndex }<br />
10288: function GetCurvStep(CurvIndex : Integer) : Integer; external 'dmath';<br />
10289: { Returns the step for curve # CurvIndex }<br />
10290: {$IFDEF DELPHI}<br />
10291: procedure PlotPoint(Canvas : TCanvas;<br />
10292: X, Y : Float; CurvIndex : Integer); external 'dmath';<br />
10293: {$ELSE}<br />
10294: procedure PlotPoint(Xp, Yp, CurvIndex : Integer); external 'dmath';<br />
10295: {$ENDIF}<br />
10296: { Plots a point on the screen }<br />
10297: procedure PlotCurve({$IFDEF DELPHI}Canvas : TCanvas;{$ENDIF}<br />
10298: X, Y : TVector;<br />
10299: Lb, Ub, CurvIndex : Integer); external 'dmath';<br />
10300: { Plots a curve }<br />
10301: procedure PlotCurveWithErrorBars({$IFDEF DELPHI}Canvas : TCanvas;{$ENDIF}<br />
10302: X, Y, S : TVector;<br />
10303: Ns, Lb, Ub, CurvIndex : Integer); external 'dmath';<br />
10304: { Plots a curve with error bars }<br />
103<strong>05</strong>: procedure PlotFunc({$IFDEF DELPHI}Canvas : TCanvas;{$ENDIF}<br />
10306: Func : TFunc;<br />
10307: Xmin, Xmax : Float;<br />
103<strong>08</strong>: {$IFDEF DELPHI}Npt : Integer;{$ENDIF}<br />
10309: CurvIndex : Integer); external 'dmath';<br />
10310: { Plots a function }<br />
10311: procedure WriteLegend({$IFDEF DELPHI}Canvas : TCanvas;{$ENDIF}<br />
10312: NCurv : Integer;<br />
10313: ShowPoints, ShowLines : Boolean); external 'dmath';<br />
103<strong>14</strong>: { Writes the legends for the plotted curves }<br />
10315: procedure ConRec({$IFDEF DELPHI}Canvas : TCanvas;{$ENDIF}<br />
10316: Nx, Ny, Nc : Integer;<br />
103<strong>17</strong>: X, Y, Z : TVector;<br />
10318: F : TMatrix); external 'dmath';<br />
10319: { Contour plot }<br />
10320: function Xpixel(X : Float):Integer; external 'dmath'; {Converts user abscissa X to screen coordinate }<br />
10321: function Ypixel(Y : Float):Integer; external 'dmath'; {Converts user ordinate Y to screen coordinate }<br />
10322: function Xuser(X : Integer):Float; external 'dmath'; {Converts screen coordinate X to user abscissa }<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 119