On 18 May 99 at 2:26,  wrote:

> Nagyon kezdő perles vagyok. Windóz alatti Perlt használok, és a
> környezetemben uralkodó viszonyok miatt nem igazán tudnék áttérni a
> unixos verzióra. Kérdéseim:
> 1. Hogyan lehetne a perl programot futtathatóvá tenni (milyen
>    compiler kellene)?

Gondolom, ugy erted a compiler-t, hogy valami exe szeru legyen 
belole, hogy ne kelljen beirni, hogy 'perl prog.pl', csak egyszeruen 
'prog'. (Compiler ugyanis van a perl belsejeben magaban, ami 
futasidoben eloszor leforditja...)

Szoval dos/win/nt stb. alatt sajnos nincs olyan, mint a unixokon a
#! kezdetu script megadas. Buveszkedni azert lehet, batch programba
agyazni a scriptet. 4dos/4nt alatt pl. a script elso ket sora ez
legyen, a kiterjesztese pedig .btm:

@REM = (q!
@perl [%0.btm] %$ %& %+ @quit %? %+ !) if 0;

(Ez a ! miatt akkor jo, ha a parancssorban nincs felkialtojel)

Ha csak sima command.com-od van, akkor ilyet .bat file-t csinalhatsz:

@REM = (q!
@perl -S %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
@goto end !) if 0 ;

a batch vegere pedig ezt:

@REM=(q!
:end !) if 0 ;

> 2. Lehet-e a promptnál futtatható Perl programot valahogyan webes
>    felületről is futtatni?

Lehet, de ez nem a perl-tol fugg, hanem a http szervertol. Legalabbis
gondolom... de nem ismerem a reszleteket.

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

On 18 May 99 at 16:27,  > wrote:

> Adott ket kor kozeppontjaik koordinataival es a sugarakkal
> (mindegyik valos szam). Kerdes a metszespontok koordinatai. Eloszor

Nem olyan nagyon bonyolult, csak sokaig tart kiszamolni :)
Vezessuk le egyutt (akit nem erdekel, bocs, lapozz. Nem kell azert 
megijedni tole :-) :

A kor egyenletebol erdemes kiindulni, es ha fejbol nem tudnad, ezt
akkor is konnyu kitalalni: A Pythagoras tetelt biztos tudod fejbol: 

  a^2+b^2=c^2

A Pythagoras tetelt egy origo kozeppontu r sugaru kor keruletenek 
minden egyes pontja kielegiti, hisz a koordinatarendszer derekszogu.
A haromszog atloja meg epp a kor sugara: 

  x^2+y^2=r^2

Ha pedig nem az origoban van a kor kozeppontja, akkor csak kicsit 
modosul a fenti egyenlet:

  (x-a)^2+(y-b)^2=r^2

Ez a kor egyenlete. (Itt a kor kozeppontja az (a,b) pont, sugara r.)

A masik kor kozeppontjat nevezzuk (c,d)-nek, sugarat s-nek. Arra is 
felirhatjuk ugyanugy a kor egyenletet. Ahol metszik egymast a korok, 
ott ugyanazokra az (x,y)-ra mindket egyenlet teljesul. Igy tehat van 
2 darab egyenletunk, osszesen ket ismeretlennel, ezt nem 
ordongosseg megoldani:

  (x-a)^2+(y-b)^2=r^2
  (x-c)^2+(y-d)^2=s^2

Az elsobol fejezzuk ki mondjuk x-et:

  x^2 - 2ax + a^2+(y-b)^2-r^2 = 0

ez egy masodfoku egyenlet, talan ennek is beugrik meg konnyen a 
megoldokeplete [Tudod: Ax^2+Bx+C=0 -> x12=(-B +- sqrt(B^2-4AC))/2A ]

Szoval:
  x12 = (2a +- sqrt(4a^2 - 4(a^2+(y-b)^2-r^2)) / 2

vagyis, kicsit leegyszerusitve (es lehagyva az x12-bol az 12-ot, mert 
hulyen nez ki) :

  x = a +- sqrt(r^2-(y-b)^2)

Ezt az x-et helyettesitsuk be a masodik egyenletbe (vagyis   
(x-c)^2+(y-d)^2=s^2  -be)

  (a-c +- sqrt(r^2-(y-b)^2))^2 + (y-d)^2 = s^2

(Itt elvileg a plusz-minusz miatt ketfele kellene valni, es mindket 
agon megoldani a folytatast, de igy egyszerubb lesz. Csak figyelni 
kell vegig a +- -ra.)

Vegezzuk el az elso negyzetreemelest (legalabbis az y-ra 
tekintettel) Vigyazni a pluszminuszra! :

  (a-c)^2 +- 2(a-c)*sqrt(r^2-(y-b)^2) + r^2 - (y-b)^2 + (y-d)^2 = s^2
  (a-c)^2+r^2-s^2-y^2+2by-b^2+y^2-2dy+d^2 = +-2(a-c)*sqrt(r^2-(y-b)^2)
  (a-c)^2 + r^2-s^2 + d^2-b^2 +2(b-d)y = +-2(a-c)*sqrt(r^2-(y-b)^2)

No, pont ideje bevezetni a sok-sok fenti konstans helyett valami 
egyszerubb elnevezeseket:
  e = 2(a-c)
  f = 2(b-d)
  g = (a-c)^2 + r^2-s^2 + d^2-b^2
(Ezeket persze a programban majd ugyanigy kell kiszamolni...)

Szoval:
  g + fy = +- e*sqrt(r^2-(y-b)^2)

Emeljuk negyzetre mindket oldalt. Kicsit vigyazni kell a
negyzetreemelesre, mert az altalaban be tud hozni olyan megoldasokat,
amik az eredeti egyenletnek nem gyokei! (Ez egyebkent akkor fordul
elo, ha azzal a gyokkel az eredeti egyenlet egyik oldala pozitiv, a
masik oldala ugyanazon abszolut erteku negativ szam.)

Szoval ezt kell negyzetreemelni:

  g + fy = +- e*sqrt(r^2-(y-b)^2)

A negyzet pedig: (Hoppa, eltunik a pluszminusz! Milyen jo, hogy
meghagytuk :)

  g^2 + 2fgy + f^2y^2 = e^2r^2 - e^2(y^2 - 2by + b^2)

atrendezve:

  (e^2+f^2)y^2 + (2fg-2be^2)y + (g^2 - e^2(r^2-b^2)) = 0

Ezeket a zarojeles konstansokat is erdemes elnevezni (a programban 
meg kiszamolni), mondjuk rendre h,i,j-nek.
  h=e^2+f^2   i=2fg-2be^2   j=g^2-e^2(r^2-b^2)

Es akkor megint a megoldokeplettel kijon az y:

  y12 = (-i +- sqrt(i^2-4hj))/2h

Ezt mind a kettot behelyettesitve az x12-es kepletbe... idemasolom:

  x12 = (2a +- sqrt(4a^2 - 4(a^2+(y-b)^2-r^2)) / 2

 ... lesz max. 4 megoldasod (x,y parod). Persze csak max. ketto lehet
jo (a masik 2 a negyzetreemeles miatt johetett be), ugyhogy minden
x,y parost be kell helyettesiteni az eredeti kor egyenletekbe, hogy 
jok-e.

> beadtuk az egyenleteket a MathCad matematikai programnak. Ki is
> jott a megoldas, csak eppen nem fert el harom kepernyon! (Nem vicc!)

Hat, ha ebbe behelyettesited az e,f,g,h,i,j valtozok eredetijet,
akkor ezzel se ferunk be a HIX sorlimitbe :) , de kiszamolni nem
olyan veszes. Nehany szorzas, meg ket gyokvonas lesz.

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

Sziasztok!

A kerdes:
Hi!
    Delphiben csinaltam egy progit, ami kirak egy par gombot run-time-ban.
Hogyan lehet megadni, hogy ezek a gombok mit csinaljonak?

A valasz:
Csinalj egy procedure-t, ami megfelel a kivant esemeny tipusanak formailag.
(type TNotifyEvent = procedure (Sender: TObject) of object;)
Ird bele a gomb szerepet. Hasznald a Sender parametert, ami a lenyomott
gombot adja meg. Pl. a szovege TButton(Sender).Caption  stb
A megfelelo helyen ezt a procedure-t rendeld a gomb Click esemenyehez
  Button1.OnClick:=gombClick;

Ezt akar tobb gombhoz is hasznalhatod, hiszen ott a Sender.
  {igy kell egy esemenyt futasi idoben hozzarendelni egy
  objektumhoz; az OnClick valojaban egy TNotifyEvent
  tipusu pointer
  (type TNotifyEvent = procedure (Sender: TObject) of object;)
  a gombClick pedig megfelel ennek a kovetelmenynek}

Roviden ennyi, mert most sietek. Ha reszletesebben kell kerdezz, akar
maganba is!

Udv

Szucs Zoltan

Szevasztok!

>Temakor: ftp kliens dosre ( 7 sor )
>Keresek megoldast fent emlitett problema megoldasara.
>Aki tud valamit ne titkolja.
Nem titkolom. DOS alatti TCP/IP dolgokrol (packet driver, ftp, ping,
telnet, email, bongeszes, stb) van egy leirasom itt:
    http://www.vfmk.hu/zotyo/dostcp.htm

Graff Zotyo'

Szevasztok!

Kellene nekem egy BASE64 dekodolo C (nem c++) forrasban. Biztos van
ilyen valahol, kar nekilatnom, hogy megirjam.

Kosz.
Graff Zotyo'

Tisztelt Coderek !

Napok ota nem tudok megoldani 1 problemat, mar
csak ratok szamithatok.....

Adott egy double szam, szetnem atkonvertalni stringe.

sprintf ( buffer, "Valami nagyon durva szam : %10.10Lf" , (double)(szam) );

A bufferbe a kovetkezo szting kerul :

"-1.#IND000" ??!!!???

Mi az isten ez ?????

Minden segitseget elore is koszonok !

Bye:
Pati

http://www.csl.mtu.edu/cs390-2/www/NOTES/notes.html
http://www.erc.msstate.edu/~pt1/NURBS/nurbs/nurbs.html

z2

> Szabadon felhasznalhato Pascal forraskodok
> kellenenek tanulas celjabol. Ujsagok, konyvek

ftp://ftp.iif.hu/pub/mirror_hosts/ftp.simtel.net/pub/simtelnet/msdos/tur
bopas/

z2

> Adott ket kor kozeppontjaik koordinataival es a sugarakkal (mindegyik
> valos szam). Kerdes a metszespontok koordinatai. Eloszor egy
baratommal
> beadtuk az egyenleteket a MathCad matematikai programnak. Ki is jott a
> megoldas, csak eppen nem fert el harom kepernyon! (Nem vicc!) Igaz

Sokkal egyszerubb kepletet kapsz, ha specialis esetben oldatod meg az
egyenletet.
MapleV-ben ha az egyik kor kozeppontja az origoban van es a masik kor
kozeppontja az y tengelyre esik ( x2 igy a ket kor kozeppontjanak
tavolsaga ) :

 k1 := (x)**2   + (y)**2 = r1**2;
 k2 := (x-x2)**2+ (y)**2 = r2**2;
 solve( { k1, k2 }, { x,y } );

           2     2     2
         x2  + r1  - r2
{x = 1/2 ---------------,
               x2

                  4       2   2       2   2     4       2   2     4
2
 y = 1/2 RootOf(x2  - 2 x2  r2  - 2 r1  x2  + r2  - 2 r1  r2  + r1  + _Z
)/x2}

Az x-re adott keplet nem tul bonyolult, az y-ra vonatkozo kepletet meg
el lehet felejteni, mert egyszerubb visszaszamolni az x-bol meg a kor
egyenletebol:

 solve( k1, y );

       2     2 1/2      2     2 1/2
y = (-x  + r1 )   , -(-x  + r1 )

A metszespontokat egy forgatassal es egy eltolassal kell
visszatranszformalni a helyere.
Kb. ot sor :)

z2

Sziasztok

Koszonom mindenkinek a segitseget.
PeTi

Hali!

> Coderek!

> Sziasztok,valaki el tudna magyarazni hogy a
> subjectbeli fuggvenyek egyenletei hogyan
> jonnek letre.

Egeszen veletlenul igen :)

Elmeleti hatteret en sem ertem igazan, de az egesz lenyege, hogy
emeljuk fel az 1-et akarhanyadikra (szerintem zsenialis). A trukk,
hogy egy parametert is kozbeiktatunk:
((1 - t) + t)^n, ahol (0 <= t <= 1, n > 0)

Gorbe ugy lesz a dologbol, hogy a hatvanyra emeles utan az egyes
tagokat beszorozzuk vektorokkal, tehat pl.:

((1 - t) + t)^2 = (1 - t)^2 + 2*(1 - t)*t + t^2 =>
P(t) = P[0] * (1 - t)^2 + P[1] * 2*(1 - t)*t + P[2] * t^2

Ekkor P a P[0], P[1], P[2] altal hatarolt haromszogbe irhato gorben
lesz rajta. Kezdopontja P[0], vegpontja P[2].

Altalanos alakban:
             n  = pontok szama - 1
P(t) = SUM(P[i] * BINCOEF(n, i) * (1 - t)^(n - i) * t^i)
           i = 0

Letezik ennek a 3d-s, azaz ketparameteres valtozata is (Bezier Surface). Ez
annyiban kulonbozik az elozotol, hogy ket spline szorzatara van rahuzva egy
2d-s vektormatrix. (Az osszeszorzas termeszetesen tagonkent tortenik)

Nezzunk egy peldat erre is:

[(1 - u)^2 + 2*(1 - u)*u + u^2] * [(1 - v)^2 + 2*(1 - v)*v + v^2] =>
P(u,v) = P[0, 0] * (1 - u)^2 * (1 - v)^2
          + P[0, 1] * 2*(1 - u)*u * (1 - v)^2
          + P[0, 2] * u^2 * (1 - v)^2
          + P[1, 0] * (1 - u)^2 * 2*(1 - v)*v
          + P[1, 1] * 2*(1 - u)*u * 2*(1 - v)*v
          + P[1, 2] * u^2 * 2*(1 - v)*v
          + P[2, 0] * (1 - u)^2 * v^2
          + P[2, 1] * 2*(1 - u)*u *v^2
          + P[2, 2] * u^2 * v^2

(Altalanos alakot ugye mindenki ide birja kepzelni...)

Remelem ertheto voltam, csa' imndenkinek!

Adatbazis temakorbol :

Mi az a szuperkulcs???

Ha valaki tudja , mondja mar meg nekem.

udv.

Chupa.

  writes:

> Szya mindenkinek, akit megérintett a Perl varázsa!
> 
> Nagyon kezdő perles vagyok. Windóz alatti Perlt használok, és a 
> környezetemben uralkodó viszonyok miatt nem igazán tudnék áttérni a
> unixos verzióra.
> Kérdéseim: 1. Hogyan lehetne a perl programot futtathatóvá tenni (milyen comp
> iler kellene)?

try

<http://www.perl2exe.com/perl2exe.htm>;

> 	   2. Lehet-e a promptnál futtatható Perl programot valahogyan
> webes felületről is futtatni?

Add

# set no buffering 
$|++;
# send content type
print "Content-type: text/plain\n\n";

also

<http://www.activestate.com/support/faqs/win32/>;
<http://www.activestate.com/support/faqs/win32/perlwin32faq6.html>;
<http://www.activestate.com/support/faqs/win32/perlwin32faq7.html>;

> 	   3. A webes PerlScript ugyanúgy működik-e, mint a nem webes?
>               Válaszokat csak magánba kérek. Köszi minden segítségért.

Kisse lemaradva reagalok a cikkre.

1.
A http://www.cbuilder.dthomas.co.uk cimre feltetlen erdemes elnezni:

2.
A kovetkezo cikkben maghatarozott helyrol nehany kivalo konyv toltheto le:
(tobbek kozott a Charlie Calvert's Book is: 
ftp.synet.edu.cn/pub2/pub5/bookshop/e17/apollo.swjtu.edu.cn/books/ )

A cikket a Computer Digest lista #10 szamabol masolotam ide.

>ftp.synet.edu.cn/pub2/pub5/bookshop/e117/apollo.swjtu.edu.cn/books/Special
Edition Using Visual C++ 5
>
>Na, ez itt az FtP szerver, utanna pedig egy eleresi utvonal. Nos, azt kell
>mondanom, hogy ha az ember az alabbi konyvtarakat nezegeti:
>/pub2/pub5/bookshop/e117/apollo.swjtu.edu.cn/books
>nos, az e117 az mas konyvtar lehet, es akkor mas konyvre bukkanunk.
>tehat irhattok e1 et, e2-ot, meg e akarhanyat.
>Egyebkent nem talaltam nagyon reszletes listat, hogy milyen konyv hol van,a
>konyvekre a fenti modszer alkalmazasaval, empirikus modon talalttam ra.
>Egyebkent, ha valaki leszedte az osszes konyvet, az szolhatna, mert akkor jo
>lenne osszetomoriteni egy fileba, es valami magyar FTP szerverre
>felnyomazni, hogy masok is le tudjak szedni.
>Sok szerencset!

Udvozlettel: Ko'ra Ka'roly CAMSCO KFT.
             Telefon: (36) 1 465-83-79
             <mailto:>

>    Delphiben csinaltam egy progit, ami kirak egy par gombot
> run-time-ban.. Hogyan lehet megadni, hogy ezek a gombok mit csinaljonak?
> Udv.: Jozsi

Hali!

Gomb : TButton;

gomb  := TButton.Create(szulo);
Gomb.OnClick := ClickValami;

procedure ClickValami(Sender: TObject); 
begin

Sziasztok!

Probaltatok mar tlinket futtatni a Borland Pascal alol?
Nekem a kovetkezo hibakoddal fagy le a gepem :

 .
 .
 .

Unhandled exception 000D at 00E7 152D ErrCode AE38

 .
 .
 .

Volt mar nektek is hasonlo? Ha igen, hogy tudtatok megoldani? ( A Tlink
DOS promptbol fut, de a Tool-kent inditom el akkor gaz van! )

Udv.		Attila