Y-46 B

View previous topic View next topic Go down

Y-46 B

Post by Echo_Delta_Oscar on Mon Mar 05, 2012 6:00 am

The closest thing to a vertical control surface on this aircraft is the front wheel.

This aircraft was created with the sole purpose of adding a proper flying wing to my hangar; the landing gear is unstable and the plane takes off tail first, it is statically stable on all of the three axis, but I highly recommend to leave the AUTO LEVEL on (G) right after take-off.

Code:


Val
{
   RollE(default=0,min=-20,max=20,step=4)
   RollW(default=0,min=-20,max=20,step=4)
   PBar(default=0,min=-25,max=25,step=5)
   Pitch(default=0,min=-25,max=25)
   Yaw(default=0, min=-20, max=20, step=4)
   YawE(default=0, min=0, max=45, step=4)
   YawW(default=0, min=0, max=45, step=4)
   Flap(default=140, min=140, max=180, step=0)
   Ster(default=0, min=-20, max=20)
   Rudd(default=0, min=-20, max=20, step=0)
   Trim(default=0, min=-360, max=360, step=0)
   Throttle(default=0, min=0, max=100000, step=0)
   Engine(default=0, min=0, max=100000, step=0)
   Jet(default=0, min=0, max=100000)
   Gear(default=0, min=0, max=1, step=0)
   Gear1(default=90, min=90, max=180)
   Gear2(default=10, min=0, max=10)
   ALVL(default=0, min=0, max=1, step=0)
   BRK(default=0, min=0, max=200, step=200)
   ABR(default=0, min=0, max=20, step=2)
   Smoke(default=1, min=1, max=4)
   Efficiency(default=0)

   
}

Key
{
   15:Throttle(step=1000)
   8:Throttle(step=-1000)
   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){}
      N:Cowl(angle=40, option=5, effect=#a000){}
      E:Cowl(angle=60){E:Cowl(angle=120){}}
      W:Cowl(angle=60){W:Cowl(angle=120){}}
      E:Cowl(angle=120){N:Cowl(option=3){}}
      W:Cowl(angle=120){N:Cowl(option=4){}}
      S:Cowl(){
      S:cowl(angle=-140, option=5, effect=#a000){}
      E:cowl(angle=-120, option=4, effect=#a000){}
      W:cowl(angle=-120, option=3, effect=#a000){}
      S:cowl(angle=20, option=5, color=#a00000){}
      E:Cowl(angle=60){S:cowl(angle=20, option=5, color=#a00000){}
      E:Cowl(angle=120){S:cowl(angle=5, option=5, color=#a00000){}}}
      W:Cowl(angle=60){S:cowl(angle=20, option=5, color=#a00000){}
      W:Cowl(angle=120){S:cowl(angle=5, option=5, color=#a00000){}}}}

      N:Frame(angle=150, option=1){N:Weight(name=Contr, angle=-150, option=1){
      N:TrimF(angle=90, option=1){N:RudderF(angle=Gear1, option=1){N:TrimF(angle=Ster, option=1){N:Wheel(angle=180, brake=Gear, effect=2){}}}}
      N:Frame(angle=-150, option=1){N:Jet(angle=-120, power=Jet, effect=Smoke){}}
      S:Frame(option=1){
      E:Rudder(angle=15){S:Chip(angle=Pitch){}N:Chip(angle=Flap){}
      E:Chip(){S:Chip(angle=Pitch){}N:Chip(angle=Flap){}
      E:Frame(angle=-Gear1, option=1){W:TrimF(angle=-Gear2, option=1){E:RudderF(angle=120){E:Wheel(brake=BRK, effect=2){}}}}
      E:Chip(){S:Chip(angle=Pitch){}N:Chip(angle=Flap){}
      E:Chip(){S:Chip(angle=YawE){}S:Chip(angle=-YawE){}
      E:Chip(){S:Chip(angle=YawE){}S:Chip(angle=-YawE){}
      E:Chip(){S:Chip(angle=RollE){}}}}}}}
      W:Rudder(angle=-15){S:Chip(angle=Pitch){}N:Chip(angle=Flap){}
      W:Chip(){S:Chip(angle=Pitch){}N:Chip(angle=Flap){}
      W:Frame(angle=-Gear1, option=1){E:TrimF(angle=Gear2, option=1){W:RudderF(angle=-120){W:Wheel(brake=BRK, effect=2){}}}}
      W:Chip(){S:Chip(angle=Pitch){}N:Chip(angle=Flap){}
      W:Chip(){S:Chip(angle=YawW){}S:Chip(angle=-YawW){}
      W:Chip(){S:Chip(angle=YawW){}S:Chip(angle=-YawW){}
      W:Chip(){S:Chip(angle=RollW){}}}}}}}
      }}}

}}

Script(){

   print 0,"Cleared to Proceed"
   print 1,"Warbirds Rule! Mass: ",_WEIGHT()," kg"
   print 2,"Thrust at ", Throttle/1000,"%, Efficiency: ",Efficiency,"%"
   print 3,"Speed: ", _VEL()*3600/1852," knots, ",_VEL()," m/s"
   print 5,"Max Speed: 130 kts, without ordnance"
   print 6," Fuel:",_FUEL(),", Fuel LVL: ",_FUEL()/595000,"%"
   print 7,"Heading: ",_TODEG(_AY())

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

   print 15,"Home: Route: ",90-_TODEG(_ATAN2(_Z(), _X())),", Dist: ", _LEN2(_Z(),_X()), " m"
   print 16,"Arrow Keys for Pitch/Trim and Roll"
   print 17,"A/D for Yaw and auto Rudder"
   print 18,"W/S for throttle control"
   print 19,"F to retract/deploy landing gear"
   print 20,"G to toggle AutoLevel"

   Engine=Throttle-_VEL()*90-_Y()*40
   Jet=Engine

   if Throttle=(0){
   Efficiency=0}

   if Throttle>(0){
   Efficiency=Engine/Throttle*100}

   if Throttle>(0) & Engine<(200){
   Jet=200}

   YawE=Yaw+ABR-_VX(Contr)/2
   YawW=-Yaw+ABR+_VX(Contr)/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)

   Flap=140+_VEL()/2

   if Gear=(0){
   Gear1=Gear1-1
   Gear2=Gear2+1/3
   Jetang=Jetang-1
   Ster=Yaw}

   if Gear=(1){
   Gear1=Gear1+1
   Gear2=Gear2-1/3
   Jetang=Jetang+2
   Ster=0
   BRK=BRK+1}

   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){
   Rudd=0
   print 12,"AUTO LEVEL OFF"}

   if _KEY(5)>(0){
   _SPLIT(Tank1)}

   if Throttle>(0){
   Smoke=1}

   if Throttle>(14000){
   Smoke=2}

   if Throttle>(30000){
   Smoke=3}

   if Throttle>(34000){
   Smoke=4}

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

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

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

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

   if Timer>(16){
   Timer=0}

   if Throttle=(0){
   Ex1=0
   Ex2=0
   Ex3=0
   Ex4=0}


   if _KEY(6)>(0){
   _BYE(Tank)}

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

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

   if Gtimer=(2){
   Trig1=4000000}

   if Gtimer=(4){
   Trig2=4000000}

   if Gtimer=(6){
   Trig3=4000000}

   if Gtimer=(8){
   Trig4=4000000
   Gtimer=0}

}


I am currently testing different sweepback angles to look for improvements in overall stability and control.
avatar
Echo_Delta_Oscar
Hover
Hover

Posts : 105
Join date : 2011-03-24

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