# Obsolete Plotting

`graphmode`()

obsolete. see `graph()`. Use `Graph`.

`graph`()
Name:
graph — multiple line plots
Syntax:

`graph()`

`graph(expression, setup)`

`graph(t)`

`graphmode(mode)`

Description:
`Graph()` solves the problem of obtaining multiple line plots during a single run. During calls to `graph(t)`, specified variables are stored and plotted using scales determined by calls to `axis()`.

Options:

`graph()`
erases the old list and starts a new (empty) list of plot expressions and setup statements.
`graph(s1, s2)`
Adds a new plot specification to the graph list. s1 must be string which contains an expression, usually a variable. e.g “y”. s2 is a string which contains any number of statements used to initialize axes. etc. E.G “`axis(0,5,1,-1,1,2) axis()`”.
`graph(t)`
The current value of each expression in the graph list is saved along with the abscissa value, t. The line plots are flushed every 50 points.
`graphmode(1)`
Executes the list of setup statements. This is also done on the first call to `graph(t)` after a new setup statement is added to the list.
`graphmode(-1)`
Flushes the stored plots. Subsequent calls to `graph(t)` will start new lines. Should be executed just before a `plt(-1)` to ensure the entire lines are plotted.
`graphmode(2)`
Flushes the stored plots. Subsequent calls to `graph(t)` will continue the lines. Graphs are normally flushed every 50 points.

Example:

```proc p() { /* plot ramp */
axis(100,300,450,200)
axis(0,15,3,-1,1,2)
axis()
plot(1)
for (x=0; x<15; x=x+.1) {
plot(x, x/15) /* ramp */
graph(x) /* plots graph list if any */
}
graph(-1) /* flush remaining part of graphs, if any */
plt(-1)
}

p()    /*plots the ramp alone*/

graph()
graph("sin(x)","axis(100,300,100,300) axis()")
graph("cos(x)","")  /* same axes as previous call to graph */

p()    /* plots the sin and cos along with the ramp */
```
Diagnostics:

The strings are parsed when `graph(s1, s2)` is executed. The strings are executed on calls to `graph(t)`.

The best method for complicated plots is to make the setup string a simple call to a user defined procedure. This procedure can setup the axes, write the labels, etc. Newlines and strings within strings are possible by quoting with the ‘verb++’ character but generally are too confusing to be practical.

Local variables in graph strings make no sense.

`axis`()

`plotx`()

`ploty`()

`regraph`()

`plot`()
Name:
plot, axis - plot relative to scale given by axes
Syntax:

`axis(args)`

`plot(mode)`

`inrange = plot(x,y)`

Description:
`Plot()` plots relative to the origin and scale defined by calls to axis. The default x and y axes have relative units of 0 to 1 with the plot located in a 5x3.5 inch area.

Options:

`plot()`
print parameter usage help lines.
`plot(0)`
subsequent calls will plot points.
`plot(1)`
next call will be a move, subsequent call will draw lines.
`plot(x, y)`
plots a point (or vector) relative to the axis scale. Return value is 0 if the point is clipped (out of range).
`plot(mode, x, y)`
Like `plt()` but with scale and origin given by axis().
`axis()`
draw axes with label values. Closes plot device.
`axis(clip)`
points are not plotted if they are a factor clip off the axis scale. Default is no clipping. Set clip to 1 to not plot out of axis region. A value of 1.1 allows plotting slightly outside the axis boundaries.
`axis(xorg, xsize, yorg, ysize)`
Size and location of the plot region. (Use the plt() absolute coordinates.)
`axis(xstart, xstop, nticx, ystart, ystop, nticy)`
Determines relative scale and origin.

Specification of the precision of axis tic labels is available by recompiling `hoc/SRC/plot.c` with `#define Jaslove 1+`. With this definition, the number of tics specified in the 3rd and 6th arguments of `axis()` should be of the form m.n. m is the number of tic marks, and n is the number of digits after the decimal point which are printed. This contribution was made by Stewart Jaslove.

Example:

```proc plotsin() { /* plot the sin function from 0 to 10 radians */
axis(0, 10, 5, -1, 1, 2) /* setup scale */
plot(1)
for (x=0; x<=10; x=x+.1) {
plot(x, sin(x)) /* plot the function */
}
axis() /* draw the axes */
}
```

`setcolor`()

obsolete. See `plt()`.

`settext`()

obsolete. See `plt()`.

`plt`()
Name:
plt, setcolor- low level plot functions
Syntax:

`plt(mode)`

`plt(mode, x, y)`

`setcolor(colorval)`

Description:

`Plt()` plots points, lines, and text using the Tektronix 4010 standard. Absolute coordinates of the lower left corner and upper right corner of the plot region are (0,0) and (1000, 780) respectively. `Setcolor()` sets the color (or pen number for HP plotter)

TURBO-C graphics drivers for VGA, EGA, CGA, and Hercules are automatically selected when the first plotting command is executed. An HP7475 compatible plotter may be connected to COM1:.

Options:

`plt(-1)`
Place cursor in home position.
`plt(-2)`
Subsequent text printed starting at current coordinate position.
`plt(-3)`
Erase screen, cursor in home position.
`plt(-5)`
Open HP plotter on PC.
`setcolor()`
The plotter will stay open till another `plt(-5)` is executed.
`plt(0, x, y)`
Plot point.
`plt(1, x, y)`
Move to point without plotting.
`plt(2, x, y)`
Draw vector from former position to new position given by (x,y). (mode can be any number >= 2)

Several extra options are available for X11 graphics.

`plt(-4, x, y)`
Erases area defined by previous plot position and the point, (x, y).
`plt(-5)`
Fast mode. By default, the X11 server is flushed on every plot command so one can see the plot as it develops. Fast mode caches plot commands and only flushes on `plt(-1)` and `setcolor()`. Fast mode is three times faster than the default mode. It is most useful when plotting is the rate limiting step of the simulation.
`plt(-6)`
X11 server flushed on every plot call.

When the graphic window is resized, hoc is notified after the next erase command.

Argument to `setcolor()` produces the following screen colors with an EGA adapter, X11 graphics:

```0      black  (pen 1 on HP plotter)         black
1      blue                                 white
2      green                                yellow
3      cyan                                 red
4      red                                  green
5      magenta                              blue
6      brown                                violet
7      light gray  (pen 1 on HP plotter)    cyan
...
15     white                                green
```

Example:

```proc plotsin() { /* This procedure plots the sin function in red.*/
setcolor(4)
plt(1, 100, 500)  plt(2, 100, 100) /* y-axis*/
plt(1, 100, 300)  plt(2, 600, 300) /* x-axis*/
plt(1, 200, 550)
plt(-2)  print "SIN(x) from 0 to 2*PI" /* label*/
for(i=0; i<=100;i=i+1){
plt(i+1, i*500/100, 300 + 200*sin(2*PI*i/100))
}
plt(-1) /* close plot */
}
```