 ACON
Home/Topics |
Commands |
More Examples
Von B Curves
/* This file is a script for drawing von Bertalanffy Growth equations */
/*--------------------------------------------------*/
Function VonBdata(linf, k, t0, xp, yp, title, type, line_clr)
{
x,z = seq(1,48);
y = linf * (1.0 - EXP(-1.0 * k * (x - t0)))
Line_Type(type);
Line_Colour(line_clr);
Data_Line(x,y,z);
Draw_Line(mm(xp),mm(yp),mm(xp + 13),mm(yp));
Draw_Text(mm(xp + 16),mm(yp - 2.0),title);
}; /* end function*/
/* Define the plot boundaries */
Data_Window(0,12,0,175);
/* Define the position on the page */
Data_Viewport(mm(30),mm(110),mm(200),mm(270));
Data_Projection("NIL");
Line_Type(0);
Line_Width(mm(0.5));
/* vonB: L inf., K, t0, x,y pos, Label, Line type */
VonBdata(152.46, 0.3374, 1.4544, 115, 250, "Serchuk 1979 G.Bank", 0, "BLACK");
VonBdata(145.4, 0.38, 1.5, 115, 245, "Brown 1972 G.Bank", 1, "BLUE");
VonBdata(152, 0.29, 0.55, 115, 240, "Naidu 1975 Nfld. Fox Is.", 2,"RED");
VonBdata(108.83, 0.3259, 0.4636,1 15, 235, "Chouinard 1984 North. Str.", 3, "GREEN");
VonBdata(97, 0.12, 1.35, 115, 230, "Pedersen 1989 Greenland", 4, "ORANGE");
VonBdata(143.21, 0.2221, 1.38, 115, 225, "Robert 1989 B.O.Fundy", 0, "CYAN1");
VonBdata(136.71, 0.2264, 1.335, 115, 220, "Robert 1989 Sable Is.", 1, "PURPLE");
Line_Type(0);
Line_Colour("BLACK");
Axis(1,50,0,10,1,0,1,0,0);
ACON
Home/Topics |
Commands |
More Examples
|
