Freeman85 писал(а):Я вот никак не могу радар сделать, пожалуйста, кто нибудь киньте код Эксп. чипа.
Код: Выделить всё
N@HoloRadar
I@Bear1 Bear2 Bear3 Bear4 Bear5 Bear6 Bear7 D1 D2 D3 D4 D5 D6 D7 Yaw YawChasis MaxDist Active
O@X1 Y1 Z X2 Y2 X3 Y3 FadeMain FadeTarget Activate Thrust NT1 NT2 NT3 NT4 NT5 NT6
On = ((~Active&Active)&On?0:((~Active&Active)&!On?1:On))
interval(20)
Delta = angnorm($Yaw)
FadeMain = 80
FadeTarget = 10
Thrust = (On?1-Delta:0)
Theta1 = atan(130/D1)
Theta2 = atan(130/D2)
Theta3 = atan(130/D3)
Theta4 = atan(130/D4)
Theta5 = atan(130/D5)
Theta6 = atan(130/D6)
TChekc1=((Bear1<Theta1&Bear1>-Theta1)?1:0)
TChekc2=((Bear2<Theta2&Bear2>-Theta2)?1:0)
TChekc3=((Bear3<Theta3&Bear3>-Theta3)?1:0)
TChekc4=((Bear4<Theta4&Bear4>-Theta4)?1:0)
TChekc5=((Bear5<Theta5&Bear5>-Theta5)?1:0)
TChekc6=((Bear6<Theta6&Bear6>-Theta6)?1:0)
CurentD = (TChekc1?D1:TChekc2?D2:TChekc3?D3:TChekc4?D4:TChekc5?D5:TChekc6?D6:0)
NT1 = (Bear1>=0|Bear1<-60|D1>MaxDist?clk():0)
NT2 = (Bear2>=0|Bear2<-60|D2>MaxDist?clk():0)
NT3 = (Bear3>=0|Bear3<-60|D3>MaxDist?clk():0)
NT4 = (Bear4>=0|Bear4<-60|D4>MaxDist?clk():0)
NT5 = (Bear5>=0|Bear5<-60|D5MaxDist?clk():0)
NT6 = (Bear6>=0|Bear6<-60|D6>MaxDist?clk():0)
Counter += (On&Counter<50?1:(On&Counter>50?0:(!On?-Counter:0)))
Activate = (Counter==50?On:0)
X1 = sin(Yaw-YawChasis)*25
Y1 = cos(Yaw-YawChasis)*25
Z = -64
X2 = sin(Yaw-YawChasis) * (CurentD/(MaxDist/25))
Y2 = cos(Yaw-YawChasis) * (CurentD/(MaxDist/25))
X3 = (sin(Yaw-Bear7))*(D7/(MaxDist/25))
Y3 = (cos(Yaw-Bear7))*(D7/(MaxDist/25))
заспавнить проп, и аксисом приделать его к чемунибудь чтобы он мог крутица вокруг своей оси паралельно горизонту, поставить на него 7 бикон сенсоров так, чтобы они смотрели в 1 сторону на верх пропа поставить гироскоп. сбоку пропа прилепить трастер который будет крутить проп. я все делал на балке из феникс мода. также потребуется кнопка для включения всего устройства, константа и 7 таргет файндеров куда их ставить значения не имеет. также надо собрать "экран" радара он будет состоять из 3х холо эмитеров разного цвета которые нада расположить один в одном
Входы:
Bear1 Bear2 Bear3 Bear4 Bear5 Bear6 Bear7 к семи бикон сенсорам на входы беаринг (седьмой бикон сенсор нада подключить к отдельному такргет файндеру и сделать так чтобы он таргетил только локаторы...это будет отдельная точка на радаре которая будет отображаться через отдельный холо эмитер "С")
D1 D2 D3 D4 D5 D6 D7 тудаже тока на входы дистанс
Yaw на вход Yaw гироскопа который стоит на балке
YawChasis на вход Yaw гироскопа который стоит на корпусе всей конструкции
MaxDist к константе которая должна быть равна максимальной дистанции обнаружения цели у таргет файндеров (не ставьте значения больше 40000 глюков никаких не будет даже с числами 99999.....9 но это число влияет на масштаб картинки отображаемой радаром на "экране" соответственно чем больше число тем мельче все будет и тем труднее определить цель.)
Active к кнопке включения (снять галочку тогл)
выходы:
X1 Y1 к холоэмитеру (рекомендую зеленого цвета (далее З. ))
Z общая для всех холоэмитеров координата (подключать ко всем)
X2 Y2 к холоэмитеру (рекомендую красного цвета (далее К. ))
X3 Y3 к холоэмитеру (рекомендую синего цвета (далее С. ))
FadeMain к холоэмитеру "З"
FadeTarget к холоэмитеру "К" и "С"
Activate ко всем холоэмитерам на вход Activate
Thrust к трастеру на крутящемся пропе
NT1 NT2 NT3 NT4 NT5 NT6 к таргет файндерам на входы NextTarget (седьмой таргет файндер ненадо подключать к этому эксп чипу)
лично у меня этот радар с легкостью отображал до 25 целей одновременно =)