Forum studentów informatyki UE Wrocław
Forum studentów informatyki UE Wroclaw

AiSD - LOGO

farbowanyaniol - 2010-10-17, 19:16
Temat postu: LOGO
Czy ktoś może mi udzielić informacji jak pokolorować powierzchnię zawartą np. w kwadracie, żeby postał dajmy na to zamalowany kwadrat na zielono?
shawnzy - 2010-10-17, 19:25

musisz "wejść" żółwiem do tego kwadratu potem wpisujesz setfc nr, gdzie numer to liczba od 0 - 15, a potem FILL, np. setfc 5 FILL

http://davidlongman.com/l...NG%20COLORS.pdf

farbowanyaniol - 2010-10-17, 21:01

Jak zrobić dach domu? Załóżmy, że jedna kratka to 25. Jestem w miejscu gdzie już potrzebuję tylko ten szczyt dachu czyli prawe i lewe ramię trójkąta. Stoję w prawym górnym rogu dużego kwadratu na wprost (jak na początku). Co dalej? Wiem, że trzeba wykorzystać jakoś to pozycjonowanie żółwia ale nie wiem jak :-/
e^x - 2010-10-17, 21:10

Ogólna funkcja na trójkąt:
to trojkat :bok
repeat 3 [ fd :bok rt 120 ]
end

aniut - 2010-10-17, 23:06

a grupa 9 ma jakieś zadanie domowe z laborek? wiem że druga część ma dopiero w tym tygodniu, ale zadał coś pierwszej? :)
agnieszkaosw - 2010-10-18, 12:16

aniut, tak. mamy to samo co II grupa ;]
mówił o tym zresztą w poniedziałek na laborkach tydzień temu.

Sav1ola - 2010-10-18, 12:55

Agnieszka, mówisz o BO czy ASD?:P
agnieszkaosw - 2010-10-18, 17:24

Sav1ola, dzięki :oops: o BO, a na temat ASD nic nie wiem :-P

przepraszam.

Kociania - 2010-10-19, 15:44

Skąd ściągnąc LOGO?
shawnzy - 2010-10-19, 15:54

a.zietkowska, www.ue.wroclaw.pl/~shw/MicrosoftWindowsLogo.rar lub http://www.ue.wroclaw.pl/viewtopic.php?t=948 ,post Macioua.
killaruna - 2010-10-19, 23:58

Albo ze strony oficjalnej - mswlogo.en.softonic.com ;-)
Kocur - 2010-11-30, 20:25

jak tak patrzę na kalendarz na grudzień to tam jest coś o logo czy ktoś ma to już zrobione i by się podzielił?
e^x - 2010-11-30, 21:00

Kocur, to się na czas obudziłeś, moja wersja:

to przesun :poziom :pion
PU setxy(xcor+:poziom)(ycor+:pion) PD
end

to piramida :bok :ile
if :ile = -1 [stop]
rt 60 fd :bok/2 lt 60
piramida :bok/2 :ile-1
rt 60 fd :bok/2 lt 60 fd :bok lt 60 fd :bok rt 60
przesun 0 -:bok
piramida :bok/2 :ile-1
przesun 0 :bok
lt 120 fd :bok lt 60 fd :bok lt 60 fd :bok/2 lt 120
piramida :bok/2 :ile-1
rt 120 fd :bok/2 lt 120
end

Jerzu - 2010-11-30, 21:54

Kocur, a moja tak:

to 6kat :b
repeat 6 [fd :b rt 60]
end

to eleven :bok :ile
if :ile=0 [stop]
6kat :bok
6kat :bok/2 fd :bok/2 rt 60 fd :bok/2 lt 60 6kat :bok/2 rt 120
fd :bok/2 rt 60 fd :bok/2 lt 180 6kat :bok/2 lt 120 fd :bok/2 rt 60 fd :bok/2 rt 60

eleven :bok/2 :ile-1 fd :bok/2 rt 60 fd :bok/2 lt 60
eleven :bok/2 :ile-1 rt 120 fd :bok/2 rt 60 fd :bok/2 lt 180
eleven :bok/2 :ile-1 lt 120 fd :bok/2 rt 60 fd :bok/2 rt 60
end

nic - 2010-12-06, 01:05

czy ktoś umie pokolorować tą piramidę tak aby zrobić taki efekt? tzn chodzi mi o to ze niebieski kolor sie zmienia
e^x - 2010-12-06, 01:44

nic, koloruje się FILL, kolor jest zapisany w formacie [R G B] (red green blue) każdy parametr przyjmuje wartości 0-255 np. [0 0 0] to czarny, [255 255 255] to biały, [0 0 255]
to chyba powinien być "czysty" niebieski, więc zrób sobie funkcję która będzie ci kolorowała w danym odcieniu np. coś w stylu:
wywołujesz piramida(rozmiar , ile) , bierzesz sobie ograniczenie ,że gdy np. ile > 20 to wypisze np: "zbyt duża wartość rekurencji" [i tak w tym stuleciu by nie narysowało, a tak mamy ograniczenie dla funkcji] , gdy ile<20 to wykonujemy program
robisz sobie zmienną kolor:=0; przy każdym wejściu do procedury robimy kolor:=kolor+1; a przy kolorowaniu kolorujemy kolorem [255/20 * kolor 0 255] (akurat ta funkcja schodzi od błękitu do fioletu [ jeśli mi się barwy nie pomyliły ]).

Musisz sobie takie funkcje znaleźć aby ci odpowiadały np. od fioletu do błękitu i z głowy, znalezienie ich nie jest trudne.

maxdiaz - 2010-12-14, 11:59

http://eportal.ue.wroc.pl...kol.lab._B_.pdf

umie ktoś to zrobić albo niech pomoże ;d??

e^x - 2010-12-14, 18:28

Ładne
killaruna - 2010-12-14, 18:54

Ja zdążyłam zrobić 1 i zaczęłam 2, ale już mi czasu zabrakło ;P
e^x - 2010-12-14, 19:11

w Zad 1 należy napisać:

1. Procedura ustawiająca (przyda się i ułatwia pracę).
2. Procedura malująca mały, czerwony kwadrat (te na rogach).
3. Funkcja malująca trójkąt (ten z brzegu) i pobierająca liczbę 0 (pomaluj na czerwono) lub liczbę 1 (pomaluj na czarno)

Potem piszemy:

Procedura wzorek:
kwadrat, przesuń (w prawo), obróć, trójkąt(1), przesuń (w prawo), obróć, kwadrat, przesuń (w dół, w lewo), obróć, trójkąt(1), przesuń (w prawo), obróć, trójkąt(0), przesuń, obróć, trójkąt(0), przesuń (w prawo), obróć, trójkąt(1), przesuń (w dół, w lewo), kwadrat, przesuń (w prawo), obróć, trójkąt(1), przesuń (w prawo), obróć, kwadrat, przesuń (na górę w prawo)

I finał:

repeat 3[ repeat5[ wzorek, przesuń (w dół i na lewo) ]]

i masz algorytm, wystarczy przełożyć to na kod tylko

e^x - 2010-12-14, 19:18

W zad 2 napisałbym procedury

1. Małe T
2. Duże T
3. Przesuń
4. 3_T_male :
maleT, przesun, maleT, przesun, maleT
5. 3_duze :

duzeT, przesun, duzeT, przesun, duzeT

6.skrzydlo :

3_duze, przesun, 3_male

I finał:

skrzydło, przesuń, skrzydło, przesuń, skrzydło, przesuń


(pominąłem obroty, ale to widać kiedy należy je zastosować)

Kocur - 2011-01-17, 17:17

mógłby mi ktoś napisać jak stworzyć zegrarek zeby tylko wskazówka znikała jak się zmieni na następna sekundę
?

e^x - 2011-01-17, 17:18

czyść ekran po każdym rysowaniu
lukasznowak2803 - 2011-01-17, 17:26

to zegarek :a
repeat 60 [ circle :a fd :a bk :a rt 6 wait 60 clean]

Kocur - 2011-01-17, 17:36

dzięki ;)
aniut - 2011-01-17, 18:36

kurde kto by pomyslal ze to takie proste;p
minister - 2011-01-17, 19:06

ja mam trochę inaczej - z wymazywaniem wskazówki

to zegar :a
circle :a
fd :a bk :a
repeat 60[fd :a bk :a wait 60 pe fd :a bk :a ppt rt 6 ]
end

Kocur - 2011-01-17, 21:53

a wie ktoś jak wypisać liczby na odwrót np od najwiekszej do najmniejszej???
np. w tym przykladzie?

to naturalne :od :ile
repeat :ile[ print :od make "od :od+1]
end

Koordynator - 2011-01-17, 21:56

jednak nie.
Jerzu - 2011-01-17, 21:57

Kocur,

to liczby :od :ile
make "z :od+:ile-1
repeat :ile [print :z make "z :z-1]
end

Kocur - 2011-01-17, 22:04

Koordynator, w sumie Twoje rozwiaznie tez było dobre:)
Kocur - 2011-01-18, 13:20



Zadanie mniej więcej polega na tym jak widać na zdjęciu z tym, ze ma być sterowany ten wielokąt

to sze :d :n
...
end

gdzie :d to długośc boku a :n to ilość ścian. Z tymi kreskami po prawej stronie to ilość kresek maleje na każdej ścianie do 1 kreski jak jest kwadrat to zaczynamy od 4 kresek 3 kresek ...
jakby ktoś to potrafił to byłbym wdzięczny.

Jerzu - 2011-01-18, 13:35

Kocur,

to krecha :n :v
repeat :n [fd :v bk :v lt 90 pu fd 20 rt 90 pd] rt 90 pu fd :n*20 lt 90 fd :v pd
end

to ksztalt :b :d
make "z :b+1
repeat :b [krecha :z :d rt 360/:b Make "z :z-1]
end


Używane: ksztalt 6 100 - rysuje szcześciokąt o boku 100.

jopek379 - 2011-01-18, 17:55

super, działa!
umie ktoś jeszcze to z kółkami zrobić?

pit3r - 2011-01-18, 18:05

to wielokat :b :n
repeat :n [fd :b lt 270/:n pu fd 40 pd circle 40 pu fd -40 rt 270/:n rt 360/:n pd]
end

:b - dlugosc boku
:n - ilość kątów
40 - promień okręgu, wartość możesz sobie obrać dowolną

Koordynator - 2011-01-18, 22:21

pit3r, a te koła nie miały byc czasen równo na czubkach? : )
pit3r - 2011-01-18, 22:32

Koordynator, a ja już sam nie wiem - podobno zaliczał takie rozwiązanie dzisiaj :D
minister - 2011-01-18, 22:43

to wielokat :ile :bok :r
repeat :ile[pd fd :bok lt ((:ile-2)*360)/(4*:ile) pu fd :r pd circle :r pu bk :r rt ((:ile-2)*360)/(4*:ile) rt 360/:ile]
end

Koordynator - 2011-01-18, 22:56

No bo poprawna wersja jest imo trudna, jak na poziom tych zajęć - w sensie geometrycznie, jak nie znasz wzoru na sume kątów wewnętrznych wieloboku. Bez wikipedii pewnie sam bym nie zrobił tego ;p.

Powered by phpBB modified by Przemo © 2011 phpBB Group