User:Quequero/IOCCC ASCII Plotter

/*
&#42; que_plot.c by <b>Quequero</b>
&#42; quequero (at) bitchx [dot] it
&#42; http://quequero.org
&#42;/

&#35;include <stdio.h>
&#35;include <stdlib.h>
&#35;include <math.h>
&#35;include <errno.h>

&#35;define P 3.14
&#35;define E 2.71
&#35;define I u y
&#35;define u else
&#35;define y if
&#35;define r return
&#35;define o float
&#35;define m char
&#35;define W for

extern errno; m&#42;e;int f,x,i,j,t,l,q,p;o v();h(m&#42;s,m&#42;d,int k){ for(i=0;i<k; i++)
y(s[i]!=d[i])r 0; r 1; } o ol(){ o a=0; y(&#42;e=='x'){&#42;e++;r(o)x;} I(&#42;e=='e'){&#42;e++
&#59; r(o)E;}I(&#42;e=='p'){&#42;e++; r(o)P; } while(&#42;e>='0'&&&#42;e<='9'){ a=a&#42;10+(&#42;e-48);&#42;e++
&#59;}r a; } o o1(){ o k; y(&#42;e=='-') { e++; r-o1(); } I(&#42;e=='('){ e++; k=v(); } I((
&#42;e>='0'&&&#42;e<='9')||&#42;e=='x'){ r(o)ol(); } I(h(e,"acos(",5)){e+=5; k=(o)acos(v())
&#59; } I(h(e,"asin(",5)){ e+=5; k=(o)asin(v()); } I(h(e, "atan(", 5)){ e+=5; k=(o)
atan(v()); }I(h(e,"abs(",4)){ e+=4; k=(o)abs((int)v()); } I(h(e,"cos(",4)){ e+=
4; k=(o)cos((double)v()); } I(h(e, "log(", 4)){ e+=4; k=(o)log10(v()); } I(h(e,
"ln(",3)){ e+=3;k=(o)log(v()); } I(h(e, "sin(",4)) { e+=4; k=(o)sin (( double)v
()); } I(h(e,"sqrt(",5)){e+=5; k=(o)sqrt(v()); }I(h(e, "tan(", 4)){ e+=4; k=(o)
tan(v()); } I(&#42;e=='p'){k=(o)P; }I(&#42;e=='e'){k=(o)E; }u{r 0; }y(errno== 33||errno
==34){f=1; errno=0; r 0; } y(k>0.0&&k<0.5)k=0; I(k>0.5&&k<1.0)k=1; I(k<0.0 &&k>
-0.5)k=0; I(k<-0.5&&k>-1.0)k=-1; e++; r k; }o a1(){o b,d, c; b=o1(); while(&#42;e&&
(&#42;e=='&#42;'||&#42;e=='/'||&#42;e=='^'||&#42;e=='%')){ c=(o)&#42;e++; d=o1(); y((m)c=='&#42;')b&#42;=d; I((
m)c=='^')b=(o)pow(b,d); I((m)c=='/'){ y(!d)f=1; u b/=d; } I((m)c=='%'){y(!d)r 0
&#59; b= (o)((int)b%(int)d); }} r b; }o v(){ o k,f,c; k= a1(); while(&#42;e&&(&#42;e=='+'||
&#42;e=='-')){ c=(o)&#42;e++; f=a1(); k+=(o)(c=='+')?f:-f; } r k; } main(int a,m&#42;&#42;b){ m
&#42;&#42;c,&#42;n; unsigned m&#42;h; f='1'-49; y(a<sizeof(m) <<2)r 0; q=atoi(b[a-(1<<1) ]); p=
atoi(b [a-(1<<0)]); c=malloc(sizeof(m&#42;)&#42;p); n=malloc(sizeof(m)&#42;q&#42;p); y(l=0,!c||
!n)r 1; W(i=0; i<p; i++)c[i]=n+i&#42;q; t=&c[p-i+1]-&c[p-i]; W(i=0; i<p; i++)W(j=0;
j<q; j++)c[i][j]=32; W(i=0,j=0; i<q; i+=&c[p>>t][i+t]-&c[p>>t][i])c[p>>t][i]=45
&#59; W(i=0; i<p; i+=&c[p>>t][i+t]-&c[p>>t][i])c[i][q>>t]=(2<<6) -(2<<t); W(i=j;; i
++){ y(b[t][i])l++; u break; } c[p>>t][q>>t]=~t+(c[p-t][q>>t]<<1); c[p>>t][q-t]
=c[p>>t][8]+17; c[(m)b[a]][q>>t]=94; h=malloc(l+t);W(j=0,i=0; i<l;i++){ h[j]=(m
)&#42; b+i!=32?b[1][i]:(int)b[a]; j+=b [1][i]!=32?f+1:(unsigned int)b[1][i]>>(int
)&c; } h[j]=((unsigned m)&n)&((unsigned m) b[a]); l=j; l-=2; W(x=-q>>1; x<q>>1;
x++) { e=&h[1<<1]; t=(int)v(); y(f){ f=0; } u{ y(t<(p>>1)&&t>-(p>>1))c[(p-t)-(p
>>1)][x+(q>>1)]='.'; } } W(i=0; i<p; i++){ W(j=0; j<q; j++){ printf("%c",c[i][j
]); } printf("\n"); } free(h); free(c); free(n); r 0; }

gcc que_plot.c -o que_plot -lm

./que_plot "funzione da plottare" larghezza altezza

$ ./que_plot "y=sin(x)/tan(x)" 40 6
$ ./que_plot "y=sin(x)*ln(x)" 50 10
$ ./que_plot "y=8/(1+(x^2)/100)" 50 20
$ ./que_plot "y=cos(x)-sin(x)" 50 10
$ ./que_plot "y=(e^x-e^-x)/(e^(x/2)+e^(-x/2))" 20 30

+ -> addition (2 + 2 = 8... erm 4)
- -> substraction (2 - 1 = 1)
&#42; -> multiplication (5 * 2 = 10)
/ -> division (9 / 2 = 4.5)
^ -> power (2 ^ 3 = 8, astonished eh? lol j/k ;p)
% -> modulus (10 % 4 = 2)

sin -> sine
cos -> cosine
tan -> tangent
asin -> arc-sine
acos -> arc-cosine
atan -> arc-tangent
sqrt -> square root
abs -> absolute value
log -> logarithm (base 10)
ln -> natural logarithm (base e)

p -> pi-greek (3.14159265358...)
e -> base of natural logarithm (2.71828182845...)

x -> this is the unknown variable of a function

sinh = (e^x-e^(-x))/2
cosh = (e^x+e^(-x))/2
tanh = (e^x-e^(-x))/(e^x+e^(-x))

10th-root(x) = x^(1/10)

y=cos(x)-sin(x)
^
|
|
. .| . .
. .. .. . . . . .. . . . . .
----.--.--.--.-----------ö.--.--.--.------------.>
. . .. . . . . | .. .. . . . .
. . . | . .
|
|

y=8/(1+(x^2)/100)
^
|
.
...|...
.. | ..
.. | ..
... | ...
.. | ..
..... | .....
........ | .......
-------------------------ö----------------------->
|
|

y=sin(x)*ln(x)
^
|
| .
| . .. .
| . .
-------------------------ö.-.--.--.---.--.--.--.->
| ..
| ... ..
| ..
|