function Show_Credit()

{
var credit
credit="Script programmed by Jens T.Saetre 10111999"
credit+="\n"
credit+="\nCalculation is based on which variable that"
credit+="has changed value. \nChoose FEC and put "
credit+="values in the fields ( or select SNG channel)." 
credit+="\nGo to another field to trigging the OnChange calculations!"
credit+="\n"
credit+="\nIf you get script errors make sure the decimal separator is"
credit+="set to . (period) in Control Panel->Regional Setting"
credit+="\n"
credit+="\n01122001 Corrected explenation of formulas"
credit+="\n11012002 Added more DSNG Channels"
credit+="\n07122002 Updated DSNG Channels"
credit+="\n07122002 Changed layout,added more info and parameters"
credit+="\n13122002 Updated DSNG Channels"
credit+="\n06012003 Updated DSNG Channels"
credit+="\n26022003 Updated DSNG Channels"
credit+="\n16082004 Updated DSNG Channels for Intelsat 10-02"
credit+="\nUpdated 16082004"
window.alert(credit);
}


function formatvalue(input, rsize) // Desimal avrunding
  {
   var invalid = "**************************";
   var nines = "999999999999999999999999";
   var strin = "" + input;
   var fltin = parseFloat(strin);
   if (strin.length <= rsize) return strin;
   if (strin.indexOf("e") != -1 ||
       fltin > parseFloat(nines.substring(0,rsize)+".4"))
      return invalid.substring(0, rsize);
   var rounded = "" + (fltin + (fltin - parseFloat(strin.substring(0, rsize))));
   return rounded.substring(0, rsize);
}





function set_bw()// leser ut BW fra DIG kanal
{

var channelvalue=document.SNG_Channel.Dig.value
var Tx_Frequency,Rx_CrossPol,Rx_Frequency,Tx_CrossPol
var table=channelvalue.split(";")
var AllocatedBandwidth = parseFloat(table[0])
document.Allocated_Bandwidth.MHz.value= formatvalue( AllocatedBandwidth,6)

document.Rx.Frequency.value= table[1]
document.Rx2.Pol.value=table[2]
document.Rx3.Eirp.value=table[3]
document.Rx4.Txp.value=table[4]
Rx_Frequency=parseFloat(table[1])
if (Rx_Frequency<11450 ) Tx_Frequency=Rx_Frequency+3050 
  else Tx_Frequency=Rx_Frequency+2800

Tx_CrossPol=parseFloat(table[8])
if (Rx_CrossPol<11450 ) Rx_CrossPol=Tx_CrossPol-3050 
  else Rx_CrossPol=Tx_CrossPol-2800

//document.Tx.Frequency.value= formatvalue(Tx_Frequency,7) //table[5]
//document.Tx2.Pol.value= table[6]
//document.Tx3.Txp.value= table[7]
//document.Tx4.CrossPol.value= formatvalue(Tx_CrossPol,7) 

//document.Rx5.CrossPol.value=formatvalue(Rx_CrossPol,7) 

}



function occupied_bw() {


var SymbolRate= parseFloat(document.Occupied.Bandwidth.value) 

var AllocatedBandwidth = (1 + parseFloat(document.Modulator.Rolloff.value)) *SymbolRate

document.Allocated_Bandwidth.MHz.value=formatvalue(AllocatedBandwidth,6)

var ForwardErrorCorrection = parseFloat(document.FEC.FEC_BROEK.value) 

var occ_bw= SymbolRate*1.28

document.OcBw.Bw.value = formatvalue(occ_bw,6)

var NettoBitRate=SymbolRate*2*ForwardErrorCorrection*(188/204)

//document.Occupied.Bandwidth.value=formatvalue((SymbolRate),6)

document.Symbol_rate.Mbaud.value  = formatvalue(SymbolRate,6)
document.Netto_Bitrate.TS.value=  formatvalue(NettoBitRate,6)
document.ReedSolomon.TS204.value=  formatvalue(NettoBitRate*(204/188),6)
var BruttoBitRate = SymbolRate*2
document.Brutto_Bitrate.QPSK.value = formatvalue(BruttoBitRate,6)



}



function input_bw () // Beregner rater når BW er input
{
var AllocatedBandwidth = parseFloat(document.Allocated_Bandwidth.MHz.value)
var ForwardErrorCorrection = parseFloat(document.FEC.FEC_BROEK.value) 

var SymbolRate= (AllocatedBandwidth/(1 +parseFloat(document.Modulator.Rolloff.value)) ) 
var NettoBitRate=SymbolRate*2*ForwardErrorCorrection*(188/204)

document.Occupied.Bandwidth.value=formatvalue((SymbolRate),6)



document.Symbol_rate.Mbaud.value  = formatvalue(SymbolRate,6)
document.Netto_Bitrate.TS.value=  formatvalue(NettoBitRate,6)
document.ReedSolomon.TS204.value=  formatvalue(NettoBitRate*(204/188),6)
var BruttoBitRate = SymbolRate*2
document.Brutto_Bitrate.QPSK.value = formatvalue(BruttoBitRate,6)

var occ_bw= SymbolRate*1.28

document.OcBw.Bw.value = formatvalue(occ_bw,6)

}


function input_symbolrate () // Beregner rater og BW når symbolraten er input
{


var SymbolRate = parseFloat(document.Symbol_rate.Mbaud.value) // leser inn symbolraten 

var AllocatedBandwidth=SymbolRate * (1 +parseFloat(document.Modulator.Rolloff.value)) 

var ForwardErrorCorrection = parseFloat(document.FEC.FEC_BROEK.value) 

var NettoBitRate=SymbolRate*2*ForwardErrorCorrection*(188/204)

document.Netto_Bitrate.TS.value= formatvalue(NettoBitRate,6)
document.ReedSolomon.TS204.value=  formatvalue(NettoBitRate*(204/188),6)
var BruttoBitRate = SymbolRate*2
document.Brutto_Bitrate.QPSK.value = formatvalue(BruttoBitRate,6)

document.Allocated_Bandwidth.MHz.value=formatvalue(AllocatedBandwidth,6)
document.Occupied.Bandwidth.value=formatvalue((SymbolRate*1.0),6)

var occ_bw= SymbolRate*1.28

document.OcBw.Bw.value = formatvalue(occ_bw,6)

}


function input_nettorate ()// Beregner rater og bw når nettorate er input
{
var NettoBitRate=parseFloat(document.Netto_Bitrate.TS.value)
var ForwardErrorCorrection = parseFloat(document.FEC.FEC_BROEK.value) 
var BruttoBitRate= (NettoBitRate/ForwardErrorCorrection)*(204/188)
document.Brutto_Bitrate.QPSK.value = formatvalue(BruttoBitRate,6)
var SymbolRate = BruttoBitRate / 2
document.Symbol_rate.Mbaud.value  = formatvalue(SymbolRate,6)
var AllocatedBandwidth=SymbolRate * (1 +parseFloat(document.Modulator.Rolloff.value)) 
document.Allocated_Bandwidth.MHz.value=formatvalue(AllocatedBandwidth,6)
document.ReedSolomon.TS204.value=  formatvalue(NettoBitRate*(204/188),6)
document.Occupied.Bandwidth.value=formatvalue((SymbolRate*1.0),6)

var occ_bw= SymbolRate*1.28

document.OcBw.Bw.value = formatvalue(occ_bw,6)

}

function input_reedsolomonbitrate ()// Beregner rater og bw når nettorate er input
{

var ReedSolomonBitrate=parseFloat(document.ReedSolomon.TS204.value)
var NettoBitRate=ReedSolomonBitrate*188/204
document.Netto_Bitrate.TS.value=formatvalue(NettoBitRate,6)
var ForwardErrorCorrection = parseFloat(document.FEC.FEC_BROEK.value) 
var BruttoBitRate= (NettoBitRate/ForwardErrorCorrection)*(204/188)
document.Brutto_Bitrate.QPSK.value = formatvalue(BruttoBitRate,6)
var SymbolRate = BruttoBitRate / 2
document.Symbol_rate.Mbaud.value  = formatvalue(SymbolRate,6)
var AllocatedBandwidth=SymbolRate * (1 +parseFloat(document.Modulator.Rolloff.value)) 
document.Allocated_Bandwidth.MHz.value=formatvalue(AllocatedBandwidth,6)
document.ReedSolomon.TS204.value=  formatvalue(NettoBitRate*(204/188),6)
document.Occupied.Bandwidth.value=formatvalue((SymbolRate*1.0),6)

var occ_bw= SymbolRate*1.28

document.OcBw.Bw.value = formatvalue(occ_bw,6)

}



function input_bruttorate () // Beregner rater og bw når bruttorate er input
{
var BruttoBitRate = parseFloat(document.Brutto_Bitrate.QPSK.value )
var ForwardErrorCorrection = parseFloat(document.FEC.FEC_BROEK.value) 
var NettoBitRate = (BruttoBitRate * ForwardErrorCorrection * 188 ) / 204
document.Netto_Bitrate.TS.value=  formatvalue(NettoBitRate,6)

document.ReedSolomon.TS204.value=  formatvalue(NettoBitRate*(204/188),6)

var SymbolRate = BruttoBitRate / 2
document.Symbol_rate.Mbaud.value  = formatvalue(SymbolRate,6)
var AllocatedBandwidth =  SymbolRate * (1 +parseFloat(document.Modulator.Rolloff.value)) 
document.Allocated_Bandwidth.MHz.value = formatvalue(AllocatedBandwidth,6)

document.Occupied.Bandwidth.value=formatvalue((SymbolRate*1.0),6)

var occ_bw= SymbolRate*1.28

document.OcBw.Bw.value = formatvalue(occ_bw,6)

}