public class curve { public static void main (String args []) { int n = 100, i; double x, fpi = 3.1415926/180., step = 360. / (n-1); float xray [] = new float [n]; float y1ray [] = new float [n]; float y2ray [] = new float [n]; for (i = 0; i < n; i++) { xray[i] = (float) (i * step); x = xray[i] * fpi; y1ray[i] = (float) Math.sin (x); y2ray[i] = (float) Math.cos (x); } Dislin.metafl ("cons"); Dislin.disini (); Dislin.pagera (); Dislin.complx (); Dislin.axspos (450, 1800); Dislin.axslen (2200, 1200); Dislin.name ("X-axis", "x"); Dislin.name ("Y-axis", "y"); Dislin.labdig (-1, "x"); Dislin.ticks (10, "xy"); Dislin.titlin ("Demonstration of CURVE", 1); Dislin.titlin ("SIN(X), COS(X)", 3); Dislin.graf (0.f, 360.f, 0.f, 90.f, -1.f, 1.f, -1.f, 0.5f); Dislin.title (); Dislin.color ("red"); Dislin.curve (xray, y1ray, n); Dislin.color ("green"); Dislin.curve (xray, y2ray, n); Dislin.color ("fore"); Dislin.dash (); Dislin.xaxgit (); Dislin.disfin (); } }
public class symbols { public static void main (String args []) { int ny = 150, nxp = 0, nl, i; String ctit = "Symbols", cstr = " "; Dislin.metafl ("cons"); Dislin.setpag ("da4p"); 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); for (i = 0; i < 22; i++) { if ((i % 4) == 0) { ny += 400; nxp = 550; } else { nxp += 350; } cstr = "" + i; nl = Dislin.nlmess (cstr) / 2; Dislin.messag (cstr, nxp - nl, ny + 150); Dislin.symbol (i, nxp, ny); } Dislin.disfin (); } }
public class intpol { public static void main (String args []) { int i, nya = 2700, nx, ny; String ctit = "Interpolation Methods"; float xray [] = {0.f, 1.f, 3.f, 4.5f, 6.f, 8.f, 9.f, 11.f, 12.f, 12.5f, 13.f, 15.f, 16.f, 17.f, 19.f, 20.f}; float yray [] = {2.f, 4.f, 4.5f, 3.f, 1.f, 7.f, 2.f, 3.f, 5.f, 2.f, 2.5f, 2.f, 4.f, 6.f, 5.5f, 4.f}; String cpol [] = {"SPLINE", "STEM", "BARS", "STAIRS", "STEP", "LINEAR"}; Dislin.setpag ("da4p"); Dislin.metafl ("cons"); Dislin.disini (); Dislin.pagera (); Dislin.complx (); Dislin.incmrk (1); Dislin.hsymbl (25); Dislin.titlin (ctit, 1); Dislin.axslen (1500, 350); Dislin.setgrf ("LINE", "LINE", "LINE", "LINE"); for (i = 0; i < 6; i++) { Dislin.axspos (350, nya - i * 350); Dislin.polcrv (cpol[i]); Dislin.marker (0); Dislin.graf (0.f, 20.f, 0.f, 5.f, 0.f, 10.f, 0.f, 5.f); nx = Dislin.nxposn (1.f); ny = Dislin.nyposn (8.f); Dislin.messag (cpol[i], nx, ny); Dislin.curve (xray, yray, 16); if (i == 5) { Dislin.height (50); Dislin.title (); } Dislin.endgrf (); } Dislin.disfin (); } }
public class bars { public static void main (String args []) { int nya = 2700, i; String ctit = "Bar Graphs (BARS)"; String cbuf = " "; float x[] = {1.f,2.f,3.f,4.f,5.f,6.f,7.f,8.f,9.f}; float y[] = {0.f,0.f,0.f,0.f,0.f,0.f,0.f,0.f,0.f}; float y1[] = {1.f,1.5f,2.5f,1.3f,2.0f,1.2f,0.7f,1.4f,1.1f}; float y2[] = {2.f,2.7f,3.5f,2.1f,3.2f,1.9f,2.0f,2.3f,1.8f}; float y3[] = {4.f,3.5f,4.5f,3.7f,4.f,2.9f,3.0f,3.2f,2.6f}; 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.f,10.f,0.f,1.f,0.f,5.f,0.f,1.f); if (i == 1) { Dislin.bargrp (3,0.15f); 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"); } else if (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"); } else if (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 (); } }
public class piegrf { public static void main (String args []) { float xray [] = {1.f, 2.5f, 2.f, 2.7f, 1.8f}; String ctit = "Pie Charts (PIEGRF)"; String cbuf = " "; Dislin.metafl ("cons"); Dislin.setpag ("da4p"); 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 (); } }
public class bar3d { public static void main (String args []) { float xray[] = {2.f,4.f,6.f,8.f,10.f}; float y1ray[] = {0.f,0.f,0.f,0.f,0.f}; float y2ray[] = {3.2f,1.5f,2.0f,1.0f,3.0f}; int ic1ray[] = {50,150,100,200,175}; int ic2ray[] = {50,150,100,200,175}; String cbuf = " "; 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.5f); Dislin.bartyp ("3dvert"); Dislin.labels ("second","bars"); Dislin.labpos ("outside","bars"); Dislin.labclr (255,"bars"); Dislin.graf (0.f,12.f,0.f,2.f,0.f,5.f,0.f,1.f); 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 (); } }
public class areaf { public static void main (String args []) { int i, j, k, ii, nl, nx, ny, nx0 = 335, ny0 = 350, iclr = 0; int ix [] = {0, 300, 300, 0}; int iy [] = {0, 0, 400, 400}; int ixp [] = {0, 0, 0, 0}; int iyp [] = {0, 0, 0, 0}; String ctit = "Shading Patterns (AREAF)"; 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); 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++; 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 (); } }
public class color3d { public static void main (String args []) { int n = 50, m = 50, i, j; float zmat [] = new float [n*m]; String ctit1 = "3-D Colour Plot of the Function"; String ctit2 = "F(X,Y) = 2*SIN(X)*SIN(Y)"; double x, y; double fpi = 3.1415926/180.; double stepx = 360. / (n-1); double stepy = 360. / (m-1); for (i = 0; i < n; i++) { x = i * stepx; for (j = 0; j < m; j++) { y = j * stepy; zmat[i*m+j] = (float) (2 * Math.sin(x*fpi)* Math.sin(y*fpi)); } } Dislin.metafl ("cons"); Dislin.disini (); Dislin.pagera (); Dislin.hwfont (); Dislin.titlin (ctit1, 1); Dislin.titlin (ctit2, 3); 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.f, 360.f, 0.f, 90.f, 0.f, 360.f, 0.f, 90.f, -2.f, 2.f, -2.f, 1.f); Dislin.crvmat (zmat, n, m, 1, 1); Dislin.height (50); Dislin.title (); Dislin.disfin (); } }
public class surface { public static void main (String args []) { int n = 50, m = 50, i, j; float zmat [] = new float [n*m]; double x, y; double fpi = 3.1415926/180.; double stepx = 360. / (n-1); double stepy = 360. / (m-1); for (i = 0; i < n; i++) { x = i * stepx; for (j = 0; j < m; j++) { y = j * stepy; zmat[i*m+j] = (float) (2 * Math.sin(x*fpi)* Math.sin(y*fpi)); } } Dislin.metafl ("cons"); Dislin.setpag ("da4p"); Dislin.disini (); Dislin.pagera (); Dislin.complx (); 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 ("Surface Plot (SURMAT)", 1); Dislin.titlin ("F(X,Y) = 2*SIN(X)*SIN(Y)", 3); Dislin.view3d (-5.f, -5.f, 4.f, "abs"); Dislin.graf3d (0.f, 360.f, 0.f, 90.f, 0.f, 360.f, 0.f, 90.f, -3.f, 3.f, -3.f, 1.f); Dislin.height (50); Dislin.title (); Dislin.color ("green"); Dislin.surmat (zmat, n, m, 1, 1); Dislin.disfin (); } }
public class contour { public static void main (String args []) { int n = 50, m = 50, i, j; float zlev; float zmat [] = new float [n*m]; float xray [] = new float [n]; float yray [] = new float [m]; String ctit1 = "Contour Plot"; String ctit2 = "F(X,Y) = 2*SIN(X)*SIN(Y)"; double x, y; double fpi = 3.1415926/180.; double stepx = 360. / (n-1); double stepy = 360. / (m-1); for (i = 0; i < n; i++) { xray[i] = (float) (i * stepx); } for (j = 0; j < m; j++) { yray[j] = (float) (j * stepy); } for (i = 0; i < n; i++) { x = xray[i] * fpi; for (j = 0; j < m; j++) { y = yray[j] * fpi; zmat[i*m+j] = (float) (2 * Math.sin(x)* Math.sin(y)); } } Dislin.metafl ("cons"); Dislin.setpag ("da4p"); Dislin.disini (); Dislin.pagera (); Dislin.complx (); Dislin.titlin (ctit1, 1); Dislin.titlin (ctit2, 3); Dislin.intax (); Dislin.axspos (450, 2650); Dislin.name ("X-axis", "x"); Dislin.name ("Y-axis", "y"); Dislin.graf (0.f, 360.f, 0.f, 90.f, 0.f, 360.f, 0.f, 90.f); Dislin.height (50); Dislin.title (); Dislin.height (30); for (i = 0; i < 9; i++) { zlev = -2.f + i * 0.5f; 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.disfin (); } }
public class conshd { public static void main (String args []) { int n = 50, m = 50, i, j; float zmat [] = new float [n*m]; float xray [] = new float [n]; float yray [] = new float [m]; float zlev [] = new float [12]; String ctit1 = "Shaded Contour Plot"; String ctit2 = "F(X,Y) = (X[2$ - 1)[2$ + (Y[2$ - 1)[2$"; double x, y; double stepx = 1.6 / (n-1); double stepy = 1.6 / (m-1); for (i = 0; i < n; i++) { xray[i] = (float) (i * stepx); } for (j = 0; j < m; j++) { yray[j] = (float) (j * stepy); } for (i = 0; i < n; i++) { x = xray[i] * xray[i] - 1.; x *= x; for (j = 0; j < m; j++) { y = yray[j] * yray[j] - 1; zmat[i*m+j] = (float) (x + y * y); } } 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.f, 1.6f, 0.f, 0.2f, 0.f, 1.6f, 0.f, 0.2f); for (i = 0; i < 12; i++) { zlev[11-i] = 0.1f + i * 0.1f; } Dislin.conshd (xray, n, yray, m, zmat, zlev, 12); Dislin.height (50); Dislin.title (); Dislin.disfin (); } }
public class world { public static void main (String args []) { Dislin.metafl ("cons"); Dislin.disini (); Dislin.pagera (); Dislin.complx (); Dislin.frame (3); 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.grafmp (-180.f, 180.f, -180.f, 90.f, -90.f, 90.f, -90.f, 30.f); Dislin.gridmp (1, 1); Dislin.color ("green"); Dislin.world (); Dislin.color ("fore"); Dislin.height (50); Dislin.title (); Dislin.disfin (); } }
public class tex { public static void main (String args []) { int nl; String cstr = "TeX Instructions for Mathematical Formulas"; Dislin.setpag ("da4p"); Dislin.disini (); Dislin.pagera (); Dislin.complx (); Dislin.height (40); 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 (); } }