share/contrib/gentran/man/tmp3.ms

   1 .nr LL 6.5i
   2 .nr FL 6.0i
   3 .ND
   4 .DS L
   5 .ft CR
   6 |            C CODE
   7 +-------------------------------
   8 |
   9 |
  10 |
  11 |p=a*power(x,2)+b*x+c;
  12 |
  13 |
  14 |
  15 |
  16 |
  17 |
  18 |m[1][1]=u;
  19 |m[1][2]=v;
  20 |m[2][1]=w;
  21 |m[2][2]=x;
  22 |
  23 |
  24 |
  25 |
  26 |
  27 |for (i=1;!(i>9);i=i+2)
  28 |    p=p+a[i];
  29 |
  30 |
  31 |
  32 |for (n=2.0;!(n>500.0);n=n*2.0)
  33 |    s=s+n;
  34 |
  35 |
  36 |
  37 |
  38 |
  39 |while (f(x)>=0.0)
  40 |    x=x+0.25;
  41 |
  42 |
  43 |
  44 |while (!(f(x)>=0.0))
  45 |    x=x+0.25;
  46 |
  47 |
  48 |
  49 |
  50 |
  51 |
  52 |
  53 |if (tot>=0.0)
  54 |    flag=1;
  55 |
  56 |
  57 |
  58 |if (tot>=0.0)
  59 |    flag=1;
  60 |else
  61 |    flag=0;
  62 |
  63 |
  64 |
  65 |
  66 |
  67 |
  68 |
  69 |goto loop;
  70 |
  71 |calcz(a,b,c,z);
  72 |
  73 |return(power(x,2));
  74 |
  75 |
  76 |
  77 |
  78 |
  79 |u=power(x,2);
  80 |v=power(y,2);
  81 |
  82 |
  83 |{
  84 |    u=power(x,2);
  85 |    v=power(y,2);
  86 |}
  87 |
  88 |
  89 |
  90 |
  91 |
  92 |
  93 |
  94 |
  95 |
  96 |
  97 |
  98 |
  99 |
 100 |
 101 |
 102 |
 103 |
 104 |
 105 |
 106 |
 107 |
 108 |
 109 |
 110 |-------------------------------
 111 .ft
 112 .DE