Matematické Fórum

Zdravím,

na Ulož to jsem nahrál program.

Kombinací kláves control+R se spustí celý program.

Zdravím,
u počítače jsem málokdy, takže nemůžu odpovědět okamžitě.

Mě to spočítá:
Seznam([10,20,30,40,50,60],6);
Výsledek je:
[102030405060,102030406050,102030504060,102030506040, .... atd

Nepíšete místo nuly velké O?

↑ mák:
A v poradku,ja si klidne pockam jakmile budete mit cas.

Ještě mě napadlo,
v nastavení (Konfigurace programu) wxMaximy si zkontrolujte, zda máte povolené zobrazovat dlouhé výrazy.

https://uloz.to/xPR4yrAr/seznam-wxmx

jakmile to zmenim treba take tak uz to dela neplechu. Jak rikam, jednou to spocita a pak se zasekne a nepohnu s tim.

↑ mák:
Uz jsem s toho tulpachova ....
A jak tedy vypada cele zadani i s mod a mocninou? Uz se v tom asi placam. Omlouvam se.
Muzu jeste poprosit i s opakovanim?

Dá se to zobrazit i přímo jako matice:

Seznam(List):=maplist(lambda([w],eval_string(lreduce('concat,w))), permut(List))$

X: maplist(lambda([z],[z, z^32, mod(z^32, 965132)]), Seznam([65,65,65,65,82,82]))$

apply('matrix, X);

V prvním sloupečku je vygenerované číslo, v druhém jeho 32 mocnina a ve třetím je modulo 965132.

Ted me jeste napadlo.....kdyz bych chtela by mi mi to vypsalo kombinace  ze zadanych cisel  od prvniho cisla... 65^...6582...658282....65828265. ...atd. Az po tu hodnotu zadanych cisel tedy tady 6.  Je to teda uz hodne kombinaci . :-). Doufam ze jsem to popsala srozumitelne.

No ja koukam jak suva z nudly. :-))   Uzasny. ...smekam.
Takle pres maximu snad jde spocitat uplne vsechno...:-)

Zdravím,
já používám Ubuntu (Linux) a s tímto jsem se nesetkal. Předpokládám že máte Windows. Díval jsem se do repozitáře a je tam nová verze pro Windows (maxima-sbcl-5.38.1-win64.exe - doufám že řeší tento problém), zkuste program odinstalovat a nainstalovat tuto novou verzi.
Možná po odinstalování staré verze bude dobré Windows nějak vyčistit, aby nezůstalo něco v registrech, ale v tom se opravdu nevyznám.

Pokud by ani to nepomohlo, pak bych zkusil nějakou starší verzi. (5.37.3-Windows)
Je tam na výběr ze tří prostředí: sbcl, gcl a clisp. Určitě by mělo aspoň jedno jít.

Zdravím,
koukám asi nejsem moc náročný, ten program využíváte do maxima. Asi si brzo budete muset koupit stroj s větší pamětí a rychlejším procesorem. :-)

Funkce permut využívá rekurzi a při vyšších požadavcích přeteče zásobník (je moc náročná na paměť). Dá se nahradit funkcí permutations, která používá jiný způsob výpočtu, ale musíte počítat s tím, že s vyšším počtem hodnot nestoupá počet možností lineárně, ale mnohonásobně rychleji, takže to bude podstatně časově náročnější.

Upravený program (záměna funkce permut za permutations):

Seznam(List):=block([Pocet, Index, S:List, Q, N],
    Pocet: length(List),
    if is(Pocet>1) then (
        Index: makelist(i,i,1,Pocet),
        for i:2 thru Pocet do (
            N: full_listify(powerset(setify(Index),i)), 
            Q: maplist(lambda([z],  
                maplist(lambda([w],eval_string(lreduce('concat,
                    maplist(lambda([y],List[y]),w)))), full_listify(permutations(z)))), N), 
            S: cons(S,Q)
        )
    ), unique(sort(flatten(S)))
)$

Zbytek je stejný.

mák napsal(a):

Dá se to zobrazit i přímo jako matice:

Code:

Seznam(List):=maplist(lambda([w],eval_string(lreduce('concat,w))), permut(List))$

X: maplist(lambda([z],[z, z^32, mod(z^32, 965132)]), Seznam([65,65,65,65,82,82]))$

apply('matrix, X);

V prvním sloupečku je vygenerované číslo, v druhém jeho 32 mocnina a ve třetím je modulo 965132.

Mohu se prosim jeste zeptat? Lze u tohoto poslkladat vyskledky od nejmensiho? Treba vysledky modula.

↑ mák:

Dekuju moc!  Trosku jsem si uz i s tim pohrala.  Hledala jsem nejaky seznam prikazu ale nenasla jsem. :-( Jeste par dni a budu profik jako vy. :-))) no to asi ne. :-)