#INCLUDE "dislin.bi"

DIM AS STRING cstr
DIM AS INTEGER nl
  
Dislin.setpag ("da4p")
Dislin.scrmod ("revers")
Dislin.metafl ("cons")
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 ()
