DISLIN Examples / Perl

Demonstration of CURVE / Perl

#!/usr/local/bin/perl
use Dislin;

$n = 101;
$pi = 3.1415926;
$f = $pi / 180.;
$step = 360. / ($n - 1);
for ($i = 0; $i < $n; $i++) {
    $xray[$i] = $i * $step;
    $x = $xray[$i] * $f;
    $y1ray[$i] = sin ($x);
    $y2ray[$i] = cos ($x);
}

Dislin::scrmod ('revers');
Dislin::metafl ('xwin');
Dislin::disini ();
Dislin::complx ();
Dislin::pagera ();

Dislin::axspos (450, 1800);
Dislin::axslen (2200, 1200);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');

Dislin::labdig (-1, 'X');
Dislin::ticks  (9,  'X');
Dislin::ticks  (10, 'Y');

Dislin::titlin ('Demonstration of CURVE', 1);
Dislin::titlin ('SIN (X), COS (X)', 3);
 
$ic = Dislin::intrgb (0.95, 0.95, 0.95);
Dislin::axsbgd ($ic);

Dislin::graf   (0., 360., 0., 90., -1., 1., -1., 0.5);
Dislin::setrgb (0.7, 0.7, 0.7);
Dislin::grid   (1, 1);
 
Dislin::color  ('fore');
Dislin::height (50); 
Dislin::title  ();

Dislin::color  ('red');
Dislin::curve  (\@xray, \@y1ray, $n);
Dislin::color  ('green');
Dislin::curve  (\@xray, \@y2ray, $n);
Dislin::disfin ();

Polar Plots / Perl

#!/usr/bin/perl
use Dislin;

$n = 300;
$m = 10;
$pi = 3.1415926;
$f = $pi / 180.;
$step = 360. / ($n - 1);
for ($i = 0; $i < $n; $i++) {
    $a = ($i * $step) * $f; 
    $xray[$i] = $i * $step;
    $x = $xray[$i] * $f;
    $y1[$i] = $a;
    $x1[$i] = sin (5 * $a);
}

for ($i = 0; $i < $m; $i++) {
    $x2[$i] = $i + 1;
    $y2[$i] = $i + 1;
}

Dislin::scrmod ('revers');
Dislin::setpag ('da4p');
Dislin::metafl ('cons');
Dislin::disini ();
Dislin::hwfont ();
Dislin::pagera ();

Dislin::titlin ('Polar Plots', 2);
Dislin::ticks  (3, 'Y');
Dislin::axends ('NOENDS', 'X');
Dislin::labdig (-1, 'Y');
Dislin::axslen (1000, 1000);
Dislin::axsorg (1050, 900);

$ic = Dislin::intrgb (0.95, 0.95, 0.95);
Dislin::axsbgd ($ic);

Dislin::grafp  (1.,0., 0.2, 0., 30.);
Dislin::color  ('blue');
Dislin::curve  (\@x1, \@y1, $n);
Dislin::color  ('fore')
Dislin::htitle (50);
Dislin::title  ();
Dislin::endgrf ();

Dislin::labdig (-1, 'X');
Dislin::axsorg (1050, 2250);
Dislin::labtyp ('VERT', 'Y');
Dislin::grafp  (10.,0.,2.,0.,30.);
Dislin::barwth (-5.);
Dislin::polcrv ('FBARS');
Dislin::color  ('blue');
Dislin::curve  (\@x2, \@y2, $m);

Dislin::disfin ();

Symbols / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit = 'Symbols';

Dislin::scrmod ('revers');
Dislin::setpag ('da4p');
Dislin::metafl ('cons');

Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();

Dislin::height (60);
$nl = Dislin::nlmess ($ctit);
Dislin::messag ($ctit, (2100 - $nl)/2, 200);

Dislin::height (50);
Dislin::hsymbl (120);

$ny = 150;
for ($i = 0; $i < 22; $i++) {
    if (($i % 4) == 0) {
        $ny = $ny + 400;
        $nxp = 550;
    }
    else {
	$nxp = $nxp + 350;
    }
    $nl = Dislin::nlnumb ($i, -1);
    Dislin::number ($i, -1, $nxp - $nl/2, $ny + 150);
    Dislin::symbol ($i, $nxp, $ny);
}
Dislin::disfin ();

Interpolation Methods / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit = 'Interpolation Methods';

@xray = (0., 1., 3., 4.5, 6., 8., 9., 11., 12., 12.5, 
	 13., 15., 16., 17., 19., 20.);
@yray = (2., 4., 4.5, 3., 1., 7., 2., 3., 5., 2., 2.5,
	 2., 4., 6., 5.5, 4.);
@cpol = ('SPLINE', 'BARS', 'STEP', 'LINEAR');

Dislin::scrmod ('revers');
Dislin::setpag ('da4p');
Dislin::metafl ('xwin');

Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();

Dislin::incmrk (1);
Dislin::hsymbl (25);
Dislin::titlin ($ctit, 1);
Dislin::axslen (1500, 500);
Dislin::setgrf ('LINE', 'LINE', 'LINE', 'LINE');

$ic = Dislin::intrgb (1.0, 1.0, 0.0);
Dislin::axsbgd ($ic);

$nya = 2700;
for ($i = 0; $i < 4; $i++) {
  Dislin::axspos (350, $nya - $i * 500);
  Dislin::polcrv ($cpol[$i]);
  Dislin::marker (0);
  Dislin::graf   (0., 20., 0., 5., 0., 10., 0., 5.);
  $nx = Dislin::nxposn (1.);
  $ny = Dislin::nyposn (8.);
  Dislin::messag ($cpol[$i], $nx, $ny);
  Dislin.color   ("red");
  Dislin::curve  (\@xray, \@yray, 16);
  Dislin.color   ("fore");

  if ($i == 3) {
    Dislin::height (50);
    Dislin::title ();
  }
  Dislin::endgrf ();
}
Dislin::disfin ();

Bar Graphs / Perl

#!/usr/local/bin/perl
use Dislin;

@x  = (1., 2., 3., 4., 5., 6., 7., 8., 9.);
@y  = (0., 0., 0., 0., 0., 0., 0., 0., 0.);
@y1 = (1., 1.5, 2.5, 1.3, 2.0, 1.2, 0.7, 1.4, 1.1);
@y2 = (2., 2.7, 3.5, 2.1, 3.2, 1.9, 2.0, 2.3, 1.8);
@y3 = (4., 3.5, 4.5, 3.7, 4., 2.9, 3.0, 3.2, 2.6);

$nya = 2700;
$ctit = 'Bar Graphs (BARS)';

Dislin::scrmod ('revers');
Dislin::setpag ('da4p');
Dislin::metafl ('cons');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();
Dislin::ticks  (1, 'x');
Dislin::intax  ();
Dislin::axslen (1600, 700);
Dislin::titlin ($ctit, 3);

Dislin::legini ($cbuf, 3, 8);
Dislin::leglin ($cbuf, 'FIRST', 1);
Dislin::leglin ($cbuf, 'SECOND', 2);
Dislin::leglin ($cbuf, 'THIRD', 3);
Dislin::legtit (' ');
Dislin::shdpat (5);

for ($i = 1; $i <= 3; $i++) {
  if ($i > 1) {
    Dislin::labels ('none','x');
  }
  Dislin::axspos (300, $nya-($i-1)*800);
  Dislin::graf (0., 10., 0., 1., 0., 5., 0., 1.);

  if ($i == 1) {
    Dislin::bargrp (3, 0.15);
    Dislin::color  ('red');
    Dislin::bars   (\@x, \@y, \@y1, 9);
    Dislin::color  ('green');
    Dislin::bars   (\@x, \@y, \@y2, 9);
    Dislin::color  ('blue');
    Dislin::bars   (\@x, \@y, \@y3, 9);
    Dislin::color  ('fore');
    Dislin::reset  ('bargrp');
  }
  elsif ($i == 2)
  { Dislin::height (30);
    Dislin::labels ('delta','bars');
    Dislin::labpos ('center','bars');
    Dislin::color  ('red');
    Dislin::bars   (\@x, \@y, \@y1, 9);
    Dislin::color  ('green');
    Dislin::bars   (\@x, \@y1, \@y2, 9);
    Dislin::color  ('blue');
    Dislin::bars   (\@x, \@y2, \@y3, 9);
    Dislin::color  ('fore');
    Dislin::reset  ('height'); 
  }
  elsif ($i == 3)
  { Dislin::labels ('second', 'bars');
    Dislin::labpos ('outside', 'bars');
    Dislin::color  ('red');
    Dislin::bars   (\@x, \@y, \@y1, 9);
    Dislin::color  ('fore');
  }

  if ($i != 3) {
    Dislin::legend ($cbuf,7);
  }

  if ($i == 3)
  { Dislin::height (50);
    Dislin::title  ();
  }

  Dislin::endgrf ();
}

Dislin::disfin ();

Pie Charts / Perl

#!/usr/local/bin/perl
use Dislin;

@xray = (1., 2.5, 2., 2.7, 1.8);

$ctit = 'Pie Charts (PIEGRF)';

Dislin::scrmod ('revers');
Dislin::setpag ('da4p');
Dislin::metafl ('cons');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();
Dislin::chnpie ('BOTH');

Dislin::axslen (1600, 1000);
Dislin::titlin ($ctit, 2);

Dislin::legini ($cbuf, 5, 8);
Dislin::leglin ($cbuf, 'FIRST',  1);
Dislin::leglin ($cbuf, 'SECOND', 2);
Dislin::leglin ($cbuf, 'THIRD',  3);
Dislin::leglin ($cbuf, 'FOURTH', 4);
Dislin::leglin ($cbuf, 'FIFTH',  5);

# Selecting shading patterns
Dislin::patcyc (1, 7);
Dislin::patcyc (2, 4);
Dislin::patcyc (3, 13);
Dislin::patcyc (4, 3);
Dislin::patcyc (5, 5);

Dislin::axspos (250, 2800);
Dislin::piegrf ($cbuf, 1, \@xray, 5);
Dislin::endgrf ();

Dislin::axspos (250, 1600);
Dislin::labels ('DATA', 'PIE');
Dislin::labpos ('EXTERNAL', 'PIE');
Dislin::piegrf ($cbuf, 1, \@xray, 5);

Dislin::height (50);
Dislin::title  ();
Dislin::disfin ();

3-D Bar Graph / 3-D Pie Chart / Perl

#!/usr/local/bin/perl
use Dislin;

@xray  = (2., 4., 6., 8., 10.);
@y1ray = (0., 0., 0., 0., 0.);
@y2ray = (3.2, 1.5, 2.0, 1.0, 3.0);

@ic1ray  = (50, 150, 100, 200, 175);
@ic2ray  = (50, 150, 100, 200, 175);

Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::pagera ();
Dislin::hwfont ();

Dislin::titlin ('3-D Bar Graph / 3-D Pie Chart', 2);
Dislin::htitle (40);

Dislin::shdpat (16);
Dislin::axslen (1500, 1000);
Dislin::axspos (300, 1400);

Dislin::barwth (0.5);
Dislin::bartyp ('3dvert');
Dislin::labels ('second', 'bars');
Dislin::labpos ('outside', 'bars');
Dislin::labclr (255, 'bars');
Dislin::graf   (0., 12., 0., 2., 0., 5., 0., 1.);
Dislin::title  ();
Dislin::color  ('red');
Dislin::bars   (\@xray, \@y1ray, \@y2ray, 5);
Dislin::endgrf ();

Dislin::shdpat (16);
Dislin::labels ('data', 'pie');
Dislin::labclr (255, 'pie');
Dislin::chnpie ('none');
Dislin::pieclr (\@ic1ray, \@ic2ray, 5);
Dislin::pietyp ('3d');
Dislin::axspos (300, 2700);
Dislin::piegrf ($cbuf, 0, \@y2ray, 5);  
Dislin::disfin ();

3-D Bars / BARS3D / Perl

#!/usr/bin/perl
use Dislin;

$n = 18;

@xray  = (1., 3., 8., 1.5, 9., 6.3, 5.8, 2.3, 8.1, 3.5,
          2.2, 8.7, 9.2, 4.8, 3.4, 6.9, 7.5, 3.8);
@yray  = (5., 8., 3.5, 2., 7., 1.,4.3, 7.2, 6.0, 8.5,
         4.1, 5.0, 7.3, 2.8, 1.6, 8.9, 9.5, 3.2);
@z1ray = (0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
          0., 0., 0., 0., 0., 0., 0., 0.);
@z2ray = (4., 5., 3., 2., 3.5, 4.5, 2., 1.6, 3.8, 4.7,
          2.1, 3.5, 1.9, 4.2, 4.9, 2.8, 3.6, 4.3);
@icray = (30, 30, 30, 30, 30, 30, 100, 100, 100, 100,
         100, 100, 170, 170, 170, 170, 170, 170);

for ($i = 0; $i < $n; $i++) {
    $xwray[$i] = 0.5;
    $ywray[$i] = 0.5;
}

Dislin::scrmod ('revers');
Dislin::metafl ('xwin');
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::hwfont ();
Dislin::pagera ();

Dislin::axspos (200, 2600);
Dislin::axslen (1800, 1800);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');
Dislin::name   ('Z-axis', 'Z');

Dislin::titlin ('3-D Bars / BARS3D',3);
Dislin::labl3d ('hori');

Dislin::graf3d (0.,10.,0.,2.,0.,10.,0.,2.,0.,5.,0.,1.);
Dislin::grid3d (1,1, 'bottom');

Dislin::bars3d (\@xray, \@yray, \@z1ray, \@z2ray, \@xwray, 
                \@ywray, \@icray, $n);

Dislin::legini ($cbuf, 3, 20);
Dislin::legtit (' ');
Dislin::legpos (1350, 1150);
Dislin::leglin ($cbuf, 'First', 1);
Dislin::leglin ($cbuf, 'Second', 2);
Dislin::leglin ($cbuf, 'Third', 3);
Dislin::legend ($cbuf, 3);

Dislin::height (50);
Dislin::title ();
Dislin::disfin ();

Shading Patterns / Perl

#!/usr/local/bin/perl
use Dislin;

@ix  = (0, 300, 300,   0);
@iy  = (0,   0, 400, 400);
@ixp = (0, 0, 0, 0);
@iyp = (0, 0, 0, 0);

$ctit = "Shading patterns (AREAF)";

Dislin::scrmod ('revers');
Dislin::metafl ("cons");
Dislin::disini ();
Dislin::setvlt ("small");
Dislin::pagera ();
Dislin::complx ();

Dislin::height (50);
$nl = Dislin::nlmess ($ctit);
Dislin::messag ($ctit, (2970 - $nl)/2, 200);

$nx0 = 335;
$ny0 = 350;

$iclr = 0;
for ($i = 0; $i < 3; $i++) {
    $ny = $ny0 + $i * 600;

    for ($j = 0; $j < 6; $j++) {
        $nx = $nx0 + $j * 400;
        $ii = $i * 6 + $j;
        Dislin::shdpat ($ii);
        $iclr = $iclr + 1;
        Dislin::setclr ($iclr);
        for ($k = 0; $k < 4; $k++) {
	    $ixp[$k] = $ix[$k] + $nx;
	    $iyp[$k] = $iy[$k] + $ny;
        }

        Dislin::areaf (\@ixp, \@iyp, 4);
        $nl = Dislin::nlnumb ($ii, -1);
        $nx = $nx + (300 - $nl) / 2;
        Dislin::color ("foreground");
        Dislin::number ($ii, -1, $nx, $ny + 460); 
    }
}
Dislin::disfin ();

3-D Colour Plot / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit1 = '3-D Colour Plot of the Function';
$ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)';

$n = 50;
$m = 50;

$fpi  = 3.1415927 / 180.;
$stepx = 360. / ($n - 1);
$stepy = 360. / ($m - 1);

for ($i = 0; $i < $n; $i++) {
    $x[$i] = $i * $stepx;
    for ($j = 0; $j < $m; $j++) {
	$y[$j] = $j * $stepy;
        $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi);
    }
}

Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();

Dislin::titlin ($ctit1, 2);
Dislin::titlin ($ctit2, 4);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');
Dislin::name   ('Z-axis', 'Z');

Dislin::intax  ();
Dislin::autres ($n, $m);
Dislin::axspos (300, 1850);
Dislin::ax3len (2200, 1400, 1400);

Dislin::graf3  (0., 360., 0., 90., 0., 360., 0., 90.,
		 -2., 2., -2., 1.);
Dislin::crvmat (\@zmat, $n, $m, 1, 1);
Dislin::height (50);
Dislin::title  ();
Dislin::disfin ();

Surface Plot / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit1 = 'Surface Plot of the Function';
$ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)';

$n = 60;
$m = 50;

$fpi  = 3.1415927 / 180.;
$stepx = 360. / ($n - 1);
$stepy = 360. / ($m - 1);

for ($i = 0; $i < $n; $i++) {
    $x[$i] = $i * $stepx;
    for ($j = 0; $j < $m; $j++) {
	$y[$j] = $j * $stepy;
        $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi);
    }
}

Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();

Dislin::titlin ($ctit1, 2);
Dislin::titlin ($ctit2, 4);

Dislin::axspos (200, 2600);
Dislin::axslen (1800, 1800);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');
Dislin::name   ('Z-axis', 'Z');

Dislin::view3d (-5., -5., 4., 'ABS');
Dislin::graf3d  (0., 360., 0., 90., 0., 360., 0., 90.,
		 -3., 3., -3., 1.);
Dislin::height (50);
Dislin::title  ();

Dislin::color  ('green');
Dislin::surmat (\@zmat, $n, $m, 1, 1);
Dislin::disfin ();

Shaded Surface Plot / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit1 = 'Shaded Surface Plot';
$ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)';

$n = 50;
$m = 50;

$fpi  = 3.1415927 / 180.;
$stepx = 360. / ($n - 1);
$stepy = 360. / ($m - 1);

for ($i = 0; $i < $n; $i++) {
    $x[$i] = $i * $stepx;
    for ($j = 0; $j < $m; $j++) {
	$y[$j] = $j * $stepy;
        $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi);
    }
}

Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();

Dislin::titlin ($ctit1, 2);
Dislin::titlin ($ctit2, 4);

Dislin::axspos (200, 2600);
Dislin::axslen (1800, 1800);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');
Dislin::name   ('Z-axis', 'Z');

Dislin::view3d (-5., -5., 4., 'ABS');
Dislin::graf3d  (0., 360., 0., 90., 0., 360., 0., 90.,
		 -3., 3., -3., 1.);
Dislin::height (50);
Dislin::title  ();

Dislin::shdmod ('smooth', 'surface');
Dislin::surshd (\@x, $n, \@y, $m, \@zmat);
Dislin::disfin ();

Contour Plot / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit1 = 'Contour Plot of the Function';
$ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)';

$n = 60;
$m = 50;

$fpi  = 3.1415927 / 180.;
$stepx = 360. / ($n - 1);
$stepy = 360. / ($m - 1);

for ($i = 0; $i < $n; $i++) {
    $xray[$i] = $i * $stepx;
    for ($j = 0; $j < $m; $j++) {
	$yray[$j] = $j * $stepy;
        $zmat[$i][$j] = 2 * sin($xray[$i] * $fpi) * sin($yray[$j] * $fpi);
    }
}

Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();

Dislin::titlin ($ctit1, 2);
Dislin::titlin ($ctit2, 4);

Dislin::axspos (450, 2670);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');

Dislin::graf  (0., 360., 0., 90., 0., 360., 0., 90.);

Dislin::height (30);
for ($i = 0; $i < 9; $i++) {
    $zlev = -2. + $i * 0.5; 
    if ($i == 4) {
	Dislin::labels ('NONE', 'CONTUR');
    }
    else {
      Dislin::labels ('FLOAT', 'CONTUR');
    }
    Dislin::setclr (($i+1) * 28);
    Dislin::contur (\@xray, $n, \@yray, $m, \@zmat, $zlev);
}

Dislin::color  ('FORE');
Dislin::height (50);
Dislin::title  ();
Dislin::disfin ();

Shaded Contour Plot / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit1 = 'Shaded Contour Plot';
$ctit2 = 'F(X,Y) = (X[2$ - 1)[2$ + (Y[2$ - 1)[2$';

$n = 50;
$m = 80;

$stepx = 1.6 / ($n - 1);
$stepy = 1.6 / ($m - 1);

for ($i = 0; $i < $n; $i++) {
  $xray[$i] = $i * $stepx;
  $x = $xray[$i] * $xray[$i] - 1.;
  $x2 = $x * $x;
  for ($j = 0; $j < $m; $j++) {
    $yray[$j] = $j * $stepy;
    $y = $yray[$j] * $yray[$j] - 1.;
    $y2 = $y * $y;
    $zmat[$i][$j] = $x2 + $y2;
  }
}

Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::setpag ('da4p');

Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();
Dislin::mixalf ();

Dislin::titlin ($ctit1, 1);
Dislin::titlin ($ctit2, 3);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');

Dislin::axspos (450, 2670);
Dislin::shdmod ('poly', 'contur');
Dislin::graf   (0., 1.6, 0., 0.2, 0., 1.6, 0., 0.2);

for ($i = 0; $i < 12; $i++) {
  $zlev[11-$i] = 0.1 + $i * 0.1;
}

Dislin::conshd (\@xray, $n, \@yray, $m, \@zmat, \@zlev, 12);

Dislin::height (50);
Dislin::title  ();
Dislin::disfin ();

Shaded Surface / Contour Plot / Perl

#!/usr/local/bin/perl
use Dislin;

$ctit1 = 'Shaded Surface / Contour Plot';
$ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)';

$n = 50;
$m = 50;
$nlev = 20;

$fpi  = 3.1415927 / 180.;
$stepx = 360. / ($n - 1);
$stepy = 360. / ($m - 1);

for ($i = 0; $i < $n; $i++) {
    $x[$i] = $i * $stepx;
    for ($j = 0; $j < $m; $j++) {
	$y[$j] = $j * $stepy;
        $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi);
    }
}

Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::pagera ();
Dislin::hwfont ();

Dislin::titlin ($ctit1, 2);
Dislin::titlin ($ctit2, 4);

Dislin::axspos (200, 2600);
Dislin::axslen (1800, 1800);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');
Dislin::name   ('Z-axis', 'Z');

Dislin::graf3d  (0., 360., 0., 90., 0., 360., 0., 90.,
		 -2., 2., -2., 1.);
Dislin::height (50);
Dislin::title  ();

Dislin::grfini (-1., -1., -1., 1., -1., -1., 1., 1., -1.);
Dislin::nograf ();
Dislin::graf (0., 360., 0., 90., 0., 360., 0., 90.);
  
$step = 4. / $nlev;
for ($i = 0; $i < $nlev; $i++) {
   $zlev[$i] = -2.0 + $i * $step; 
}
Dislin::conshd (\@x, $n, \@y, $n, \@zmat, \@zlev, $nlev);

Dislin::box2d ();
Dislin::reset ('nograf');
Dislin::grffin ();

Dislin::shdmod ('smooth', 'surface');
Dislin::surshd (\@x, $n, \@y, $m, \@zmat);
Dislin::disfin ();

Spheres and Tubes / Perl

#!/usr/local/bin/perl
use Dislin;

@x = (10., 20., 10., 20., 5., 15., 25., 5., 15., 25., 
       5., 15., 25., 10., 20., 10., 20.);
@y = (10., 10., 20., 20., 5., 5., 5., 15., 15., 15.,
      25., 25., 25., 10., 10., 20., 20.);
@z = (5., 5., 5., 5., 15., 15., 15., 15., 15., 15.,
     15., 15., 15., 25., 25., 25., 25.);  
@idx = (1, 2, 1, 3, 3, 4, 2, 4, 5, 6, 6, 7, 8, 9, 9, 10,
       11, 12, 12, 13,  5, 8, 8, 11, 6, 9, 9, 12, 7, 10,
       10, 13,  14, 15, 16, 17, 14, 16, 15, 17,
        1, 5, 2, 7, 3, 11, 4, 13, 5, 14, 7, 15, 11, 16, 13, 17);

Dislin::setpag ('da4p');
Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::disini ();
Dislin::pagera ();
Dislin::hwfont ();
Dislin::light ('on');
Dislin::matop3 (0.02, 0.02, 0.02, 'specular');

Dislin::clip3d ('none');
Dislin::axspos (0, 2500);
Dislin::axslen (2100, 2100);

Dislin::htitle (50);
Dislin::titlin ('Spheres and Tubes', 4);

Dislin::name ('X-axis', 'x');
Dislin::name ('Y-axis', 'y');
Dislin::name ('Z-axis', 'z');

Dislin::labdig (-1, 'xyz');
Dislin::labl3d ('hori');
Dislin::graf3d (0., 30., 0., 5., 0., 30., 0., 5., 0., 30., 0., 5.);
Dislin::title ();

Dislin::shdmod ('smooth', 'surface');

$iret = Dislin::zbfini();
Dislin::matop3 (1.0, 0.0, 0.0, 'diffuse');
for ($i = 0; $i < 17; $i++) {
  Dislin::sphe3d ($x[$i], $y[$i], $z[$i], 2.0, 50, 25);
}

Dislin::matop3 (0.0, 1.0, 0.0, 'diffuse');
for ($i = 0; $i < 56; $i += 2) {
  $j1 = $idx[$i] - 1;
  $j2 = $idx[$i+1] - 1;
  Dislin::tube3d ($x[$j1], $y[$j1], $z[$j1], 
                  $x[$j2], $y[$j2], $z[$j2], 0.5, 5, 5); 
}

Dislin::zbffin ();
Dislin::disfin ();

Some Solids / Perl

#!/usr/local/bin/perl
use Dislin;

Dislin::setpag ('da4p');
Dislin::scrmod ('revers');
Dislin::metafl ('cons');
Dislin::disini ();
Dislin::pagera ();
Dislin::hwfont ();
Dislin::light ('on');
Dislin::litop3(1,0.5,0.5,0.5,'ambient');

Dislin::clip3d ('none');
Dislin::axspos (0, 2500);
Dislin::axslen (2100, 2100);

Dislin::htitle (60);
Dislin::titlin ('Some Solids', 4);

Dislin::nograf ();
Dislin::graf3d (-5., 5., -5., 2., -5., 5., -5., 2., -5., 5., -5., 2.);
Dislin::title ();

Dislin::shdmod ('smooth', 'surface'); 
$iret = Dislin::zbfini();
Dislin::matop3 (1.0, 0.5, 0.0, 'diffuse');
Dislin::tube3d (-3., -3., 8.0, 2., 3., 5.5, 1., 40, 20); 

Dislin::rot3d (-60., 0., 0.); 
Dislin::matop3 (1.0, 0.0, 1.0, 'diffuse');
Dislin::setfce ('bottom');
Dislin::matop3 (1.0, 0.0, 0.0, 'diffuse');
Dislin::cone3d (-3., -3., 3.5, 2., 3., 3., 40, 20);
Dislin::setfce ('top');

Dislin::rot3d (0., 0., 0.); 
Dislin::matop3 (0.0, 1.0, 1.0, 'diffuse');
Dislin::plat3d (4., 4., 3., 3., 'icos');

Dislin::rot3d (0., 0., 0.); 
Dislin::matop3 (1.0, 1.0, 0.0, 'diffuse');
Dislin::sphe3d (0., 0., 0., 3., 40, 20);

Dislin::rot3d (0., 0., -20.); 
Dislin::matop3 (0.0, 0.0, 1.0, 'diffuse');
Dislin::quad3d (-4., -4., -3., 3., 3., 3.);

Dislin::rot3d (0., 0., 30.); 
Dislin::matop3 (1.0, 0.3, 0.3, 'diffuse');
Dislin::pyra3d (-2., -5., -10., 3., 5., 5., 4);

Dislin::rot3d (0., 0., 0.); 
Dislin::matop3 (1.0, 0.0, 0.0, 'diffuse');
Dislin::torus3d (7., -3., -2., 1.5, 3.5, 1.5, 0., 360., 40, 20);
Dislin::rot3d (0., 90., 0.); 

Dislin::matop3 (0.0, 1.0, 0.0, 'diffuse');
Dislin::torus3d (7., -5., -2., 1.5, 3.5, 1.5, 0., 360., 40, 20);
Dislin::zbffin ();
Dislin::disfin ();

Map Plot / Perl

#!/usr/local/bin/perl
use Dislin;

Dislin::scrmod ('revers');
Dislin::metafl ('xwin');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();

Dislin::axspos (400, 1850);
Dislin::axslen (2400, 1400);

Dislin::name   ('Longitude', 'X');
Dislin::name   ('Latitude',  'Y');
Dislin::titlin ('World Coastlines and Lakes', 3);

Dislin::labels ('MAP', 'XY');
Dislin::digits (-1, 'XY');
Dislin::grafmp (-180., 180., -180., 90., -90., 90., -90., 30.);

Dislin::gridmp (1, 1);
Dislin::color  ('green');
Dislin::world  ();

Dislin::color  ('foreground');
Dislin::height (50);
Dislin::title  ();
Dislin::disfin ();

TeX Instructions for Mathematical Formulas / Perl

#!/usr/local/bin/perl
use Dislin;
  
Dislin::scrmod ('revers');
Dislin::metafl ('cons')
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::pagera ();
Dislin::complx ();
Dislin::height (40);

$cstr = 'TeX Instructions for Mathematical Formulas';
$nl = Dislin::nlmess ($cstr);
Dislin::messag ($cstr, (2100 - $nl)/2, 100);
  
Dislin::texmod ('on');
Dislin::messag ('$\\frac{1}{x+y}$', 150, 400);
Dislin::messag ('$\\frac{a^2 - b^2}{a+b} = a - b$', 1200, 400);
  
Dislin::messag ('$r = \\sqrt{x^2 + y^2}', 150, 700);
Dislin::messag ('$\\cos \\phi = \\frac{x}{\\sqrt{x^2 + y^2}}$', 1200, 700);

Dislin::messag ('$\\Gamma(x) = \\int_0^\\infty e^{-t}t^{x-1}dt$', 150, 1000);
Dislin::messag ('$\\lim_{x \\to \\infty} (1 + \\frac{1}{x})^x = e$', 
                1200, 1000);

Dislin::messag ('$\\mu = \\sum_{i=1}^n x_i p_i$', 150, 1300);
Dislin::messag ('$\\mu = \\int_{-\\infty}^ \\infty x f(x) dx$', 1200, 1300);

Dislin::messag ('$\\overline{x} = \\frac{1}{n} \\sum_{i=1}^n x_i$', 150, 1600);
Dislin::messag ('$s^2 = \\frac{1}{n-1} \\sum_{i=1}^n (x_i - \\overline{x})^2$',
                1200, 1600);

Dislin::messag ('$\\sqrt[n]{\\frac{x^n - y^n}{1 + u^{2n}}}$', 150, 1900);  
Dislin::messag ('$\\sqrt[3]{-q + \\sqrt{q^2 + p^3}}$', 1200, 1900);

Dislin::messag ('$\\int \\frac{dx}{1+x^2} = \\arctan x + C$', 150, 2200);
Dislin::messag ('$\\int \\frac{dx}{\\sqrt{1+x^2}} = {\\rm arsinh} x + C$',
                1200, 2200);

Dislin::messag ('$\\overline{P_1P_2} = \\sqrt{(x_2-x_1)^2 + (y_2-y_1)^2}$',
                150,2500);
Dislin::messag ('$x = \\frac{x_1 + \\lambda x_2}{1 + \\lambda}$', 1200, 2500);
Dislin::disfin ();

Web Example/Perl

#!/usr/bin/perl
use Dislin;

print "Content-type: image/png\n\n";

$ctit1 = 'Surface Plot of the Function';
$ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)';

$n = 60;
$m = 50;

$fpi  = 3.1415927 / 180.;
$stepx = 360. / ($n - 1);
$stepy = 360. / ($m - 1);

for ($i = 0; $i < $n; $i++) {
    $x[$i] = $i * $stepx;
    for ($j = 0; $j < $m; $j++) {
        $y[$j] = $j * $stepy;
        $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi);
    }
}

Dislin::scrmod ('revers');
Dislin::metafl ('virt');      # defines a virtual image in memory 
Dislin::setpag ('da4p');
Dislin::disini ();
Dislin::unit   (0);
Dislin::pagera ();

Dislin::titlin ($ctit1, 2);
Dislin::titlin ($ctit2, 4);

Dislin::axspos (200, 2600);
Dislin::axslen (1800, 1800);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');
Dislin::name   ('Z-axis', 'Z');

Dislin::view3d (-5., -5., 4., 'ABS');
Dislin::graf3d  (0., 360., 0., 90., 0., 360., 0., 90.,
                 -3., 3., -3., 1.);
Dislin::height (50);

Dislin::titlin ($ctit2, 4);

Dislin::axspos (200, 2600);
Dislin::axslen (1800, 1800);

Dislin::name   ('X-axis', 'X');
Dislin::name   ('Y-axis', 'Y');
Dislin::name   ('Z-axis', 'Z');

Dislin::view3d (-5., -5., 4., 'ABS');
Dislin::graf3d  (0., 360., 0., 90., 0., 360., 0., 90.,
                 -3., 3., -3., 1.);
Dislin::height (50);
Dislin::title  ();

Dislin::color  ('green');
Dislin::surmat (\@zmat, $n, $m, 1, 1);

$n=Dislin::rbfpng ($cbuf, 0);  # request size of PNG file 
Dislin::rbfpng ($cbuf, $n);    # copy image as PNG file to variable $cbuf
Dislin::disfin ();

print $cbuf;

News