[adiblol]

[Berserker]

@up
Dziala z pewnymi poprawkami.

@topic
Narazie usiluje napisac tak funkcje Goto(), zeby mogla przejsc cwiczenia "Stacje przekaznikowe" 1 i 2. Aktualnie robot pakuje sie centralnie w mine i probuje sprawic, by ja omijal. Jak ktos chce sie pobawic:

Kod:

int object::Goto(point pos) {     ipf(1000);     point center, dest[]; //punkty sciezki     point F, R, L, adest; //punkty docelowe     int list[], i;     float len; //odleglosc do nastepnego punktu     float lenstart;     float dir;     float orient;     center = position;     lenstart = 0.5; //odleglosc domyslna miedzy kolejnymi punktami     do     {         len = lenstart;         orient = getOrient(center, pos); //kierunek pozycji docelowej         F = getPos(center, orient, len); //oblicz pozycje w kierunku pozycji docelowej         if(OK(center, F) == true) //sprawdz, czy osiagniecie jej jest mozliwe         {             adest = F;         }         else         {             i = 0;             do             {                 i++;                 L = getPos(center, orient+i*5, len); //oblicz pozycje skierowana o 5dgr na lewo                 R = getPos(center, orient-i*5, len); //oblicz pozycje skierowana o 5dgr na prawo                 if(i >= 180/5) // jesli program zatoczy kolo                 {                     i = 0; //ustal mnoznik stopni na 0                     len += 0.5; //zwieksz odleglosc do kolejnego punktu o 0.5m                 }             }             while(OK(center, L) != true and OK(center, R) != true);             if(topo(L) < topo(R)) adest = L;             else adest = R;                     }         center = adest;         dest[sizeof(dest)] = adest; //dodaj nowy punkt do sciezki         if(sizeof(dest) > 9999) //jesli ilosc punktow w sciezce jest za duza         {             return 1; //przerwij         }             }     while(distance2d(center, pos) > 2);     dest[sizeof(dest)] = pos; //dodaj punkt o wspolrzednych punktu docelowego     i = 0;     while(distance2d(pos, position) > 1 and i < sizeof(dest))     {         adest = dest[i++]; //uzyskaj kolejny punkt sciezki         while(distance2d(position, adest) > 0.2) //i dojedz do niego         {             dir = direction(adest);             len = distance(position, pos);             len = len/5;             if(len > 1) len = 1;             //motor(1-dir/90, 1+dir/90);             turn(dir);             motor(len, len);         }     }     motor(0, 0);     return 0; } bool object::OK(point center, point dest) //sprawdzanie czy punkt jest osiagalny {     int list[];     float radius[];     object p;     list[Mine] = Mine;     radius[Mine] = 2.5;     p = search(Mine, dest);     if(p != null)     {         if(distance(p.position, dest) < radius[p.category]) return false;     }     return true; } point getPos(point center, float orient, float lenght) //otrzymaj punkt w danym kierunku {     point dest;     dest.x = center.x+cos(orient)*lenght;     dest.y = center.y+sin(orient)*lenght;     dest.z = topo(dest);     return dest; } float getOrient(point center, point dest) //uzyskaj kierunek {     float x, y;     float angle;     y = dest.y-center.y;     x = dest.x-center.x;     if(x == 0)     {         if(y > 0)         {             angle = 90;         }         else         {             angle = 270;         }     }     else     {         angle = atan(y/x);         if(x < 0)         {             angle += 180;         }     }     return angle; }

[sajmon313]

@up
Może dopisz komentarze w kodzie, coby był bardziej czytelny?
Chociaz ogólnikowo, do czego funkcja, do czego zmienna (przy jej deklaracji), itp.

[Berserker]

@up
Edytowalem poprzedni post, dodalem tez troche zmian, teraz robot zgrabnie omija miny i ladnie laduje w docelowym punkcie

[sajmon313]

teraz dobrze.

Ale w funkcji OK, dlaczego sprawdzasz tylko miny? A jeżeli będzie tam stała fabryka robotów? Albo królowa obcych?

Tylko dla miny znamy radius, dla innych obiektów trzeba będzie wyznaczyć eksperymentalnie.

i w ostatniej linii tej funkcji ja bym (tak dla pewności) dał:

Kod:

else return true;

[Berserker]

Cytat:

Ale w funkcji OK, dlaczego sprawdzasz tylko miny? A jeżeli będzie tam stała fabryka robotów? Albo królowa obcych?

Efekt tego, ze instrukcja search() nie wykrywa kategorii umieszczonych w tablicy jak radar(), trzeba napisac osobna funkcje.

Cytat:

Tylko dla miny znamy radius, dla innych obiektów trzeba będzie wyznaczyć eksperymentalnie.

Dla budynkow mozna wykorzystac powierzchnie potrzebna do budowy.

Cytat:

i w ostatniej linii tej funkcji ja bym (tak dla pewności) dał: Kod: else return true;

Ja nie dam, na to samo wychodzi a pozniej bedzie jeszcze mnostwo warunkow.

[adiblol]

Nie trzeba sprawdzić eksperymentalnie, jest taki fajny plik na stronie Epsiteca... http://www.epsitec.ch/colobot/program/prog058.txt

[gg]

a moze po kazdym "cyklu" znajdowania takiego punktu zrobic :

turn(direction(//nasz ce//.position));

a czy ktos wie jak napisac i odczytac wielolinijkowy plik by np. robic listy a'la tablice ?