####    jet engine electrical system    ####
####    Syd Adams    ####

var ammeter_ave  = 0.0;
var outPut       = "systems/electrical/outputs/";
var BattVolts    = props.globals.getNode("systems/electrical/batt-volts",1);
var Volts        = props.globals.getNode("/systems/electrical/bus-volts",1);
var Amps         = props.globals.getNode("/systems/electrical/amps",1);
var EXT          = props.globals.getNode("/controls/electric/external-power",1);
var switch_list  = [];
var output_list  = [];
var watt_list    = [];
var serv_list    = [];
var servout_list = [];
var watt1_list   = [];

#var battery = Battery.new(switch-prop,volts,amps,amp_hours,charge_percent,charge_amps);
Battery = {
  new : func(swtch,vlt,amp,hr,chp,cha){
    m = { parents : [Battery] };
    m.switch = props.globals.getNode(swtch,1);
    m.switch.setBoolValue(0);
    m.ideal_volts = vlt;
    m.ideal_amps = amp;
    m.amp_hours = hr;
    m.charge_percent = chp;
    m.charge_amps = cha;
    return m;
  },

  apply_load : func(load,dt) {
    if(me.switch.getValue()){
      var amphrs_used = load * dt / 3600.0;
      var percent_used = amphrs_used / me.amp_hours;
      me.charge_percent -= percent_used;
      if ( me.charge_percent < 0.0 ) {
        me.charge_percent = 0.0;
      } elsif ( me.charge_percent > 1.0 ) {
        me.charge_percent = 1.0;
      }
      var output =me.amp_hours * me.charge_percent;
      return output;
    }else return 0;
  },

  get_output_volts : func {
    if(me.switch.getValue()){
      var x = 1.0 - me.charge_percent;
      var tmp = -(3.0 * x - 1.0);
      var factor = (tmp*tmp*tmp*tmp*tmp + 32) / 32;
      var output =me.ideal_volts * factor;
      return output;
    }else return 0;
  },

  get_output_amps : func {
    if(me.switch.getValue()){
      var x = 1.0 - me.charge_percent;
      var tmp = -(3.0 * x - 1.0);
      var factor = (tmp*tmp*tmp*tmp*tmp + 32) / 32;
      var output =me.ideal_amps * factor;
      return output;
    }else return 0;
  }
};

# var alternator = Alternator.new(num,switch,rpm_source,rpm_threshold,volts,amps);
Alternator = {
  new : func (num,switch,src,thr,vlt,amp){
    m = { parents : [Alternator] };
    m.switch =  props.globals.getNode(switch,1);
    m.switch.setBoolValue(0);
    m.meter =  props.globals.getNode("systems/electrical/gen-load["~num~"]",1);
    m.meter.setDoubleValue(0);
    m.gen_output =  props.globals.getNode("engines/engine["~num~"]/amp-v",1);
    m.gen_output.setDoubleValue(0);
    m.meter.setDoubleValue(0);
    m.rpm_source =  props.globals.getNode(src,1);
    m.rpm_threshold = thr;
    m.ideal_volts = vlt;
    m.ideal_amps = amp;
    return m;
  },

  apply_load : func(load) {
    var cur_volt=me.gen_output.getValue();
    var cur_amp=me.meter.getValue();
    if(cur_volt >1){
      var factor=1/cur_volt;
      gout = (load * factor);
      if(gout>1)gout=1;
    }else{
      gout=0;
    }
    me.meter.setValue(gout);
  },

  get_output_volts : func {
    var out = 0;
    if(me.switch.getBoolValue()){
      var factor = me.rpm_source.getValue() / me.rpm_threshold;
      if ( factor > 1.0 )factor = 1.0;
      var out = (me.ideal_volts * factor);
    }
    me.gen_output.setValue(out);
    return out;
  },

  get_output_amps : func {
    var ampout =0;
    if(me.switch.getBoolValue()){
      var factor = me.rpm_source.getValue() / me.rpm_threshold;
      if ( factor > 1.0 ) {
          factor = 1.0;
      }
      ampout = me.ideal_amps * factor;
    }
    return ampout;
  }
};

var battery = Battery.new("/controls/electric/battery-switch",24,30,34,1.0,7.0);
alternator1  = Alternator.new(0,"controls/electric/engine[0]/generator","/engines/engine[0]/rpm",20.0,28.0,60.0);
alternator2  = Alternator.new(1,"controls/electric/engine[1]/generator","/engines/engine[1]/rpm",20.0,28.0,60.0);
alternator3  = Alternator.new(2,"controls/electric/engine[2]/generator","/engines/engine[2]/rpm",20.0,28.0,60.0);
alternator4  = Alternator.new(3,"controls/electric/engine[3]/generator","/engines/engine[3]/rpm",20.0,28.0,60.0);
alternator5  = Alternator.new(4,"controls/electric/engine[4]/generator","/engines/engine[4]/rpm",20.0,28.0,60.0);
alternator6  = Alternator.new(5,"controls/electric/engine[5]/generator","/engines/engine[5]/rpm",20.0,28.0,60.0);
alternator7  = Alternator.new(6,"controls/electric/engine[6]/generator","/engines/engine[6]/rpm",20.0,28.0,60.0);
alternator8  = Alternator.new(7,"controls/electric/engine[7]/generator","/engines/engine[7]/rpm",20.0,28.0,60.0);
alternator9  = Alternator.new(8,"controls/electric/engine[8]/generator","/engines/engine[8]/rpm",20.0,28.0,60.0);
alternator10 = Alternator.new(9,"controls/electric/engine[9]/generator","/engines/engine[9]/rpm",20.0,28.0,60.0);

#####################################
setlistener("/sim/signals/fdm-initialized", func {
  BattVolts.setDoubleValue(0);
  Volts.setDoubleValue(0);
  init_switches();

  setprop("controls/lighting/instruments-norm",0.8);
  setprop("controls/lighting/engines-norm",0.8);
  setprop("controls/lighting/efis-norm",0.8);
  setprop("controls/lighting/panel-norm",0.8);

  settimer(update_electrical,5);
  print("Electrical System ... ok");
});

init_switches = func() {
  setprop("controls/electric/inverter-switch",0);
  setprop("controls/electric/avionics-switch",0);
  setprop("controls/lighting/instrument-lights",1);
  var tprop=props.globals.getNode("controls/electric/ammeter-switch",1);
  tprop.setBoolValue(1);
  tprop=props.globals.getNode("controls/cabin/fan",1);
  tprop.setBoolValue(0);
  tprop=props.globals.getNode("controls/cabin/heat",1);
  tprop.setBoolValue(0);
  tprop=props.globals.getNode("controls/electric/external-power",1);
  tprop.setBoolValue(0);

  setprop("controls/lighting/instruments-norm",0.8);
  setprop("controls/lighting/engines-norm",0.8);
  setprop("controls/lighting/efis-norm",0.8);
  setprop("controls/lighting/panel-norm",0.8);

  append(switch_list,"controls/anti-ice/prop-heat");
  append(output_list,"prop-heat");
  append(watt_list,2);
  append(switch_list,"controls/anti-ice/pitot-heat");
  append(output_list,"pitot-heat");
  append(watt_list,1);
  append(switch_list,"controls/lighting/landing-lights");
  append(output_list,"landing-lights");
  append(watt_list,2);
  append(switch_list,"controls/lighting/nav-lights");
  append(output_list,"nav-lights");
  append(watt_list,2);
  append(switch_list,"controls/lighting/cabin-lights");
  append(output_list,"cabin-lights");
  append(watt_list,1);
  append(switch_list,"controls/lighting/map-lights");
  append(output_list,"map-lights");
  append(watt_list,0.5);
  append(switch_list,"controls/lighting/wing-lights");
  append(output_list,"wing-lights");
  append(watt_list,1.5);
  append(switch_list,"controls/lighting/recog-lights");
  append(output_list,"recog-lights");
  append(watt_list,1);
  append(switch_list,"controls/lighting/logo-lights");
  append(output_list,"logo-lights");
  append(watt_list,1);
  append(switch_list,"controls/lighting/taxi-lights");
  append(output_list,"taxi-lights");
  append(watt_list,1);
  append(switch_list,"controls/electric/wiper-switch");
  append(output_list,"wiper");
  append(watt_list,0.2);
  append(switch_list,"controls/lighting/beacon-state/state");
  append(output_list,"beacon");
  append(watt_list,0.1);
  append(switch_list,"controls/lighting/strobe-state/state");
  append(output_list,"strobe");
  append(watt_list,0.1);
  append(switch_list,"controls/engines/engine[0]/starter");
  append(output_list,"starter[0]");
  append(watt_list,4);
  append(switch_list,"controls/engines/engine[1]/starter");
  append(output_list,"starter[1]");
  append(watt_list,4);

  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"adf");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"dme");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"gps");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"DG");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"transponder");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"mk-viii");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"tacan");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"turn-coordinator");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"comm");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"comm[1]");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"nav");
  append(watt_list,1);
  append(switch_list,"controls/electric/avionics-switch");
  append(output_list,"nav[1]");
  append(watt_list,1);

  for(var i=0; i<size(switch_list); i+=1) {
    var tmp = props.globals.getNode(switch_list[i],1);
    tmp.setBoolValue(0);
  }
}

update_virtual_bus = func( dt ) {
  var PWR = getprop("systems/electrical/serviceable");
  var battery_volts = battery.get_output_volts();
  BattVolts.setValue(battery_volts);
  var alternator1_volts  = alternator1.get_output_volts();
  var alternator2_volts  = alternator2.get_output_volts();
  var alternator3_volts  = alternator3.get_output_volts();
  var alternator4_volts  = alternator4.get_output_volts();
  var alternator5_volts  = alternator5.get_output_volts();
  var alternator6_volts  = alternator6.get_output_volts();
  var alternator7_volts  = alternator7.get_output_volts();
  var alternator8_volts  = alternator8.get_output_volts();
  var alternator9_volts  = alternator9.get_output_volts();
  var alternator10_volts = alternator10.get_output_volts();
  var external_volts = 24.0;

  load = 0.0;
  bus_volts = 0.0;
  power_source = nil;

  bus_volts = battery_volts;
  power_source = "battery";

  if (alternator1_volts > bus_volts) {
    bus_volts = alternator1_volts;
    power_source = "alternator1";
  }

  if (alternator2_volts > bus_volts) {
    bus_volts = alternator2_volts;
    power_source = "alternator2";
  }

  if (alternator3_volts > bus_volts) {
    bus_volts = alternator3_volts;
    power_source = "alternator3";
  }

  if (alternator4_volts > bus_volts) {
    bus_volts = alternator4_volts;
    power_source = "alternator4";
  }

  if (alternator5_volts > bus_volts) {
    bus_volts = alternator5_volts;
    power_source = "alternator5";
  }

  if (alternator6_volts > bus_volts) {
    bus_volts = alternator6_volts;
    power_source = "alternator6";
  }

  if (alternator7_volts > bus_volts) {
    bus_volts = alternator7_volts;
    power_source = "alternator7";
  }

  if (alternator8_volts > bus_volts) {
    bus_volts = alternator8_volts;
    power_source = "alternator8";
  }

  if (alternator9_volts > bus_volts) {
    bus_volts = alternator9_volts;
    power_source = "alternator9";
  }

  if (alternator10_volts > bus_volts) {
    bus_volts = alternator10_volts;
    power_source = "alternator10";
  }

  if ( EXT.getBoolValue() and ( external_volts > bus_volts) ) {
    bus_volts = external_volts;
  }

  bus_volts *=PWR;

  load += electrical_bus(bus_volts);
  load += avionics_bus(bus_volts);
  ac_bus(bus_volts);

  ammeter = 0.0;
# if ( bus_volts > 1.0 )load += 15.0;

  if ( power_source == "battery" ) {
    ammeter = -load;
  } else {
    ammeter = battery.charge_amps;
  }

  if ( power_source == "battery" ) {
    battery.apply_load( load, dt );
  } elsif ( bus_volts > battery_volts ) {
    battery.apply_load( -battery.charge_amps, dt );
  }

  ammeter_ave = 0.8 * ammeter_ave + 0.2 * ammeter;

  Amps.setValue(ammeter_ave);
  Volts.setValue(bus_volts);
  alternator1.apply_load(load);
  alternator2.apply_load(load);
  alternator3.apply_load(load);
  alternator4.apply_load(load);
  alternator5.apply_load(load);
  alternator6.apply_load(load);
  alternator7.apply_load(load);
  alternator8.apply_load(load);
  alternator9.apply_load(load);
  alternator10.apply_load(load);

  return load;
}

ac_bus = func(acv) {
  var ivn =getprop("controls/electric/inverter-switch");
  setprop("systems/electrical/ac-volts",ivn * (acv * 4));
}

electrical_bus = func(bv) {
    var bus_volts = bv;
    var load = 0.0;
    var srvc = 0.0;

    var f_pump0 = getprop("controls/engines/engine[0]/fuel-pump");
    var f_pump1 = getprop("controls/engines/engine[1]/fuel-pump");
    var f_pump2 = getprop("controls/engines/engine[2]/fuel-pump");
    var f_pump3 = getprop("controls/engines/engine[3]/fuel-pump");
    var f_pump4 = getprop("controls/engines/engine[4]/fuel-pump");
    var f_pump5 = getprop("controls/engines/engine[5]/fuel-pump");
    var f_pump6 = getprop("controls/engines/engine[6]/fuel-pump");
    var f_pump7 = getprop("controls/engines/engine[7]/fuel-pump");
    var f_pump8 = getprop("controls/engines/engine[8]/fuel-pump");
    var f_pump9 = getprop("controls/engines/engine[9]/fuel-pump");

    if(f_pump0) {
        setprop(outPut~"fuel-pump",bus_volts);
        load += f_pump0;
    } elsif(f_pump1) {
        load += f_pump1;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump2) {
        load += f_pump2;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump3) {
        load += f_pump3;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump4) {
        load += f_pump4;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump5) {
        load += f_pump5;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump6) {
        load += f_pump6;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump7) {
        load += f_pump7;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump8) {
        load += f_pump8;
        setprop(outPut~"fuel-pump",bus_volts);
    } elsif(f_pump9) {
        load += f_pump9;
        setprop(outPut~"fuel-pump",bus_volts);
    }

    setprop(outPut~"flaps",bus_volts);

    return load;
}

#### used in Instruments/source code
# adf : dme : encoder : gps : DG : transponder
# mk-viii : MRG : tacan : turn-coordinator
# nav[0] : nav [1] : comm[0] : comm[1]
####

avionics_bus = func(bv) {
  var bus_volts = bv;
  var load = 0.0;
  var srvc = 0.0;
  INSTR_DIMMER = getprop("controls/lighting/instruments-norm");
  EFIS_DIMMER  = getprop("controls/lighting/efis-norm");
  ENG_DIMMER   = getprop("controls/lighting/engines-norm");
  PANEL_DIMMER = getprop("controls/lighting/panel-norm");

  srvc = 0 + getprop("controls/electric/avionics-switch");
  load += srvc * 0.2;
  setprop(outPut~"efis-lights",(bus_volts * EFIS_DIMMER) * srvc);

  srvc=0+getprop("controls/lighting/instrument-lights");
  load +=srvc * 0.5;
  setprop(outPut~"instrument-lights",(bus_volts * INSTR_DIMMER) * srvc);
  setprop(outPut~"eng-lights",(bus_volts * ENG_DIMMER) * srvc);
  setprop(outPut~"panel-lights",(bus_volts * PANEL_DIMMER) * srvc);

  for(var i=0; i<size(switch_list); i+=1) {
    var srvc = getprop(switch_list[i]);
    load += watt_list[i] * srvc;
    setprop(outPut~output_list[i],bus_volts * srvc);
  }

  return load;
}

update_electrical = func {
  var scnd = getprop("sim/time/delta-sec");
  update_virtual_bus( scnd );
  settimer(update_electrical, 0);
}
