imported>Dmitrii Kouznetsov |
|
| (4 intermediate revisions by one other user not shown) |
| Line 1: |
Line 1: |
| == Summary == | | == Summary == |
| {{Image_Details|user
| | Importing file |
| |description = Approximation of the experimental data of price of the Russian [[rouble]], measured in the USA cent
| |
| |author = [[User:Dmitrii Kouznetsov|Dmitrii Kouznetsov]] ([[User talk:Dmitrii Kouznetsov|talk]])
| |
| |date-created = 2014.12.11
| |
| |pub-country = Japan
| |
| |notes = Copied from TORI, http://mizugadro.mydns.jp/t/index.php/File:Roublellip.png
| |
| |versions = http://mizugadro.mydns.jp/t/index.php/File:Roublellip.png
| |
| }}
| |
| == Licensing ==
| |
| {{CC|by|3.0}}
| |
| ==References==
| |
| https://www.mataf.net/en/currency/converter-RUB-USD RUSSIAN RUBLE TO US DOLLAR CONVERTER (EXCHANGE RATE 1 RUB = 0.0199 USD), 2014.11.29
| |
| | |
| ==[[C++]] generator of curves==
| |
| #include<math.h>
| |
| #include<stdio.h>
| |
| #include<stdlib.h>
| |
| #define DB double
| |
| #define DO(x,y) for(x=0;x<y;x++)
| |
| #include"ado.cin"
| |
| FILE *i,*o;
| |
| int main(){ int j,n,m,N=200;
| |
| char d[N][16];
| |
| DB f[N];
| |
| int di;
| |
| DB dr;
| |
| int day;
| |
| i=fopen("dollardata.txt","r");
| |
| fscanf(i,"%d",&day);
| |
|
| |
| DO(n,N)
| |
| { j=fscanf(i,"%s%d%lf",d[n],&di,&dr);
| |
| if(j<3) goto end;
| |
| f[n]=di+.001*dr;
| |
| printf("%1d %3d %s %2d %8.3lf %4d %6.4lf %6.4lf\n",j,n,d[n],di,dr,day-n,f[n],1000./f[n]);
| |
| }
| |
| end: N=n; fclose(i);
| |
| | |
| o=fopen("10.eps","w");
| |
| ado(o,720,320);
| |
| #define M(x,y) fprintf(o,"%6.4f %6.4f M\n",0.+x,0.+y);
| |
| #define L(x,y) fprintf(o,"%6.4f %6.4f L\n",0.+x,0.+y);
| |
| fprintf(o,"210 10 translate 10 10 scale\n");
| |
| for(n=0;n<31;n+=10) {M(-20,n)L(50,n)}
| |
| for(n=-20;n<51;n+=10) {M(n,0)L(n,30)}
| |
| fprintf(o,"0 0 0 RGB 2 setlinecap .1 W S\n");
| |
| DB x,y;
| |
| DO(n,N){x=(day-n)/10.; y=1000./f[n]; if(n==0) M(x,y) else L(x,y) }
| |
| fprintf(o,"0 1 0 RGB 1 setlinejoin 1 setlinecap 1 W S\n");
| |
| | |
| M(-12,30) L(50,0) fprintf(o,"0 0 0 RGB .2 W S\n");
| |
| | |
| DB z;
| |
| for(n=0;n<800;n++)
| |
| {x=.1*n-20.4; z=x+14.;
| |
| z/=23.6;
| |
| z*=z;
| |
| z= 1. - z;
| |
| if(z<0) break; z=sqrt(z);
| |
| z=z*2.94;
| |
| y=10*z;
| |
| if(n==0) M(x,y) else L(x,y)
| |
| }
| |
| fprintf(o,"1 0 0 RGB .1 W S\n");
| |
| | |
| fprintf(o,"showpage\n%c%cTrailer",'%','%'); fclose(o);
| |
| system("epstopdf 10.eps");
| |
| system( "open 10.pdf");
| |
| printf("day of observaiton: %3d\n", day);
| |
| }
| |
