home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_09_05 / 9n05096a < prev    next >
Text File  |  1991-02-17  |  2KB  |  98 lines
  1.  
  2. #include <stdio.h>
  3. #include <math.h>
  4. #define X
  5. #define Y {}
  6. #define C  }
  7. #define o {
  8. #undef main
  9. char m[500][99],v[99],R;
  10. int*a,b,n,i,j,W,A;
  11. float Q,G,D,M,T,B,O,U,V,N,y,e();
  12. P(g,R,u)float*g,R,u;{int c;for(*g=1,c=u;c--;*g*=R);}
  13. X
  14. K(g,R,u)float*g,u;char R;
  15. o
  16. if(R=='+')*g+=u;
  17. if(R=='-')*g-=u;
  18. if(R=='*')*g*=u;
  19. if(R=='/')*g/=u;
  20. if(R=='^')P(g,*g,u);
  21. C
  22. w(g,R,u)float*g,u;char R;
  23. /**/{int b,f;A=atoi(*++a);b=atoi(*++a);while((f=A+b)<15000){printf("%d\n",f);A=b;b=f;}}
  24. main(A,a)int A;char*a[];
  25. o o
  26. if(!strcmp(*++a,"-r"))S();
  27. D=atof(*++a);
  28. T=atof(*++a);
  29. B=atof(*++a);
  30. M=atof(*(4+(a-=3)));
  31. C
  32. while(D<T)
  33. o
  34. U=e((G=B/2,*a),D,M,a);
  35. V=e(*a,Q=D+G,M+G*U,a);
  36. /*/
  37. z;/*/
  38. N=2*e(*a,Q,M+G*V,a);
  39. M+=B*V/3+B*N/6+B*e(*a,D+=B,M+G*N,a)/6+G*U/3;
  40. printf("%f %f\n",D,M);
  41. C
  42. while(T=0)
  43. ;
  44. W=D=1;
  45. ;
  46. while(W!=1)
  47. o o
  48. strcpy(j+m,v);
  49. o 
  50. if((j-=W)<=W)break;
  51. strcpy(j+m,m+j-W);
  52. C
  53. while(strcmp(m+j-W,v)>0)
  54. j=i;
  55. strcpy(v,i+m);
  56. C
  57. for(i=(W/=3)-1;++i<n;)
  58. ;
  59. C
  60. do
  61. ;
  62. while(0);
  63. for(W=1;(W=W*3+1)<n;);
  64. C
  65. float e(f,D,M,a)char*f,*a[];float D,M;
  66. o
  67. #define main L
  68. O=0;
  69. R='+';
  70. for(;*f;f++)
  71. if(*f=='y')K(&O,R,M);
  72. else if((*f>='0')&&(*f<='9'))K(&O,R,(float)*f-'0');
  73. else if(*f=='x')K(&O,R,D);
  74. else if(1)R=*f;
  75. if(1);
  76. return O;
  77. for(j=0;j<n;puts(j++[m]));
  78. e("",O,&O,a);
  79. n=j-(O=1);
  80. while(gets(j++[m]));
  81. if(!strcmp(*++a,"-r"))S();
  82. C
  83. /**/main(A,a)int A;char*a[];
  84. Y
  85. S(){while(gets(b++[m]));for(b--;b--;puts(b[m]));}
  86. char*f,m[500][99],R,v[99];
  87. int b,W,n,i,j,z;
  88. float Q,G,D,M,T,O,B,U,V,N,e();
  89. #define Y
  90. #define X {}
  91. #define o }
  92. #define C {
  93. #include <stdio.h>
  94. #include <math.h>
  95.  
  96.  
  97.  
  98.