Hali!

Bocs, matek tudasom mar megkopott a suli ota, de azt irtad az elejen,
hogy m db n elemu tomb. Ha jol emlexem csak az tomoritheto, amiben
van redundancia. (A permutacios abrazolas nem tomorites, (a klasszikus
ertelemben) hanem mas modon valo abrazolas).
Itt egy tombben nincs redundancia (hacsak nem mas bithosszal tomorited,
mint amivel ertelemezed feltolteskor) viszont keresztbe valoszinuleg van.
Minden tomb x. elemet vedd egy stringnek es azt probald tomoriteni.
Ez persze akkor tunik jonak ha m kozelit n hez, vagy m>n...

Potyos

Hi !

> Delphi 4-hez (vagy regebbi verziohoz) kellene egy kis segitseg. Olyan
> grid-et szeretnek letrehozni, melynek kb. a kovetkezoket kellene
> tartalmaznia (minden sorban, kiveve az elsot, amelyik a fejlec - de ha
> fejlec nelkul konnyebb, akkor ugy is megoldhato...:)       :
> 1. cella: CheckBox
> 2. cella: sima szoveg -- itt nincs is problema
> 3. cella: Image + szoveg
> 4. cella: Image + szoveg
> 5. cella: sima szoveg -- itt nincs is problema

Keress ra az TAdvStringGrid komponensre. Nagy valoszinuseggel a DSP
oldalain megtalalod. Ebbe meg hiperlinket is tehetsz.

Egyeb Delphi eroforrasok tekinteteben ajanlom figyelmetekbe a
delphi.da.ru cimet, illetve a delphi-forum.da.ru -t !

Udv:
  Csiszar L.                         mailto:

Hi!
    Megint csak kossz, mindenkinek, aki reagalt a kerdesemre. Szinte kivetel
nelkul mindegyik valasz hasznalhato, es jo volt.
Udv.: Formi
P.S.: Meglepo, hogy mostansag mindig akad valaki, aki tudja a kerdesemre a
valaszt, vagy Ti okosodtok, vagy en Lamasodok el..... ;-)

Sziasztok!

Nem tudok mit csinalni, le kell kozolnom a forras egy reszet...
Egyszeruen nem ertem, hogy miert mondja azt, hogy a fajlbol
nem tud olvasni tipuselteres miatt (Incompatible types)

type
  datrec = record
    sorszam: integer;
    filmek: array[1..15] of String[50];
    tipus: String[20];
  end;

var
  Form1: TForm1;
  f: file of datrec;
  adat: datrec;

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
;

persze ez igy hianyos, de a tobbi dolgot nem akartam leirni (pl. 
implementation), mert
azok helye teljesen egyertelmu, meg a szamomra is :-)
Van valakinek otlete?

Udv: Tamas
_________________________________________________________
Get Your Private, Free E-mail Partner at 

Sziasztok!

Ha valaki lenne olyan kedves es aranyos, hogy windoz NT alatt
segitene Perl CGI-t irni, akkor jelentkezzen! Nem baj, ha *nix alatt is
megy neki, de a fo dolog a win nt-s.

Hali!

Tamas
_________________________________________________________
Get Your Private, Free E-mail Partner at 

On 11 Sep 99 at 8:51,  > wrote:

> >Szoval eloszor a kodolas/dekodolas sebessege: Mindkettohoz az kell,
> >hogy eloallitsuk az osszes lehetseges permutaciot, es abban
> 
> Errol + el kell gondolkondom, de szerintem irhato olyan algoritmus, amely
> eloallitja n elem i-edik permutaciojat, anelkul hogy az i permutaciot
> vegiggeneralna es vice versa egy sorozatrol megallapitja, hogy hanyadik
> permutacio <<n! lepesben.

Igen, meg lehet csinalni. Erre jottem ra en is az elozo levelem
vegen (amikor a ket modszer kombinalasara utaltam), csak akkor mar
nem irtam le. Szoval olyat kell csinalni, hogy:

Az eredeti p1,p2,p3,...pn permutaciot atalakitjuk az i1,i2,i3,...in
sorozatra ugy, hogy az egymas utani px elemet az (1,2,...n)
sorozatbeli indexere csereljuk, es px-et kihagyjuk a listabol. Pl. a
4,1,3,2 permutaciobol ez lesz: (1,2,3,4) 3, (1,2,3) 0, (2,3) 1, (2)
0, szoval 3,0,1,0. (Remelem, ertheto. Zarojelben az aktualis lista,
mogotte px indexe. A listaindex 0-rol indul.) Az kapasbol latszik,
hogy egyre csokken az indexek lehetseges maximuma, es  hogy az
utolso index mindig 0 lesz.

Ezek utan kiszamoljuk a kovetkezo szamot:

(...(((i[1])*(n-1) + i[2])*(n-2)+i[3])*(n-3)+...)*2+i[n-1]

Nincs is benne i[n], hiszen az tuti 0. Esetunkben ez lesz:

(3*3+0)*2+1 = 19

Ez a szam egyertelmuen leirja a permutaciot, hisz a hozzaadas elott 
annyival szorozzuk a korabbi reszosszeget, amennyi a most hozzaadando 
szam maximuma minusz 1. Masreszt ez a legrovidebb leiras is, hisz 
eppen n! darab szam johet igy ki: 0 a legkisebb, a legnagyobb pedig:
(n-1)*(n-1)!+(n-2)*(n-2)!+...+2*2!+1 = n!-1 (aki nem hiszi, jarjon 
utana :)

Dekodolas is adodik egyszeruen: El kell osztogatni 2-tol kezdve
(n-1)-ig maradekosan, es a maradekok fogjak adni az indexeket
hatulrol visszafele (az utolso 0 indexet kezzel berakhatjuk). Amikor
az indexek mind megvannak, akkor pedig az (1,2,...n) listabol az
indexekkel megint elo lehet allitani magukat a szamokat.

Ezzel a modszerrel gyorsabban kompresszalhatjuk a permutaciot, de sok 
elem eseten azert nem lesz ez valami sok, hisz a tetszoleges 
pontossagu aritmetika nem valami gyors dolog. En meg mindig valami 
mas modszert keresnek, ami nem egyetlen permutaciot akar 
kompresszalni, hanem a tobb helyen is elofordulo maximalis hosszusagu 
resz-stringeken alapul. Ha nem tul fuggetlen az adatok sorozatanak 
generalasa, akkor azzal a modszerrel nagyobb kompressziot lehet 
elerni.

István
--  Istvan Marosi  --  http://www.sch.bme.hu/~marosi  --
--  Recosoft Ltd.  --  mailto:  --

On 11 Sep 99 at 19:52,  > wrote:

> Nagy szamok faktorialisanak kiszamitasara van egy kozelito formula
> a'la Stirling:
> 
> ln( n! ) =~ (n+.5)*ln(n)-n+ln( sqrt(2*pi) )

Igen. Log nelkul:  n! =~ sqrt(2*pi*n)*(n/e)^n

Ebbol vettem, hogy n^n sebesseggel nol a nagysaga.

> Ezzel  ln( 65536! ) =~ 661288 , ami kb. 287194 jegyu (tizes).

Binarisan pedig 954037 jegy. (Egyebkent mea maxima culpa: A multkor 
valojaban a Python progival a binaris jegyek szamat szamoltam, azok 
jok is voltak, viszont a decimalis szamjegyeket fejben, azok meg 
rosszak... Hmm. Mindenesetre ez a baki a lenyegen nem valtoztat.)

Szoval ezzel a 954037 szamjeggyel 16*65536=1048576 bitrol
kompresszalodik a 65536 elemu permutacio, ez kb. 9% kompresszio.
Nem valami sok.

Ennek a szamnak csak a tarolasahoz majd 120 kB memoria kell (!),
ugyhogy valoszinu nem csoda, hogy nem gyoztem kivarni, mig a progi 
kiszorozza.

> Egyebkent milyen programnyelv az a Python?

Ez egy script nyelv. Letezik a legfontosabb platformokra (mindenfele
unix (pl. linux), win, mac), szabadon hozzaferheto forrassal,
boseges rutinkonyvtarral (pl. mindenfele internetes protokollhoz).
Objektum orientalt nyelv mindennel, ami kell (multiple inheritence,
operator overloading, exception handling). Deklaracio mentes nyelv,
szoval a valtozok futas kozben kaphatnak tetszoleges objektumot
ertekul. Alapban definialva van negyfele alaptipus: szam, string,
lista, szotar. A szamok lehetnek normal integer-ek, korlatlan hosszu
integerek, lebegopontosak, komplex szamok. Standard GUI-ja a Tk (ami
a Tcl-bol jon, a Perl is ezt hasznalja), szinten platformfuggetlen.

Olyasmire szoktak hasznalni, mint a Perl-t is, csak sokkal 
hagyomanyosabb (szoval olvashatobb :)) a szintaxisa.

István
--  Istvan Marosi  --  http://www.sch.bme.hu/~marosi  --
--  Recosoft Ltd.  --  mailto:  --