BEGIN{
    i=0;
    Ave=0;
    dev=0;
    sum=0;
    now=strftime("%FT%H",systime());
}
{
    str[i++]=$0;
}
END{
    N=i/4;
    for(i=0;i<N;i++)
    {
	Rank[i]=str[4*i];
	Date[i]=str[4*i+1];
	Price[i]=str[4*i+3];
	split(Date[i],a,"[:,T]");
	if(a[2]>=22 || a[2]<=6)
	    Price[i]+=0.0112; #Yösiirto
	else
	    Price[i]+=0.0255; #Päiväsiirto
	Price[i]+=0.0283; #Sähkövero	    
	Price[i]+=0.000; #Marginaali	    
	split(Date[i],b,"[:]");
	if(b[1]==now)
	{
	    start=i;
#	    print "start found", Date[i];
	}
    }
    for(i=start;i<N;i++)
    	Ave+=Price[i];
    Nfut=N-start;
    Ave/=Nfut;
    min=100;
    for(i=start;i<N;i++)
    {
	PricePros[i]=Price[i]/Ave;
	dev+=PricePros[i]*PricePros[i]-1;
	sum+=PricePros[i];
	if(PricePros[i]<min)
	    min=PricePros[i];
    }
    dev=sqrt(dev/Nfut);
    for(i=start;i<N;i++)
    {
	x=2.0*2.0*(1.0-PricePros[i])/dev; #Sets the temperature difference to 1 C/dev with 2.0
	if(x>0)
	    y=int(0.5+x);
	else
	    y=int(x-0.5);
	T=21+0.5*y; #Temperature must be set at 0.5 C accuracy
	if(PricePros[i] < (min+dev*0.5))
	    HW=1; #Eco
	else
	    HW=5; #EcoPlus
	printf("%s %.4f %.2f %.1f %d\n",Date[i], Price[i], PricePros[i],T, HW);
#	printf("Rank: %d, Date: %s, Price: %.4f Pros: %.2f x %.2f y %.2f T %.1f\n",Rank[i],Date[i],Price[i], PricePros[i],x,y,T);
    }
#    printf("Ave: %.4f dev: %.2f sum %.2f\n", Ave, dev, sum);
}