Witam!
Mam takie cos:
For[i = 1, i < 5, i++,
liczba = Random[Integer, {0, 36}];
Print[liczba]];
Chcialabym, zeby te liczby byly wyswietlane w roznych kolorach w zaleznosci od tego, co wypadnie. 0 - zielone, powiedzmy pozostale parzyste na czerwono, a nieparzyste na czarno. Czy moglby ktos dopisac do tego kodu formule, dzieki ktorej program bedzie to robil? Probowalam sama, ale mi nie wyszlo.
Dziekuje bardzo!
Program w Mathematice 4.1., wyswietlanie tekstu na kolorowo
-
- Użytkownik
- Posty: 8601
- Rejestracja: 1 maja 2006, o 20:54
- Płeć: Mężczyzna
- Lokalizacja: Kraków
- Podziękował: 47 razy
- Pomógł: 1816 razy
Program w Mathematice 4.1., wyswietlanie tekstu na kolorowo
Np. tworzysz listę z kolorami:
a następnie kolorujesz tekst wybierając przykładowo trzeci kolor z listy:
Kod: Zaznacz cały
Kolory = {Red, Blue, Green}
Kod: Zaznacz cały
Style[Tekst, FontColor -> Kolory[[3]]]
-
- Użytkownik
- Posty: 124
- Rejestracja: 10 paź 2008, o 22:54
- Płeć: Kobieta
- Podziękował: 46 razy
- Pomógł: 12 razy
Program w Mathematice 4.1., wyswietlanie tekstu na kolorowo
Szczerze mowiac nie dziala mi to. Pewnie to zle wpisuje. A moglbys to wplesc w moj kod? Nawet tylko dwa kolory, 0 zielone, reszta czerwona na przyklad, obojetnie, zebym tylko wiedziala jak to w calosci ma wygladac.
-
- Użytkownik
- Posty: 8601
- Rejestracja: 1 maja 2006, o 20:54
- Płeć: Mężczyzna
- Lokalizacja: Kraków
- Podziękował: 47 razy
- Pomógł: 1816 razy
Program w Mathematice 4.1., wyswietlanie tekstu na kolorowo
Przy wypisywaniu danych w pętli For funkcję Style trzeba wziąć w Print by całość się wyświetliła:
Kod: Zaznacz cały
For[i = 1, i < 5, i++, liczba = Random[Integer, {0, 36}];
If[liczba == 0, Kolor = Green, Kolor = Red];
Print[Style[liczba, FontColor -> Kolor]]]
-
- Użytkownik
- Posty: 124
- Rejestracja: 10 paź 2008, o 22:54
- Płeć: Kobieta
- Podziękował: 46 razy
- Pomógł: 12 razy
Program w Mathematice 4.1., wyswietlanie tekstu na kolorowo
Niestety nie dziala. Wyswietla "Style[13, FontColor -> Red]", itp. Moze wersja 4.1. nie rozumie slow takich jak Red, nie wiem. A mialbys na to jakis inny pomysl?
-
- Użytkownik
- Posty: 124
- Rejestracja: 10 paź 2008, o 22:54
- Płeć: Kobieta
- Podziękował: 46 razy
- Pomógł: 12 razy
Program w Mathematice 4.1., wyswietlanie tekstu na kolorowo
Super, udalo sie. Bardzo, bardzo dziekuje. Jakbys byl ciekawy, to u mnie zadzialalo takie cos:
For[i = 1, i < 5, i++, liczba = Random[Integer, {0, 36}];
If[liczba == 0, Kolor = RGBColor[1, 0, 0], Kolor = RGBColor[0, 1, 0]];
Print[StyleForm[liczba, FontColor -> Kolor]]]
Dziekuje bardzo!
For[i = 1, i < 5, i++, liczba = Random[Integer, {0, 36}];
If[liczba == 0, Kolor = RGBColor[1, 0, 0], Kolor = RGBColor[0, 1, 0]];
Print[StyleForm[liczba, FontColor -> Kolor]]]
Dziekuje bardzo!