function calculate()
{
  if ( document.ccalc )
    {
MaxCr =0;
if ((document.ccalc.v3.value =='EUR')) {
if ((document.ccalc.v1.value =="0") || (document.ccalc.v2.value =="0")) {alert("Полетата отбелязани със (*) са задължителни!");  return}
MaxCr =  document.ccalc.v2.value / document.ccalc.v1.value
if ((MaxCr > 0 )&&(MaxCr <= 0.45 ) &&  (document.ccalc.v15.value == "plan1"))  {blp=7.5}

if ((MaxCr > 0)&&(MaxCr <= 0.45 ) && (document.ccalc.v15.value == "plan2"))  {blp=8.7}

if ((MaxCr > 0.45)&&(MaxCr <= 0.55 ) && (document.ccalc.v15.value == "plan1"))  {blp=8.0}

if ((MaxCr > 0.45)&&(MaxCr <= 0.55 ) && (document.ccalc.v15.value == "plan2"))  {blp=9.2}

if ((MaxCr > 0.55)&&(MaxCr <= 0.65 ) && (document.ccalc.v15.value == "plan1"))  {blp=8.5}

if ((MaxCr > 0.55)&&(MaxCr <= 0.65 )&&(document.ccalc.v15.value == "plan2"))  {blp=9.7}

if ((MaxCr > 0.65)&&(MaxCr <= 1 ) && (document.ccalc.v15.value == "plan1"))  {blp=9.0}

if ((MaxCr > 0.65)&&(MaxCr <= 1 ) && (document.ccalc.v15.value == "plan2"))  {blp=10.2}

if (MaxCr > 1)  {alert("Въведената сума е по-висока от пазарната оценка на имота!"); return}
}
msc=MaxCr;
      		g=0;y=1;l=0;
     	 if ( Number(document.ccalc.v1.value) )  {g=Number(document.ccalc.v1.value);
		      if ( g<0 ) g=0;document.ccalc.v1.value=Math.round(100*g)/100;g=g*msc;
	  }
if (Number(document.ccalc.v1.value)	== 0) {g=Number(document.ccalc.v2.value);}
	 	if ( Number(document.ccalc.v4.value) )
        y=Math.round(Number(document.ccalc.v4.value));
l=blp; 
 y=12*y;l=l/1200;
      eglp=Math.pow((1+l),y);
      if ( eglp>1 )
        	eglp=(eglp*l)/(eglp-1)
      else
       	 eglp=0;
      	mv=g*eglp;
        eglp=0;
      if ( (g>0)&&(y>0)&&(l>0) )
        eglp=1200*(mv*y-g)/(g*y)
document.ccalc.v2.value=Math.round(100*g)/100;
document.ccalc.v5.value=Math.round(100*mv)/100;
document.ccalc.v6.value=Math.round(100*eglp)/100;
 mv=g/y;mv1=0;mv2=0;lsum=0;gsum=g;
      while ( gsum>0.01 )
        { if ( mv>gsum )   mv=gsum; l_=gsum*l; g_=mv+l_;
          if ( mv1==0 )  mv1=g_;
          if ( g_>0 )  mv2=g_;
          lsum=lsum+l_;gsum=gsum-mv;}
      if ( g>0 )  lsum=100*(12*lsum)/(g*y);
document.ccalc.v7.value=Math.round(100*mv1)/100;document.ccalc.v8.value=Math.round(100*mv2)/100;
document.ccalc.v9.value=Math.round(100*lsum)/100;
}
}