//誤差関数は、ヘイスティングスの近似式を使用
//Erf(x)=1-(1/(1+BERa1*x+BERa2*x^2+BERa3*x^3+BERa4*x^4+BERa5*x^5+BERa6*x^6)
BERa1 = 0.0705230784;
BERa2 = 0.0422820123;
BERa3 = 0.0092705272;
BERa4 = 0.0001520143;
BERa5 = 0.0002765672;
BERa6 = 0.0000430638;

function BERfunc(BER_f) {

	SN_Value = BER_f.SN.value*1;
		V = SN_Value/(2*Math.SQRT2);
//	Erf1 = 	BERa1*V;
//	Erf2 = 	BERa2*Math.pow(V, 2);
//	Erf3 = 	BERa3*Math.pow(V, 3);
//	Erf4 = 	BERa4*Math.pow(V, 4);
//	Erf5 = 	BERa5*Math.pow(V, 5);
//	Erf6 = 	BERa6*Math.pow(V, 6);

//	Erf7 = Erf1+Erf2+Erf3+Erf4+Erf5+Erf6;

//	Erf = (1+BERa1*V+BERa2*Math.pow(V, 2)+BERa3*Math.pow(V, 3)+BERa4*Math.pow(V, 4)+BERa5*Math.pow(V, 5)+BERa6*Math.pow(V, 6));
	Erf = 1-(1/Math.pow((1+BERa1*V+BERa2*Math.pow(V, 2)+BERa3*Math.pow(V, 3)+BERa4*Math.pow(V, 4)+BERa5*Math.pow(V, 5)+BERa6*Math.pow(V, 6)),16));
	Ans = 0.5*(1-Erf);
        BER_f.BER.value = Ans;

//	alert('Erf1='+Erf1+'¥n'+'Erf2='+Erf2+'¥n'+'Erf3='+Erf3+'¥n'+'Erf4='+Erf4+'¥n'+'Erf5='+Erf5+'¥n'+'Erf6='+Erf6+'¥n');
	}