[Berserker]

Ten program to bardziej prezentacja, jak dokladnie mozna w cokolwiek wycelowac. Za bardzo komentowac go nie musze, jest nawet jak na mnie czytelny.

Kod:

extern void object::Sentry() {     object p, rep, station;     float speed, maxSpeed, angle, spin;     float time, dist, dir, delay, r;     point dest, center;     int i;     int list[];     bool clear;     i = 0;     list[i++] = AlienAnt;     list[i++] = AlienWorm;     list[i++] = AlienSpider;     list[i++] = AlienWasp;     center = position;     time = abstime();     maxSpeed = 0.5;     rep = radar(RepairCenter);     station = radar(PowerStation);     while(true)     {         aim(0);         motor(0, 0);         check("energy", 0.2, station);         check("shield", 0.5, rep);         if(distance(center, position) > 2)         {             errmode(0);             goto(center);             errmode(1);         }         while(radar(list, 0, 360, 0, 60) != null)         {             p = radar(list);             dest = Dest(p);             dir = Dir(dest);             angle = Aim(dest);             spin = dir/90;             if(abs(spin) > maxSpeed) spin = spin/abs(spin)*maxSpeed;             motor(-spin, spin);             dist = distance(dest, position);             delay = dist/45+0.2;             if(p.category == AlienWasp) delay = 0.2;             aim(angle);             if(dist < 45)             {                 aim(angle);                 if(abs(spin) < 0.1 and abs(angle) <= 20)                 {                     if(abstime()-time > delay)                     {                         fire(0.2);                         time = abstime();                     }                 }             }         }     } } float object::Angle(point dest) {     float dist, deltaH;     float angle;     dist = distance(position, dest);     deltaH = dest.z - (position.z+1);     angle = asin(deltaH/dist);     return angle; } float object::Aim(point dest) {     float angle;     angle = Angle(dest) * abs(cos(roll)) - pitch  * abs(cos(roll));     return angle; } float object::Dir(point dest) {     float dir, angle;     dir = direction(dest);     angle = dir - (Angle(dest)-pitch) * sin(roll);     return angle; } point object::Dest(object p) {     ipf(1000);     float len, alfa;     float vo, vb, dist, deltaH;     float a, b, c, delta;     point dest;     vo = velocity(p);     vb = 53;     if(vo == 0)     {         dest = p.position;         return dest;     }     deltaH = p.altitude;     dist = distance2d(position, p.position);     alfa = abs(p.orientation-(direction(p.position)+orientation));     a = 1-pow(vb/vo, 2);     b = cos(alfa)*dist;     c = pow(dist, 2);     delta = pow(b, 2)-4*a*c;     if(delta >= 0) len = (-b-sqrt(delta))/(2*a);     else len = -b*0.5/a;     dest.x = p.position.x+cos(p.orientation)*len;     dest.y = p.position.y+sin(p.orientation)*len;     dest.z = topo(dest)+deltaH;     return dest; } float velocity(object p) {     point start;     float time, dtime, dist;     start = p.position;     time = abstime();     wait(0.01);     dist = distance2d(start, p.position);     dtime = abstime()-time;     return dist/dtime; } void object::check(string type, float level, object p) {     if(p == null) return;     int r;     if(strfind(type, "energy") != nan)     {         if(energyCell != null and energyCell.category == PowerCell and energyCell.energyLevel < level)         {             if(p.category == PowerStation)             {                 errmode(0);                 r = goto(p.position);                 if(r != 0)                 {                     errmode(1);                     return;                 }                 errmode(1);                 while(energyCell.energyLevel < 1);             }         }         return;     }     if(strfind(type, "shield") != nan)     {         if(shieldLevel < level)         {             if(p.category == RepairCenter)             {                 errmode(0);                 r = goto(p.position);                 if(r != 0)                 {                     errmode(1);                     return;                 }                 errmode(1);                 while(shieldLevel < 1);             }         }     }     }

- Program jest bardzo skuteczny, a przy tym niesamowicie energooszczedny. Jakby ktos sie jeszcze niedomyslil - program jest dla robotow stojacych w miejscu.
Mile widziana konstruktywna krytyka.
@edit
Zmienilem sposob obliczania kata miedzy linia przecinajaca robota oraz cel i plaszczyzna pozioma (czyli po prostu kata do celowania ), a dokladniej arcus tangens na arcus sinus. Powodem jest teoretycznie blad, a w praktyce przesladowania Feara ktory mi chyba nie dalby spokoju z tym Tangens kata 90/270/-90/-3690/n*180+90° nie istnieje, wiec jesli sprobuje sie go uzyskac za pomoca funkcji atan() to wywala dzielenie przez 0.

[Bartek c++]

A moze fire(0.1); zamiast 0.2 bedzie mniaj energi zurzywac.

// Ty patrzysz na swojego posta po napisaniu? - colobotwymiiata

[Berserker]

Cytat:

A moze fire(0.1); zamiast 0.2 bedzie mniaj energi zurzywac.

Im dluzsza salwa tym wieksza szansa na trafienie - istnieje zawsze ryzyko, ze jakas stala pomylilem (np predkosc pocisku), 0.2 ma wieksza gwarancje, ze taka osa przetnie strumien.

Audiotele:
Kto zgadnie, gdzie i jakie 2 bledy matematyczne popelnilem w programie, ktore 'niweluja" sie nawzajem i sprawiaja, ze program dziala tak jak to bylo zamierzone, ten dostanie dedykacje w postaci losowo wybranej emotki w nieokreslonym poscie po uplynieciu nieustalonego terminu.

[FE4R]

Może moja wypowiedź nie będzie bardzo konstruktywna, ale przynajmniej będzie o czym gadać.

Po pierwsze Twój cienki program przegrał z moim super ultra świetnym programem dla osy, która leci 50 metrów nad ziemią. XD


Mam jednak kilka pytań dotyczących samego kodu programu (w stylu pipoka )

Kod:

bool clear;

Zastanawia mnie deklaracja tej zmiennej, która, o ile mnie wzrok nie myli, nie została nigdzie użyta.

Kod:

list[i++] = AlienAnt; list[i++] = AlienWorm; list[i++] = AlienSpider; list[i++] = AlienWasp;

Możnaby AlienEgg dodać do listy.

Kod:

maxSpeed = 0.5;

Czy mam to interpretować jako maksymalna prędkość obrotu? o_o; Za bardzo nie wiem, do czego ta stała służy i skąd się wzięła.

Kod:

aim(0); motor(0, 0);

Nie wiem, czy umieszczanie tego wewnątrz pętli while(true) jest dobrym rozwiązaniem, szczególnie dla programu obronnego.

Kod:

if(distance(center, position) > 2)         {             errmode(0);             goto(center);             errmode(1);         }

Rozumiem, że to ma trzymać robota w jednej pozycji, gdy działające na niego siły są zbalansowane? Znaczy się - to jest raczej pewne, że robot będzie stał w miejscu, chyba, że umieści się go na tak pochyłym terenie, że będzie zjeżdżał. Wtedy bez sensu używać instrukcji goto(); W ogóle bez sensu umieszczać robota na tak pochyłym terenie.

Kod:

while(radar(list, 0, 360, 0, 60) != null)

60 metrów to za mało. Według mnie. Zrobiłem eksperyment, w którym osa potrafi pokonać 45 metrów, zanim robot Osłaniacz włączy osłonę (a wykrył osę na 70 metrze). 60 metrów strefy wykrywania to ograniczanie możliwości robota i jego zasięgu ~40 metrów. Na Twoim miejscu stworzyłbym pętlę wykrywającą wszystkie obiekty oraz if() filtrujące dystans do wroga.

Kod:

delay = dist/45+0.2;

No comprende. Te stałe need to be explained.

Kod:

aim(angle); if(dist < 45) aim(angle)

Po co aimować 2 razy?

Kod:

vo = velocity(p); vb = 53; delta = pow(b, 2)-4*a*c; if(delta >= 0) len = (-b-sqrt(delta))/(2*a); else len = -b*0.5/a;

Skąd wziąłeś stałe 53, 4 oraz 0.5?

Kod:

void object::check(string type, float level, object p) ...

Bardzo spodobał mi się sposób z łańcuchami, co jednak możnaby ulepszyć. Jak na razie funkcja ma do wprowadzenia 3 argumenty. Łańcuch mógłby działać na zasadzie słowa kluczowego, automatycznie sprawdzającego poziom czegokolwiek(temperature, energyLevel, shieldLevel). Mam na myśli np.:

Kod:

void object::Recharge(string key) {     if(strfind(key, "") == nan) return;     else     {         if(key == "energy")         {             if(energyCell == null || energyCell.energyLevel < 0.3)             {                 /* instrukcje */             }         }                 if(key == "shield")         {             /* instrukcje */         }     } }

[Berserker]

Cytat:

Zastanawia mnie deklaracja tej zmiennej, która, o ile mnie wzrok nie myli, nie została nigdzie użyta.

Pozostalosc po sam nie pamietam czym. Pewnie ten program to przerobka programu do zabijania obcych na gorzystym terenie, ktory kiedys napisalem, a przez lenistwo nie usunalem wszystkich pozostalosci po sprawdzaniu widocznosci celu.

Cytat:

Możnaby AlienEgg dodać do listy.

Moznaby, ale ten program zostal napisany uwzgledniajac wszelkie ograniczenia fabularne - zalozylem, ze jajo rzadko spada z nieba tuz przed dzialo robota.

Cytat:

Czy mam to interpretować jako maksymalna prędkość obrotu? o_o; Za bardzo nie wiem, do czego ta stała służy i skąd się wzięła.

Przyjemnie sie oglada takiego powoli obracajacego sie robota, podczas gdy mrowki sraja ze strachu przed czekajaca je zaglada

Cytat:

Nie wiem, czy umieszczanie tego wewnątrz pętli while(true) jest dobrym rozwiązaniem, szczególnie dla programu obronnego.

Znaczy co, robot ma sie nonstop obracac?

Cytat:

Rozumiem, że to ma trzymać robota w jednej pozycji, gdy działające na niego siły są zbalansowane?

Nie, to jest polecenie powrotu do ustalonej pozycji po naprawieniu/naladowaniu sie.

Cytat:

60 metrów to za mało. Według mnie. Zrobiłem eksperyment, w którym osa potrafi pokonać 45 metrów, zanim robot Osłaniacz włączy osłonę (a wykrył osę na 70 metrze). 60 metrów strefy wykrywania to ograniczanie możliwości robota i jego zasięgu ~40 metrów. Na Twoim miejscu stworzyłbym pętlę wykrywającą wszystkie obiekty oraz if() filtrujące dystans do wroga.

Oslaniacz oslaniaczem, zanim oslaniacz wlaczy oslone dzialo obroci sie 2 razy.
A uzywajac petli while() unikam chociazby sprawdzenia, czy obcy sa na mapie.

Cytat:

No comprende. Te stałe need to be explained.

Bazowy czas 0.2s+czas wynikajacy ze stosunku odleglosci do maksymalnego zasiegu dziala. Proste jak drut.

Cytat:

Po co aimować 2 razy?

Zanim z poziomu 0 lufa podniesie sie o 20°, bedzie potrzebny np kat 15°.

Cytat:

Skąd wziąłeś stałe 53, 4 oraz 0.5?

Jesli chodzi o 53 - predkosc pocisku, ktora liczylem na biednych pajaczkach z cwiczen. Jesli chodzi o dwie pozostale "stale" - wlasnie skompromitowales sie jesli chodzi o twoja znajomosc matematyki

Cytat:

Bardzo spodobał mi się sposób z łańcuchami, co jednak możnaby ulepszyć. Jak na razie funkcja ma do wprowadzenia 3 argumenty. Łańcuch mógłby działać na zasadzie słowa kluczowego, automatycznie sprawdzającego poziom czegokolwiek(temperature, energyLevel, shieldLevel)

Program zostal napisany pod moje potrzeby, nie by uszczesliwic ludzkosc Ja jak buduje sobie baze np podczas misji, to przypisuje kazdemu robotowi jedna stacje energetyczna. Dlatego np nie aktualizuje zmiennej zawierajacej info dot stacji energetycznej. Jesli chodzi o poziom - o wiele latwiej zmienia sie jesli jest na poczatku programu, a nie gdzies w funkcjach.

Cytat:

Słaby jestem z geometrii, to nawet nie spróbuję.

Ja sam nie rozumiem na czym polega ten blad ani jakim cudem on nie psuje dzialania programu. Ale sprawdze, kto ma gotowe wzory na liczenie wszystkiego co tu jest badz postara sie sam policzyc
@screen
Dzielenie przez 0? O_O Trzeba bedzie przerzucic sie na sinusy - tangens nie ma wartosci dla kata 90/270° i wywala wlasnie dzielenie przez 0

Cytat:

Tak jak w jednej funkcji użyłeś ipf(); tylko dlatego, że zadeklarowałeś dużo zmiennych, mimo, że nie zajmują one pamięci, aż do nadania im wartości, natomiast w funkcji liczącej dystans już ipf(); nie użyłeś.

1) Gdzie jest jakas funkcja liczaca dystans? O_O
2) W funkcji liczacej pozycje jest duzo obliczen - Zawsze to troche pamieci i czasu zajmuje.

[adiblol]

Jeśli chcesz szybsze skręcanie, skorzystaj z buga w funkcji turn
http://www.colobot.yoyo.p...topic.php?t=138

[Berserker]

@up
Ta funkcja jest strasznie niedokladna

[adiblol]

To można najpierw zgrubnie funkcją szybkiego skrętu, a później dokładnie normalnym turn

[FE4R]

[Berserker]

Od gory do dolu:

Cytat:

W innym programie narzekałem, że nie da się prędkości dokładnie obliczyć.

Widzisz jednak, ze sie da.

Cytat:

Zamiast (pośrednio) krytykować mój sposób Zakuj Zdaj Zapomnij, to powiedz, co to jest. ^_^ W końcu to Twój program!

Trojmian kwadratowy... jeszcze jakies pytania?

Cytat:

Ale najpierw się musi podnieść o 20 stopni, bo tak rozkazała instrukcja, a dopiero potem się obniży do 15 stopni. Na jedno wyjdzie.

Ale jesli dam 1x ustawienie wysokosci lufy, to jednak robot wykona strzal jesli cel bedzie w zasiegu. Wykonanie niecelnego strzalu to badz co badz 0.2s straty. A wiele razy takie 0.2s uratowalo mi robota

Cytat:

Nie wiem, czy tak szybko się obróci o 180 stopni? A sprawdzenie, czy obcy są na mapie byłoby dobrym pomysłem, chociażby dlatego, że wtedy możnaby wyłączyć program.

Robot na kolach bez probemu sie obroci o 180°.
Program z zalozenia ma byc taki, ze wlaczasz i nie obchodzi cie co sie stanie z tym robotem. Jesli obcych nie ma na mapie to po cholere budowac dzialo?

Cytat:

Wystarczy, że non-stop liczy kąt potrzebny do obrotu. Reszta powinna pójść gładko, nawet z użyciem motor();

No patrz, efekt ten sam, a pare obliczen mniej...

Cytat:

Dziwną masz wersję gry w takim razie...

To bylo takie eufemistyczne wyrazenie, ze sytuacja w ktorej jaja obcych pojawiaja sie w srodku bazy jest conajmniej glupia.

[Bartek c++]

zrobilem kiedys prostszy program i tak samo skuteczny o nazwie "robotobronny".

[Berserker]

@up
Faktycznie, nazwa najlepiej definiuje skutecznosc programu...

Jesli chodzi o skutecznosc to niewiele mozna poprawic w wiekszosci programow, tutaj jedynie dodalem porzadny system celowania zeby osy zestrzeliwywac. Za to marnuje tak malo energii, ze uzyty w dziale organicznym idzie do stacji energetycznej srednio co 0.5h przy ciaglym nadchodzeniu mrowek.