Commit b3404ae1 by kollo

### version 1.10-2

parent 0cbb106c
 examples/calculation/

Directory examples/calculation/

152 Feb 15  2003 ..
15689 Jan  4  2003 diffglei.bas
510 Feb 28 00:13 randomminmax.bas
393 Feb 28 13:16 sieve.bas
314 Apr  1  1999 sqr.bas
 ' Random Number statistics M.H. 2003 ' Is there something wrong with the random generator ? dim m(10) n=10000 for a=1 to n m=0 For b=1 to 10 m=min(m,round(random(100)/10)) next b m(m)=m(m)+1 next a print "MIN:" for a=0 to 10 print a,": ",int(m(a)/n*1000)/10 next a arrayfill m(),0 n=10000 for a=1 to n m=0 For b=1 to 10 m=max(m,round(random(100)/10)) next b m(m)=m(m)+1 next a print "MAX:" DIM m(10) n=20000 RANDOMIZE t=CTIMER PRINT "MIN:" FOR a=1 TO n m=10 FOR b=1 TO 10 m=MIN(m,ROUND(RANDOM(100)/10)) NEXT b m(m)=m(m)+1 NEXT a FOR a=0 TO 10 PRINT a,": ",ROUND(m(a)/n,5) NEXT a for a=0 to 10 print a,": ",int(m(a)/n*1000)/10 next a ARRAYFILL m(),0 PRINT "MAX:" FOR a=1 TO n m=0 FOR b=1 TO 10 m=MAX(m,ROUND(RANDOM(100)/10)) NEXT b m(m)=m(m)+1 NEXT a FOR a=0 TO 10 PRINT a,": ",ROUND(m(a)/n,5) NEXT a PRINT "CPU time: ",CTIMER-t;" sec." QUIT
 ' "sieve.bas" , a prime number sieve benchmark t=timer tc=ctimer s=40000 dim f(s+1) arrayfill f(),1 clr c for i=2 to s if f(i) if 2*i
 Directory listing of examples/graphics

Directory listing of examples/graphics

Up to higher level directory
3Dng.bas 4 Kb Tue Sep 18 10:44:20 2001 3Dshow.bas 7 Kb Wed Sep 19 00:05:50 2001 RDS.bas 2 Kb Sat Jun 5 13:27:26 1999 ana_uhr.bas 3 Kb Thu Apr 1 09:25:20 1999 conv_bmp.bas 1 Kb Sun Oct 20 23:08:24 2002 elli1.bas 385 bytes Sun Apr 4 18:49:04 1999 f1.pic 31 Kb Thu Apr 1 09:41:33 1999 kugel.bas 2 Kb Sun May 21 19:23:24 2000 netzgraf.bas 897 bytes Thu Apr 1 09:26:41 1999 plot.bas 175 bytes Sun Dec 30 23:11:04 2001 showstpic... 851 bytes Sat Apr 3 23:49:10 1999 space.bas 1 Kb Tue Sep 4 01:02:22 2001 wurm.bas 1 Kb Sun Dec 30 23:08:24 2001 zoom.bas 1 Kb Sun Oct 20 23:08:24 2002 zoom2.bas 1 Kb Sun Oct 20 23:08:24 2002
examples/graphics/

Directory examples/graphics/

152 Feb 15  2003 ..
4513 Sep 18  2001 3Dng.bas
2475 May  4  2002 RDS.bas
3265 Jan  4  2003 ana_uhr.bas
768 Jan  4  2003 conv_bmp.bas
385 Apr  4  1999 elli1.bas
2191 Oct 20  2002 index.html
2549 Oct 20  2002 kugel.bas
923 Feb  7  2003 mandel.bas
885 Feb  6  1998 netzgraf.bas
353 Jan  4  2003 plot.bas
1169 Sep  4  2001 space.bas
1195 Feb 28 00:36 wurm.bas
233 Oct 20  2002 zoom.bas
283 Oct 20  2002 zoom2.bas
 ... ... @@ -7,6 +7,7 @@ ykreis(1)=24/2 ri=0 schwanz=1 c=1 pt=0.1 sizew ,320,200 schwarz=get_color(0,0,0) clearw ... ... @@ -43,7 +44,14 @@ DO circle neux,neuy,3 exit if mousek>500 vsync pause 0.001 pause pt if timer-t>0.025 pt=pt/1.1 endif if timer-t<0.021 pt=pt*1.1+0.001 endif t=timer loop ' " ... und der Wurm verpuppte sich und ward niemehr gesehen..." quit ... ...
internet/cgi/brabbel.cgi 100755 → 100644
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
 examples2/internet/cgi/

Directory examples2/internet/cgi/

256 Mar  7 22:27 ..
3517 Feb 15  2003 brabbel.cgi
2492 Feb 15  2003 formtomail.cgi
2510 Feb 15  2003 mandel.cgi
886 Feb 15  2003 mandelgif.cgi
1092 Feb 15  2003 mandelposter.cgi
internet/cgi/mandel.cgi 100755 → 100644
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
File mode changed from 100755 to 100644
 examples2/internet/

Directory examples2/internet/

544 Oct 12 14:38 ..
264 Mar  7 22:29 cgi
269 Jul 18  2003 Braun-Time.bas
1786 Jul 18  2003 Fakemail.bas
213 Sep 16  1999 getwww.bas
488 Mar  7 22:28 index.html
1271 Feb 15  2003 internet-dial
238 Apr 12  2000 iserver.bas
 #!/usr/bin/xbasic ' Stellt einen einfachen Frontend fuer die Internetanwahl dar ' Markus Hoffmann '9'2000 ' Testen, ob schon verbunden schonflag=0 system "ps x > wvdial.log" open "I",#1,"wvdial.log" while not eof(#1) lineinput #1,t\$ if mid\$(t\$,28,6)="wvdial" schonflag=1 pid=val(left\$(t\$,6)) endif wend close #1 system "rm -f wvdial.log" sizew 1,600,130 color get_color(0,0,0) pbox 0,0,600,130 pause 0.3 if schonflag=0 alert 0,"Wie Mchten Sie mit dem Internet |verbunden werden ?",1,"default|uni-bonn|t-link|arcor| ABBRUCH ",f y=0 if f=1 an\$="" else if f=2 an\$="uni-bonn" else if f=3 an\$="t-link" else if f=4 an\$="arcor" else quit endif color get_color(65535,65535,0) text 50,10,"Bitte warten ...." test 50,30,an\$ vsync system "xterm -geometry 70x12 -bg \#a3ff60 -sb -e wvdial "+an\$+" &" pause 45 text 50,50,"Verbunden !" vsync system "/usr/sbin/sendmail -q" ' system "xterm -geometry 80x10 -bg \#83ff6d +sb -e fetchmail --syslog &" system "fetchmail --syslog" endif else alert 0,"Sie sind bereits im Internet.| Mchten Sie die Verbindung nun|trennen ?",1," Ja | Nein",f if f=1 system "kill -2 "+str\$(pid) system "rm -f wvdial.log" endif endif quit
 Directory listing of examples/simulation

Directory listing of examples/simulation

Up to higher level directory
3kp.bas 2 Kb Thu Apr 1 09:25:14 1999 dipolfel.bas 636 bytes Thu Apr 1 09:26:26 1999 kohaerenz... 737 bytes Sat Oct 27 16:34:30 2001 korrfouri... 3 Kb Tue May 8 15:12:03 2001 mpendel.bas 3 Kb Tue Sep 4 01:21:06 2001 planeten.bas 7 Kb Sun Apr 1 02:43:51 2001 qatom.bas 511 bytes Tue Sep 4 01:10:51 2001 rot.bas 1 Kb Tue Sep 4 01:09:25 2001 schleppe.bas 718 bytes Mon Mar 26 13:52:44 2001 uebers.bas 600 bytes Fri May 4 17:26:42 2001
examples2/simulation/

Directory examples2/simulation/

544 Oct 12 14:38 ..
2145 Jun 28  2003 3kp.bas
636 Apr  1  1999 dipolfel.bas    (Screenshot)
2664 Mar 29  2003 echoanim.bas
2457 Mar 29  2003 echorealistic.bas
737 Oct 27  2001 kohaerenz.bas
1476 Jun 28  2003 life.bas            (Screenshot)
3602 Feb 15  2003 mpendel.bas      (Screenshot)
319 Mar 29  2003 play.bas
511 Sep  4  2001 qatom.bas
1832 Jan 25 20:38 raeder.bas        (Screenshot)
738 Jul  3  2003 resonnances.bas
1381 Feb 28 00:40 rot.bas              (Screenshot)
718 Mar 26  2001 schleppe.bas
2985 Mar 15 21:43 schottky-p.bas  (Screenshot)
983 Mar 15 21:46 trackit.c
 ... ... @@ -5,7 +5,8 @@ ' bw=240 bh=240 pts=0.031 pt=pts sizew 1,bw,bh clearw ... ... @@ -50,7 +51,13 @@ else endif vsync pause 0.001 pause pt if timer-t>pts pt=pt*0.9 else if timer-t
 ' ' Program for simulating the phase space schottky spectrum ' in Proton HF of accelerator HERA-p (c) Markus Hoffmann 03/2004 ' ' make the fast tracking routine with: ' gcc -c -O2 trackit.c ' gcc -o trackit.so -shared trackit.o ' view=01 n=10000 ! number of particles to be tracked umlaufe=8*1024 dt=0.021 ! time resolution bx=16 ! Picture area location by=16 bw=5*128 ! and dimension bh=3*128 a1=1.2875 a2=4.1201 DIM y(n),x(n) dim datax(umlaufe) print "Initializing particle distribution ..." ' @init_gauss(n) @init_random(n) @init_gauss(n/2) ' @init_line ext\$="-"+str\$(n)+"-"+str\$(umlaufe)+"-" 'x(0)=-pi/3.6 'y(0)=2 'x(1)=pi/3.6 'y(1)=-1.999 if view sizew ,bw+2*bx,bh+2*by ' boundary 0 schwarz=get_color(0,0,0) weiss=get_color(65535,65535,65535) grau=get_color(20000,20000,20000) rot=get_color(65535,0,0) gruen=get_color(0,65535,0) gelb=get_color(65535,65535,0) color schwarz pbox bx,by,bx+bw,by+bh color grau box bx,by,bx+bw,by+bh endif if not exist("./trackit.so") system "gcc -O3 -shared -o trackit.so trackit.c" endif link #11,"./trackit.so" for mega=0 to 4 if view=0 t=ctimer adr=exec(sym_adr(#11,"trackit"),L:n,L:umlaufe,L:varptr(x(0)),L:varptr(y(0)),L:varptr(datax(0))) print "Time: ";ctimer-t;" sek." else clr count DO if view color schwarz pbox bx,by,bx+bw,by+bh color rot text bx+10,by+10,str\$(count) text bx+bw-80,by+bh-10,"(c) 2004 MH" color weiss endif meanx=0 adr=exec(sym_adr(#11,"trackit"),L:n,L:1,L:varptr(x(0)),L:varptr(y(0)),L:varptr(meanx)) if view scope y(),x(),1,bh/7,by+bh/2,bw/5,bx+bw/2,1 endif vsync datax(count)=meanx inc count exit if count>=umlaufe LOOP endif if 0 print "saving data ..." print "schottkydata"+ext\$+str\$(mega)+".dat: ["; flush open "O",#1,"schottkydata"+ext\$+str\$(mega)+".dat" for i=0 to umlaufe-1 print #1,i;" ";datax(i) next i close #1 print "]" print "fft"+ext\$+str\$(mega)+".dat: ["; flush fft datax() open "O",#1,"fft"+ext\$+str\$(mega)+".dat" for i=1 to umlaufe-1 step 2 PRINT #1,i/dt/umlaufe;" ";sqrt(datax(i)*datax(i)+datax(i+1)*datax(i+1)) next i close #1 print "]" endif next mega endif unlink #11 system "rm -f trackit.so" quit procedure init_gauss(n) ' initializes phase space with 2D gaussian distribution local i FOR i=0 TO n-1 y(i)=gasdev()/6 x(i)=gasdev()/6 NEXT i return procedure init_random(n) ' initializes phase space with 2D gaussian distribution local i,x,y FOR i=0 TO n-1 x=(rnd()-0.5) y=(rnd()-0.5) while sqrt(x*x+y*y)>0.5 x=(rnd()-0.5) y=(rnd()-0.5) wend x(i)=x*2 y(i)=y*7 NEXT i return procedure init_line ' initializes phase space with a simple line distribution local i FOR i=0 TO n-1 y(i)=(i+n/20)/(0.43*n+n/20) x(i)=0 NEXT i return
 #include #include #include #define PI 3.141592653589793 #define dt 0.021 #define a1 1.2875 #define a2 4.1201 #define h 1 /* This file is part of the fast Schottky tracking (schottky-p.bas) (c) Markus Hoffmann 2004 */ /* schnelle Trackingroutine fuer den longitudinalen Phasenraum mit doppel-HF. n= anzahl der Teilchen umlaufe= anzahl der Umlaufe*/ void trackit(int n,int umlaufe,double *x,double *y,double *data) { int i,ucount=0; double meanx; if(umlaufe>1) { printf("Trackit: n=%d umlaufe=%d\n",n,umlaufe); printf("["); } while(ucountPI) x[i]-=2*PI; if(x[i]<-PI) x[i]+=2*PI; meanx+=sin(h*x[i]); } meanx/=n; data[ucount++]=meanx; if((ucount % 100)==0) { printf("."); fflush(stdout); } } if(umlaufe>1) printf("]%d\n",ucount); }
sound/index.html 0 → 100644
 examples2/sound/

Directory examples2/sound/

544 Oct 12 14:38 ..
5870 Aug 30  2003 elise4.snd
2048 Aug 30  2003 hymne.snd
5120 Aug 30  2003 liedsong.snd
3156 Aug 30  2003 migel.snd
2066 Sep  5  2003 playsnd.bas
17024 Aug 30  2003 popcorn.snd
2690 Aug 30  2003 sandrine.snd
 Directory listing of examples/tests

Directory listing of examples/tests

Up to higher level directory
alerts.1-0 2 Kb Fri Mar 23 18:23:33 2001 alerts.1-4 2 Kb Fri Mar 23 18:23:33 2001 alerttest... 1 Kb Mon Apr 2 23:16:20 2001 ansicolor... 224 bytes Wed May 9 15:16:36 2001 benchmark... 886 bytes Mon Aug 20 01:38:08 2001 colors.bas 572 bytes Thu Apr 1 09:26:03 1999 copyareat... 677 bytes Sun Apr 1 02:49:18 2001 deffillte... 488 bytes Mon Mar 26 13:47:16 2001 defmouset... 131 bytes Tue Feb 16 19:26:56 1999 dragbox.bas 94 bytes Wed Aug 22 02:00:10 2001 fish.xwd 4 Kb Mon Apr 2 17:24:27 2001 X Window Dump Image fish_24.xwd 15 Kb Mon Apr 2 17:24:27 2001 X Window Dump Image font.bas 378 bytes Sat Apr 28 23:34:04 2001 forktest.bas 130 bytes Wed May 2 13:43:49 2001 fourierte... 953 bytes Sun Apr 4 14:52:22 1999 gettest.bas 2 Kb Sat Aug 25 22:30:33 2001 gprint.bas 881 bytes Sun Apr 8 17:50:29 2001 keyeventt... 179 bytes Mon Apr 2 23:21:42 2001 laufschri... 24 Kb Wed Oct 24 22:33:23 2001 linktest.bas 279 bytes Mon Aug 20 01:28:23 2001 menutest.bas 1 Kb Mon Mar 26 13:46:58 2001 ontest.bas 294 bytes Sat Apr 7 16:52:28 2001 polytest.bas 461 bytes Sun Dec 30 23:29:11 2001 rsc.test.bas 385 bytes Fri Aug 24 00:13:11 2001 rsc/ 1 Kb Fri Aug 24 00:18:47 2001 Directory shmtest.bas 1 Kb Mon Aug 27 00:42:51 2001 timetext.bas 24 Kb Wed Oct 24 22:23:48 2001 zahlen.bas 1 Kb Thu Apr 1 09:26:53 1999

Directory listing of examples/tests

152 Feb 15  2003 ..
290 Jan  1  2003 ansicolor.bas
271 Aug  3  2003 arraytest.bas
996 May  2  2002 benchmark.bas
50374 Jan  4  2003 bitmaptest.bas
661 Jan  1  2003 colors.bas
677 Apr  1  2001 copyareatest.bas
617 Jun 22  2003 deffilltest.bas
373 Jun 22  2003 defmousetest.bas
221 Oct 12 14:32 dragbox.bas
1586 Jan  1  2003 edit.bas
4137 Apr  2  2001 fish.xwd
16049 Apr  2  2001 fish_24.xwd
281 Jan  1  2003 font.bas
531 Sep 14 00:04 forktest.bas
1134 Jan  1  2003 fouriertest.bas
2492 Oct 20  2002 gettest.bas
4045 Jan 28  2002 index.html
325 Apr 23  2002 inlinetest.bas
349 Sep 14 00:08 keyeventtest.bas
342 Jan  1  2003 ontest.bas
506 Jan  1  2003 polytest.bas
1024 Aug 27  2001 shmtest.bas
203 May  4  2002 singlebench.bas
617 Aug 30  2003 soundtest.bas
 Directory listing of examples/utils

Directory listing of examples/utils

Up to higher level directory
anschlag.bas 463 bytes Wed Jan 12 17:09:14 2000 cddbcover 7 Kb Tue Dec 4 23:03:17 2001 datum.bas 2 Kb Thu Aug 23 21:08:04 2001 dust.bas 320 bytes Mon Apr 2 23:03:36 2001 garmin.bas 27 Kb Mon Jan 28 11:26:31 2002 getwww.bas 213 bytes Thu Sep 16 20:07:34 1999 inlinegra... 790 bytes Mon Apr 2 20:42:25 2001 inlinegra... 973 bytes Mon Apr 2 20:42:25 2001 iserver.bas 238 bytes Wed Apr 12 18:49:52 2000 konto.bas 5 Kb Sat Jan 5 13:46:05 2002 mp3CD 7 Kb Fri Dec 14 01:22:02 2001 mp3cover 6 Kb Sun Jan 6 18:08:41 2002 ostern.bas 528 bytes Thu Apr 1 09:26:43 1999 sehen.bas 953 bytes Thu Nov 8 16:05:57 2001 sms.bas 4 Kb Thu Aug 23 21:22:48 2001 vorgabe.dat 659 bytes Wed Jan 12 17:09:14 2000
examples2/utils/

Directory examples2/utils/

544 Oct 12 14:38 ..
463 Jan 12  2000 anschlag.bas
7359 Feb 15  2003 cddbcover
1910 Aug  3  2003 datum.bas
403 Feb  6  1998 dust.bas
1707 Jan 13 16:53 fotoweb.bas
7828 May 24  2003 kalender.bas
5503 Dec 14  2002 konto.bas
7759 Feb 15  2003 mp3CD
7420 Feb 15  2003 mp3cover
526 Feb  5  1997 ostern.bas
953 Nov  8  2001 sehen.bas
4747 Aug 23  2001 sms.bas
659 Jan 12  2000 vorgabe.dat
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!