W-36A

View previous topic View next topic Go down

W-36A

Post by Echo_Delta_Oscar on Mon Jun 13, 2011 4:29 pm

This is The last of a serie of warbirds I've been crafting lately. Itis powered by a single two bladed propeller driven by a RLW, and has two alternative jets with smoke varying according to throttle parametre.

The plane is designed to fly breakable and with limited fuel; it is inherently stable, though the margin is lower than I would like; I recommend to stay at 100% Throttle for a time frame as short as possible.



This version features the very same fly-by-wire I used on the A-28A.

Code:

Val
{   
   RollE(default=0,min=-25,max=25,step=4)
   RollW(default=0,min=-25,max=25,step=4)
   PBar(default=0,min=-30,max=30,step=4)
   Pitch(default=0,min=-30,max=30)
   Yaw(default=0, min=-20, max=20, step=2)
   Rudd(default=0, min=-20, max=20, step=0)
   Ster(default=0, min=-20, max=20, step=2)
   Trim(default=0, min=-360, max=360, step=0)
   Throttle(default=0, min=0, max=200000, step=0)
   Prop(default=45, min=45, max=65)
   Gear(default=0, min=0, max=1, step=0)
   Gear1(default=90, min=90, max=180)
   Conv(default=0, min=-90, max=20, step=0)
   ALVL(default=0, min=0, max=1, step=0)
   BRK(default=0, min=0, max=100, step=100)
   ABR(default=0, min=0, max=45, step=3)
   Smoke(default=1, min=1, max=4)
   Gtimer(default=0)
   Trig1(default=0, min=0, max=5000000, step=5000000)
   Trig2(default=0, min=0, max=5000000, step=5000000)
   Ex1(default=0, min=0, max=60, step=60)
   Ex2(default=0, min=0, max=60, step=60)
   Ex3(default=0, min=0, max=60, step=60)
   Ex4(default=0, min=0, max=60, step=60)
   Timer(default=0)

   
}

Key
{
   15:Throttle(step=4000)
   8:Throttle(step=-4000)
   7:Yaw(step=-2)
   9:Yaw(step=2)
   2:RollE(step=4), RollW(step=-4)
   3:RollE(step=-4), RollW(step=4)
   0:PBar(step=4)
   1:PBar(step=-4)
   16:BRK(step=10), ABR(step=15)
   
   
   
   
   
}

Body {
   Core(){
      N:Cowl(angle=-140, option=5, effect=#a000){}
      E:Cowl(angle=-120, option=3, effect=#a000){}
      W:Cowl(angle=-120, option=4, effect=#a000){}
      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}

      N:Weight(color=#304000){

      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}

      E:Frame(angle=120, option=1){
      E:Chip(angle=-120, color=#304000){S:Chip(angle=ABR, color=#304000){}S:Chip(angle=-ABR, color=#304000){}
      E:Chip(color=#000000){S:Chip(angle=ABR, color=#000000){}S:Chip(angle=-ABR, color=#000000){}N:Arm(power=Trig1, option=40000, color=#000000){}
      E:Frame(angle=Gear1, option=1){

      W:Cowl(angle=-179, option=5){}

      E:Wheel(brake=BRK, effect=2){}}
      E:Chip(angle=-4, color=#304000){S:Chip(angle=RollE, color=#304000){}N:Arm(power=Trig2, option=40000, color=#304000){}
      E:Chip(color=#000000){S:Chip(angle=RollE, color=#000000){}
      E:Chip(color=#304000){S:Chip(angle=RollE, color=#304000){}}}}}}}

      W:Frame(angle=120, option=1){
      W:Chip(angle=-120, color=#304000){S:Chip(angle=ABR, color=#304000){}S:Chip(angle=-ABR, color=#304000){}
      W:Chip(color=#000000){S:Chip(angle=ABR, color=#000000){}S:Chip(angle=-ABR, color=#000000){}N:Arm(power=Trig1, option=40000, color=#000000){}
      W:Frame(angle=Gear1, option=1){

      E:Cowl(angle=-179, option=5){}

      W:Wheel(brake=BRK, effect=2){}}
      W:Chip(angle=-4, color=#304000){S:Chip(angle=RollW, color=#304000){}N:Arm(power=Trig2, option=40000, color=#304000){}
      W:Chip(color=#000000){S:Chip(angle=RollW, color=#000000){}
      W:Chip(color=#304000){S:Chip(angle=RollW, color=#304000){}}}}}}}
      N:Weight(option=3, color=#304000){

      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}

      N:Weight(color=#304000){
      E:Jet(angle=119, power=Ex1, effect=Smoke){}
      W:Jet(angle=119, power=Ex2, effect=Smoke){}


      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}

      
      N:RLW(angle=90, power=Throttle){
      
      N:Cowl(angle=-120, option=5, color=#330000){}
      S:Cowl(angle=-120, option=5, color=#330000){}
      E:Cowl(angle=-120, option=5, color=#330000){}
      W:Cowl(angle=-120, option=5, color=#330000){}

      N:Trim(angle=-Prop, color=#403000){}S:Trim(angle=-Prop, color=#403000){}}}}}
      S:Frame(option=1){

      E:Cowl(angle=-120, effect=#a000){}
      W:Cowl(angle=-120, effect=#a000){}
      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}

      S:Frame(option=1){

      E:Cowl(angle=-120, color=#203000){}
      W:Cowl(angle=-120, color=#203000){}
      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}

      S:Frame(option=1){

      E:Cowl(angle=-120, color=#203000){}
      W:Cowl(angle=-120, color=#203000){}
      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}

      S:Trim(angle=90){S:Chip(angle=Yaw, color=#000000){W:Chip(color=#304000){N:RudderF(angle=-120, option=1){N:Wheel(angle=180, brake=Gear, effect=2){}}}}
      E:Frame(option=1){S:Chip(angle=Yaw, color=#304000){E:Chip(color=#000000){}}}}
      S:Frame(option=1){

      E:Cowl(angle=-120, color=#203000){}
      W:Cowl(angle=-120, color=#203000){}
      E:Cowl(angle=120, color=#000000){}
      W:Cowl(angle=120, color=#000000){}
      S:Cowl(option=1){
      S:Cowl(angle=-140, option=5, color=#203000){}
      E:Cowl(angle=-120, option=4, color=#203000){}
      W:Cowl(angle=-120, option=3, color=#203000){}
      S:Cowl(angle=140, option=5, color=#000000){}
      E:Cowl(angle=120, option=4, color=#000000){}
      W:Cowl(angle=120, option=3, color=#000000){}}

      W:Frame(angle=6, option=1){E:Trim(angle=Pitch, color=#304000){E:Chip(color=#000000){E:Chip(color=#304000){}}}}
      E:Frame(angle=6, option=1){W:Trim(angle=-Pitch, color=#304000){W:Chip(color=#000000){W:Chip(color=#304000){}}}}}}}}

}}

Script(){

   print 0,"Cleared to Proceed"
   print 1,"Warbirds Rule! Mass: ",_WEIGHT()," kg"
   print 2,"Power at ", Throttle/2000,"%"
   print 3,"Speed: ", _VEL()*3600/1852," knots, ",_VEL()," m/s"
   print 5,"Max Speed: 123 kts"," Cruise Speed: 84 kts @ 70% Throttle, 10 deg Trim"
   print 6," Fuel:",_FUEL(),", Fuel LVL: ",_FUEL()/748600,"%"
   print 7,"Heading: ",_TODEG(_AY())

   print 9,"Trim: ",Trim,", Rudder: ",Rudd

   print 15,"Route Home: ",90-_TODEG(_ATAN2(_Z(), _X())),", Distance Home: ", _LEN2(_Z(),_X()), " m, RUNWAY 09, 27, 5, 23, 6, 24, 14 and 32"
   print 16,"Route Base 2: ",90-_TODEG(_ATAN2(_Z()+540, _X()+2730)),", Distance Base 2: ", _LEN2(_Z()+540,_X()+2730), " m, Runway 09 and 27"
   print 17,"Route Base 3: ",90-_TODEG(_ATAN2(_Z()+900, _X()+840)),", Distance Base 3: ", _LEN2(_Z()+900,_X()+840), " m, Runway 09 and 27"
   print 18,"Route Base 4: ",90-_TODEG(_ATAN2(_Z()+120, _X()+4100)),", Distance Base 4: ", _LEN2(_Z()+120,_X()+4100), " m, Runway 09 and 27"
   print 19,"Route Carrier: ",90-_TODEG(_ATAN2(_Z()+2200, _X()+1200)),", Distance Carrier: ", _LEN2(_Z()+2200,_X()+1200), " m, Runway 09 and 27"
   print 20,"Route Base 5: ",90-_TODEG(_ATAN2(_Z()+490, _X()-1160)),", Distance Base 5: ", _LEN2(_Z()+490,_X()-1160), " m, Runway 09 and 27"
   print 21,"Route Base 6: ",90-_TODEG(_ATAN2(_Z()+760, _X()-4070)),", Distance Base 6: ", _LEN2(_Z()+760,_X()-4070), " m, Runway 09 and 27"
   print 22,"Route Base 7: ",90-_TODEG(_ATAN2(_Z()+3490, _X()-700)),", Distance Base 7: ", _LEN2(_Z()+3490,_X()-700), " m, Runway 13, 31, 9 and 27"
   print 10,"X:  ",_X(),",  Z: ",_Z()

   Prop=45+_VEL()/9*2

   ALVL=_MOD(ALVL+_KEYDOWN(13),2)

   if _KEY(0)>(0) & ALVL=(0) &_TODEG(_EZ())<(65) &_TODEG(_EZ())>(-65){
   Pitch=Pbar
   Trim=_TODEG(_AX())}

   if _KEY(1)>(0) & ALVL=(0) &_TODEG(_EZ())<(65) &_TODEG(_EZ())>(-65){
   Pitch=Pbar
   Trim=_TODEG(_AX())}

   if _KEY(0)=(0) & _KEY(1)=(0) & ALVL=(0) &_TODEG(_EZ())<(65) &_TODEG(_EZ())>(-65){
   Pitch=PBar+(-Trim+_TODEG(_AX()))/(1+_VEL()/50)}

   if _TODEG(_EZ())>(65){
   Pitch=Pbar}

   if _TODEG(_EZ())<(-65){
   Pitch=PBar}

   Gear=_MOD(Gear+_KEYDOWN(12),2)
   if Gear=(0){
   Gear1=Gear1-2}

   if Gear=(1){
   Gear1=Gear1+1
   BRK=BRK+1/4}

   if ALVL=(1){
   Yaw=Rudd
   Pitch=-Trim+_TODEG(_AX())
   RollE=-_TODEG(_AZ())-Yaw*2
   RollW=_TODEG(_AZ())+Yaw*2
   print 12,"AUTO LEVEL ON"}

   if ALVL=(1) & _KEY(9)>0{
   Rudd=Rudd+1/4}

   if ALVL=(1) & _KEY(7)>0{
   Rudd=Rudd-1/4}

   if ALVL=(1) & _KEY(0)>0{
   Trim=Trim-1/2}

   if ALVL=(1) & _KEY(1)>0{
   Trim=Trim+1/2}

   if ALVL=(0){
   print 12,"AUTO LEVEL OFF"}

   if _KEY(14)>(0){
   Gtimer=Gtimer+1}

   if _KEY(14)=(0){
   Gtimer=0}

   if Gtimer=(6){
   Trig1=4000000}

   if Gtimer=(12){
   Trig2=4000000
   Gtimer=0}


   if Throttle>(0){
   Smoke=1}

   if Throttle>(70000){
   Smoke=2}

   if Throttle>(150000){
   Smoke=3}

   if Throttle>(170000){
   Smoke=4}

   if Throttle>(0){
   Timer=Timer+1}

   if Timer>(0){
   Ex1=60
   Ex2=0}

   if Timer>(4){
   Ex2=60
   Ex1=0}
   
   if Timer>(8){
   Ex1=60
   Ex2=0}

   if Timer>(12){
   Ex2=60
   Ex1=0}

   if Timer>(16){
   Timer=0}

   if Throttle=(0){
   Ex1=0
   Ex2=0}
}
}
avatar
Echo_Delta_Oscar
Hover
Hover

Posts : 105
Join date : 2011-03-24

View user profile

Back to top Go down

Re: W-36A

Post by Sting Auer on Fri Jun 24, 2011 6:46 pm

Looks cool. I'll download it and try it out.


I love propeller aircraft in RC
avatar
Sting Auer
Hover
Hover

Posts : 170
Join date : 2010-09-19
Location : Aw crap i think I'm lost.

View user profile

Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum