Saturday, June 15, 2002

Difference Between Senior Junior Ice Skates

Pray...

Hi to All

Please pray for me ....
I must be interviwed for PHD Course...
Oh God ,,Please Help Me....

Saturday, March 2, 2002

Does Cervical Mucus Look Like Snot

Axis of evil

Bosh said that Iran,North Korea and Iraq form aan axis of Evil,
but considering these disasters made by US and UK:
1) Hiroshima
2) Vietnam
3) India
and many other examples

are evidences that give me this right to say
"Bosh ,Shut Up Please"

Wednesday, January 30, 2002

Is Materbation Haraam For Women

Help,SOS.SOS>SOS>SOS

Hi to All!



I have a "Basic program" that I can not Run It,

Who Can Help Me?

who can give me some information about PowerBasic Compiler ?
this is that program



DEFEXT A-Z

FUNCTION PBMAIN
5 REM SETI League Zone Plate WITH GROUNDPLANE OPTIONAL
6 REM ALL dimensions IN meters: Frequency f IN Hertz
7 DIM B(20) AS EXT
16 OPEN "DEGREEAXIS.PRN" FOR OUTPUT AS #1
17 OPEN "BEAMPATTERN.PRN" FOR OUTPUT AS #2
18 OPEN "BOUNDNUMBER.PRN" FOR OUTPUT AS #3
19 OPEN "BOUNDLOCATION.PRN" FOR OUTPUT AS #4
20 Pi=3.1415926535
25 Am=1000.000000
30 f=1400000000.00000
35 w=2.0000000*Pi*f
40 c=300000000.00000
50 la=c/f
60 K=w/c
70 dla=la/20.000000
80 f0=f
100 REM SET zone boundaries, thru LINE 190
105 B(0)=6.000000*.0254
106 REM LINE 105 puts a 1 ft. diameter dead zone AT center
110 R=10.00000000
120 FOR N= 1.000000 TO 20.000000000 STEP 1.000000000
130 FOR X=0.00000000 TO 100.000000000*R STEP la/1000.00000
140 R1=SQR(R*R+X*X)
150 IF K*(R1-R)< N*Pi THEN 180
160 B(N)=X
163 WRITE #3,N
166 WRITE #4,B(N)
170 GOTO 190
180 NEXT X
190 NEXT N
198 h=1.000000
200 FOR deg=0.000000 TO 10.000000 STEP 0.100000000
210 a=deg/57.2957795
218 REM a=0.0000000
220 REM w=2.00000*Pi*f
225 REM la=c/f
227 REM K=w/c
230 ut=0.0000000
240 vt=0.0000000
241 FOR N=0.00000000 TO 18.000000000 STEP 2.0000000
242 REM Divide MAX N by 2 TO GET number of rings
246 B2= B(N+1.00000)*B(N+1.0000)
249 REM integration zone I thru LINE 296
250 FOR X=-B(N+1.0000) TO -B(N) STEP dla
255 R2=-X*SIN(a)
260 FOR Y=-SQR(B2-X*X) TO SQR(B2-X*X) STEP dla
270 R1=SQR(R*R+X*X+Y*Y)-R
280 ut=ut+Am*COS(-K*(R1+R2))
290 vt=vt+Am*SIN(-K*(R1+R2))
295 NEXT Y
296 NEXT X
349 REM integration zone II thru LINE 396
350 FOR X=-B(N) TO B(N) STEP dla
355 R2=-X*SIN(a)
360 FOR Y=-SQR(B2-X*X) TO -SQR(B(N)*B(N)-X*X) STEP dla
370 R1=SQR(R*R+X*X+Y*Y)-R
380 ut=ut+Am*COS(-K*(R1+R2))
390 vt=vt+Am*SIN(-K*(R1+R2))
395 NEXT Y
396 NEXT X
449 REM integration zone III thru LINE 496
450 FOR X=-B(N) TO B(N) STEP dla
455 R2=-X*SIN(a)
460 FOR Y=SQR(B(N)*B(N)-X*X) TO SQR(B2-X*X) STEP dla
470 R1=SQR(R*R+X*X+Y*Y)-R
480 ut=ut+Am*COS(-K*(R1+R2))
490 vt=vt+Am*SIN(-K*(R1+R2))
495 NEXT Y
496 NEXT X
549 REM integration zone IV thru LINE 596
550 FOR X=B(N) TO B(N+1.00000) STEP dla
555 R2=-X*SIN(a)
560 FOR Y=-SQR(B2-X*X) TO SQR(B2-X*X) STEP dla
570 R1=SQR(R*R+X*X+Y*Y)-R
580 ut=ut+Am*COS(-K*(R1+R2))
590 vt=vt+Am*SIN(-K*(R1+R2))
595 NEXT Y
596 NEXT X
600 NEXT N
630 REM REPLACE this LINE WITH "GOTO 1705" TO eliminate groundplane
650 d=la/4.0000000
660 dca=d*COS(a)
670 rd2= (R+d)*(R+d)
741 FOR N=1.00000000 TO 17.000000000 STEP 2.0000000
746 B2= B(N+1.00000)*B(N+1.0000)
749 REM integration zone I thru LINE 796
750 FOR X=-B(N+1.0000) TO -B(N) STEP dla
755 R2=-X*SIN(a)
760 FOR Y=-SQR(B2-X*X) TO SQR(B2-X*X) STEP dla
770 R3=SQR(rd2+X*X+Y*Y)-R+dca
780 ut=ut+Am*COS(-K*(R3+R2))
790 vt=vt+Am*SIN(-K*(R3+R2))
795 NEXT Y
796 NEXT X
849 REM integration zone II thru LINE 896
850 FOR X=-B(N) TO B(N) STEP dla
855 R2=-X*SIN(a)
860 FOR Y=-SQR(B2-X*X) TO -SQR(B(N)*B(N)-X*X) STEP dla
870 R3=SQR(rd2+X*X+Y*Y)-R+dca
880 ut=ut+Am*COS(-K*(R3+R2))
890 vt=vt+Am*SIN(-K*(R3+R2))
895 NEXT Y
896 NEXT X
949 REM integration zone III thru LINE 996
950 FOR X=-B(N) TO B(N) STEP dla
955 R2=-X*SIN(a)
960 FOR Y=SQR(B(N)*B(N)-X*X) TO SQR(B2-X*X) STEP dla
970 R3=SQR(rd2+X*X+Y*Y)-R+dca
980 ut=ut+Am*COS(-K*(R3+R2))
990 vt=vt+Am*SIN(-K*(R3+R2))
995 NEXT Y
996 NEXT X
1549 REM integration zone IV thru LINE 1596
1550 FOR X=B(N) TO B(N+1.00000) STEP dla
1555 R2=-X*SIN(a)
1560 FOR Y=-SQR(B2-X*X) TO SQR(B2-X*X) STEP dla
1570 R3=SQR(rd2+X*X+Y*Y)-R+dca
1580 ut=ut+Am*COS(-K*(R3+R2))
1590 vt=vt+Am*SIN(-K*(R3+R2))
1595 NEXT Y
1596 NEXT X
1704 NEXT N
1705 WRITE #1,deg
1710 IF h=0.00000 THEN 1750
1720 Ao=SQR(ut*ut+vt*vt)
1730 h=0.000000
1750 WRITE #2,20.0000* LOG10(SQR(ut*ut+vt*vt)/Ao)
1800 NEXT deg
1940 CLOSE 1
1945 CLOSE 2
1946 CLOSE 3
1947 CLOSE 4
1950 EXIT FUNCTION

END FUNCTION


Is there anyone who Can run this program?????