Matematické Fórum

↑ vlado_bb:

Ano, presne to potrebuju. Zjistit x

↑ ket:

Ahoj.

Ale aj napríklad

Sú to všetky čísla, ktoré po delení piatimi dajú zvyšok dva.

(Ak sa teda nemýlim.)

↑ vlado_bb:

Takze vlastne nejde presne urcit jedno cislo protoze tech cisel delitelnych ted peti se zbytkem dve je vice. Tedy u meho prikladu je potreba si vypsat vsechny cisla delitelna 220 a pridat si zbytek 185. Pak uz si jen vybrat :-) je tak?

↑ vlado_bb[/re[re]p519627:

Jaj..... u mensich cisel to problem neni,ale kdyz to konecne cislo ma byt az cislo je na napr 25^12 tak se upisu. Neni nejaky zpusob kde zadam cislo napr. 5  a oni mi vyjedou cisla 5,10,15 atd?

↑ vlado_bb:


???

↑ vlado_bb:

No dekuji za rady,ale moc mi v podstate nepomohly. :-)

↑ vlado_bb:

Dobra tedy. Tohle jsem pochopila.
Ale mam jeste jednu otazku. Je moznost nejakeho programu do ktereho zadam priklad kombinace cisel napr.  123*5=
a vypise vsechny mozne vysledky?
tedy   
123*5=615
132*5=660
213*5 atd,,,,

Dekuju,to je super. :-)
A slo by i slozitejsi priklad s kombinaci cisel? S vypsanymy vysledky. Treba kombinace cisel 1,2,3,4,5,6 to cele v mocnine 32 : 965132   tedy: 123456^32:965132
132456^32:965232 atd....nebo misto delena modulo.1,2,3,4,5,6^mod965132 .  Jedno nebo druhe. Radeji bych za modulo.
Tak abych si hodnoty cisel mohla i menit. Jde o cisla ponekud vyssich hodnot co ja potrebuju.
....slo by to? Nebo uz bych chtela moc? :-) 
Ale jinak strasne moc dekuju vsem  za pomoc!! Kde ja se hrabu na Vase znalosti. :-(

↑ mák:

Ja se omlouvam,ale zacatek bych jeste pochopila....ale. Asi budu potrebovat vetsi pomoc. ;-)

Tak neco se mi povedlo :-))  Jeste chvilicku budi zkouset... Pak se ozvu. Moooc dekuju

Zdravím,
webové rozhraní Maximy má nějaké limity a to na čas výpočtu, velikost výstupu (počet stránek) a asi další.
Nejlepší je asi stáhnout program a nainstalovat si jej na svém počítači:  Zdroj
tam je také podrobný manuál (má více jak 1000 stránek v pdf)

Jinak jednoduché návody pro začátek tady: 1, 2, 3, 4.
Jinak Google určitě poradí jak dál.

Jak vypsat obojí?
Jde to, ale momentálně mě nefunguje webové rozhraní pro odkaz.
Takže napíšu přímo program:

Nejprve předdefinovaná funkce, kterou budu volat:

Seznam(List,N):=block([S],
    S: full_listify(powerset(setify(List),N)),
    sort(flatten(maplist(lambda([z],maplist(lambda([w],eval_string(lreduce('concat,w))),permut(z))),S)))
);

Takhle udělám výpis kombinací šestimístných čísel ve kterých se neopakují číslice:

Seznam([1,2,3,4,5,6],6)

Takhle jejich mocninu - bude to příliš veliké pro zobrazení, takže se to asi nezobrazí, ale vypočítá - výsledek se uloží v proměnné X (s proměnou X můžu dále pracovat). Nechám si zobrazit pouze první položku  :

X: Seznam([1,2,3,4,5,6],6)^32;
X[1];

No a zobrazit oba dva údaje se dá udělat takto, opět výraz je moc dlouhý, takže jej uložíme do proměnné X a zobrazíme pouze první položku:

X: map(lambda([z],[z, mod(z, 965132)]), Seznam([1,2,3,4,5,6],6)^32);
X[1];

Pokud jej budu chtít vypsat všechny, pak pomocí smyčky jej nechám vypsat postupně po jednom:

X: map(lambda([z],[z, mod(z, 965132)]), Seznam([1,2,3,4,5,6],6)^32);
for z in X do print(z);

Pokud nebudu chtít mít omezení na velikost zobrazeného čísla na 80 znaků, pak použiji ascii výstup (pozor - výstup bude delší a méně přehledný):

set_display('ascii);

A vrátím to takto:

set_display('xml);

Samozřejmě lze také takto obrovské výstupy posílat místo na obrazovku rovnou do souboru....

Prosim radu, dyz zadam prilad do programu Maxima
X: map(lambda([z],[z, mod(z, 965132)]), Seznam([1,2,3,4,5,6],6)^32);
X[1];

tak mi vyskoci misto vysledku toto:
(X)  [Seznam([1,2,3,4,5,6],6),mod(Seznam([1,2,3,4,5,6],6),965132)]^[32,32]
[Seznam([1,2,3,4,5,6],6),mod(Seznam([1,2,3,4,5,6],6),965132)]" "
[32,32]" "


nebo napise
done

Nechce mi to spocitat. A dela to i u jinyc prikladu, vzdy rekne ze pocita a pak bum a tohle. Proc to dela? Moc dekuji

↑ mák:

Tak na poprve to slo bez problemu,jakmile jsem zmenila hodnotu cisel uz mi naskocilo

(X) [ ]
done

A tak to dela hodne casto. :-(