home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / apps / math / euler / source / extend.c < prev    next >
Text File  |  1993-03-24  |  8KB  |  308 lines
  1. #include <stdio.h>
  2.  
  3. #include "header.h"
  4.  
  5. void mindex (header *hd);
  6. void mpi (header *hd);
  7. void mtime (header *hd);
  8. void mepsilon (header *hd);
  9. void msin (header *hd);
  10. void mcos (header *hd);
  11. void mtan (header *hd);
  12. void matan (header *hd);
  13. void macos (header *hd);
  14. void masin (header *hd);
  15. void mexp (header *hd);
  16. void mlog (header *hd);
  17. void msqrt (header *hd);
  18. void mre (header *hd);
  19. void mim (header *hd);
  20. void mcomplex (header *hd);
  21. void miscomplex (header *hd);
  22. void misreal (header *hd);
  23. void mround (header *hd);
  24. void marg (header *hd);
  25. void mabs (header *hd);
  26. void msum (header *hd);
  27. void mprod (header *hd);
  28. void mconj (header *hd);
  29. void msize (header *hd);
  30. void mrows (header *hd);
  31. void mcols (header *hd);
  32. void mmatrix (header *hd);
  33. void mones (header *hd);
  34. void mdiag (header *hd);
  35. void mdiag2 (header *hd);
  36. void mband (header *hd);
  37. void mextrema (header *hd);
  38. void mmesh (header *hd);
  39. void mview (header *hd);
  40. void mview0 (header *hd);
  41. void mwait (header *hd);
  42. void mrandom (header *hd);
  43. void mnormal (header *hd);
  44. void mtext (header *hd);
  45. void mctext (header *hd);
  46. void mrtext (header *hd);
  47. void mtextsize (header *hd);
  48. void mwire (header *hd);
  49. void msolid (header *hd);
  50. void msolidh (header *hd);
  51. void msolid1 (header *hd);
  52. void mplot (header *hd);
  53. void mplotarea (header *hd);
  54. void mplot1 (header *hd);
  55. void mpixel (header *hd);
  56. void mmark (header *hd);
  57. void mcontour (header *hd);
  58. void mdup (header *hd);
  59. void mmod (header *hd);
  60. void mformat (header *hd);
  61. void mcolor (header *hd);
  62. void mfcolor (header *hd);
  63. void mwcolor (header *hd);
  64. void mtcolor (header *hd);
  65. void mstyle (header *hd);
  66. void mmstyle (header *hd);
  67. void mlstyle (header *hd);
  68. void mlinew (header *hd);
  69. void mwindow (header *hd);
  70. void mwindow0 (header *hd);
  71. void mgauss (header *hd);
  72. void minvgauss (header *hd);
  73. void mfak (header *hd);
  74. void mbin (header *hd);
  75. void mtd (header *hd);
  76. void minvtd (header *hd);
  77. void mchi (header *hd);
  78. void mfdis (header *hd);
  79. void mmax (header *hd);
  80. void mmin (header *hd);
  81. void mscale (header *hd);
  82. void msort (header *hd);
  83. void mnonzeros (header *hd);
  84. void mstatistics (header *hd);
  85. void mfloor (header *hd);
  86. void mceil (header *hd);
  87. void mcumsum (header *hd);
  88. void mcumprod (header *hd);
  89. void mfree (header *hd);
  90. void mshrink (header *hd);
  91. void minput (header *hd);
  92. void mmax1 (header *hd);
  93. void mmin1 (header *hd);
  94. void mdo (header *hd);
  95. void polyval (header *hd);
  96. void polyadd (header *hd);
  97. void polymult (header *hd);
  98. void polydiv (header *hd);
  99. void dd (header *hd);
  100. void ddval (header *hd);
  101. void polydd (header *hd);
  102. void polyzeros (header *hd);
  103. void polytrunc (header *hd);
  104. void mchar (header *hd);
  105. void mlu (header *hd);
  106. void mlusolve (header *hd);
  107. void mfft (header *hd);
  108. void mifft (header *hd);
  109. void mzeros (header *hd);
  110. void merror (header *hd);
  111. void mprintf (header *hd);
  112. void msign (header *hd);
  113. void mmouse (header *hd);
  114. void mtridiag (header *hd);
  115. void mcharpoly (header *hd);
  116. void mscompare (header *hd);
  117. void mfind (header *hd);
  118. void msetdiag (header *hd);
  119. void mzeros1 (header *hd);
  120. void margn (header *hd);
  121. void msetkey (header *hd);
  122. void many (header *hd);
  123. void mcd (header *hd);
  124. void mdir (header *hd);
  125. void mdir0 (header *hd);
  126. void wmultiply (header *hd);
  127. void smultiply (header *hd);
  128. void mproject (header *hd);
  129. void margs (header *hd);
  130. void msetplot (header *hd);
  131. void mscaling (header *hd);
  132. void mholding (header *hd);
  133. void mholding0 (header *hd);
  134. void mlineinput (header *hd);
  135. void minterpret (header *hd);
  136. void mname (header *hd);
  137. void mtwosides (header *hd);
  138. void mtriangles (header *hd);
  139. void mmeshfactor (header *hd);
  140. void msetepsilon (header *hd);
  141. void mflipx (header *hd);
  142. void mflipy (header *hd);
  143. void mzerosmat (header *hd);
  144. void mjacobi (header *hd);
  145. void mframe (header *hd);
  146. #ifndef SPLIT_MEM
  147. void mstore (header *hd);
  148. void mrestore (header *hd);
  149. #endif
  150. void mkey (header *hd);
  151. void merrlevel (header *hd);
  152. void mdensity (header *hd);
  153. void mdcolor (header *hd);
  154. void mdgrid (header *hd);
  155.  
  156. builtintyp builtin_list[] =
  157.     {{"index",0,mindex},
  158.      {"pi",0,mpi},
  159.      {"time",0,mtime},
  160.      {"epsilon",0,mepsilon},
  161.      {"sin",1,msin},
  162.      {"cos",1,mcos},
  163.      {"tan",1,mtan},
  164.      {"atan",1,matan},
  165.      {"acos",1,macos},
  166.      {"asin",1,masin},
  167.      {"exp",1,mexp},
  168.      {"log",1,mlog},
  169.      {"sqrt",1,msqrt},
  170.      {"re",1,mre},
  171.      {"im",1,mim},
  172.      {"complex",1,mcomplex},
  173.      {"iscomplex",1,miscomplex},
  174.      {"isreal",1,misreal},
  175.      {"round",2,mround},
  176.      {"arg",1,marg},
  177.      {"abs",1,mabs},
  178.      {"sum",1,msum},
  179.      {"prod",1,mprod},
  180.      {"conj",1,mconj},
  181.      {"size",-1,msize},
  182.      {"rows",1,mrows},
  183.      {"cols",1,mcols},
  184.      {"zeros",1,mzerosmat},
  185.      {"ones",1,mones},
  186.      {"diag",3,mdiag},
  187.      {"diag",2,mdiag2},
  188.      {"band",3,mband},
  189.      {"extrema",1,mextrema},
  190.      {"mesh",1,mmesh},
  191.      {"view",1,mview},
  192.      {"view",0,mview0},
  193.      {"wait",1,mwait},
  194.      {"random",1,mrandom},
  195.      {"normal",1,mnormal},
  196.      {"text",2,mtext},
  197.      {"ctext",2,mctext},
  198.      {"rtext",2,mrtext},
  199.      {"textsize",0,mtextsize},
  200.      {"wire",3,mwire},
  201.      {"solid",3,msolid},
  202.      {"solid",4,msolid1},
  203.      {"plot",2,mplot},
  204.      {"plotarea",2,mplotarea},
  205.      {"plot",0,mplot1},
  206.      {"pixel",0,mpixel},
  207.      {"mark",2,mmark},
  208.      {"contour",2,mcontour},
  209.      {"dup",2,mdup},
  210.      {"mod",2,mmod},
  211.      {"format",1,mformat},
  212.      {"color",1,mcolor},
  213.      {"framecolor",1,mfcolor},
  214.      {"wirecolor",1,mwcolor},
  215.      {"textcolor",1,mtcolor},
  216.      {"style",1,mstyle},
  217.      {"markerstyle",1,mmstyle},
  218.      {"linestyle",1,mlstyle},
  219.      {"linewidth",1,mlinew},
  220.      {"window",1,mwindow},
  221.      {"window",0,mwindow0},
  222.      {"normaldis",1,mgauss},
  223.      {"invnormaldis",1,minvgauss},
  224.      {"fak",1,mfak},
  225.      {"bin",2,mbin},
  226.      {"tdis",2,mtd},
  227.      {"invtdis",2,minvtd},
  228.      {"chidis",2,mchi},
  229.      {"fdis",3,mfdis},
  230.      {"max",2,mmax},
  231.      {"min",2,mmin},
  232.      {"scale",1,mscale},
  233.      {"sort",1,msort},
  234.      {"nonzeros",1,mnonzeros},
  235.      {"count",2,mstatistics},
  236.      {"floor",1,mfloor},
  237.      {"ceil",1,mceil},
  238.      {"cumsum",1,mcumsum},
  239.      {"cumprod",1,mcumprod},
  240.      {"free",0,mfree},
  241.      {"shrink",1,mshrink},
  242.      {"input",1,minput},
  243.      {"max",1,mmax1},
  244.      {"min",1,mmin1},
  245.      {"eval",-1,mdo},
  246.      {"polyval",2,polyval},
  247.      {"polyadd",2,polyadd},
  248.      {"polymult",2,polymult},
  249.      {"polydiv",2,polydiv},
  250.      {"interp",2,dd},
  251.      {"interpval",3,ddval},
  252.      {"polytrans",2,polydd},
  253.      {"polycons",1,polyzeros},
  254.      {"polytrunc",1,polytrunc},
  255.      {"char",1,mchar},
  256.      {"lu",1,mlu},
  257.      {"lusolve",2,mlusolve},
  258.      {"fft",1,mfft},
  259.      {"ifft",1,mifft},
  260.      {"polysolve",1,mzeros},
  261.      {"error",1,merror},
  262.      {"printf",2,mprintf},
  263.      {"sign",1,msign},
  264.      {"mouse",0,mmouse},
  265.      {"hb",1,mtridiag},
  266.      {"charpoly",1,mcharpoly},
  267.      {"stringcompare",2,mscompare},
  268.      {"find",2,mfind},
  269.      {"setdiag",3,msetdiag},
  270.      {"polyroot",2,mzeros1},
  271.      {"argn",0,margn},
  272.      {"setkey",2,msetkey},
  273.      {"any",1,many},
  274.      {"cd",1,mcd},
  275.      {"searchfile",1,mdir},
  276.      {"searchfile",0,mdir0},
  277.      {"bandmult",2,wmultiply},
  278.      {"symmult",2,smultiply},
  279.      {"project",3,mproject},
  280.      {"args",1,margs},
  281.      {"setplot",1,msetplot},
  282.      {"scaling",1,mscaling},
  283.      {"holding",1,mholding},
  284.      {"holding",0,mholding0},
  285.      {"lineinput",1,mlineinput},
  286.      {"interpret",1,minterpret},
  287.      {"name",1,mname},
  288.      {"twosides",1,mtwosides},
  289.      {"triangles",1,mtriangles},
  290.      {"meshfactor",1,mmeshfactor},
  291.      {"setepsilon",1,msetepsilon},
  292.      {"flipx",1,mflipx},
  293.      {"flipy",1,mflipy},
  294.      {"matrix",2,mmatrix},
  295.      {"jacobi",1,mjacobi},
  296.      {"frame",0,mframe},
  297. #ifndef SPLIT_MEM
  298.      {"store",1,mstore},
  299.      {"restore",1,mrestore},
  300. #endif
  301.      {"key",0,mkey},
  302.      {"errorlevel",1,merrlevel},
  303.      {"density",1,mdensity},
  304.      {"huecolor",1,mdcolor},
  305.      {"huegrid",1,mdgrid},
  306.      {"solidhue",4,msolidh},
  307.      {(char *)0,0,0} };
  308. ə