Bu Kodlarda Neyin Nesidir.

19/Ara/12 23:28

Kısayol

Şikayet

Özel Mesaj

ExpirE

Kayıt Tarihi: 29/Temmuz/2005

Müritler bu kodları tanıyan varmı bu kodlarla ablam birşey üzerinde çalışıyor ödev gibi birşey bir kaç hesaplama için kullanıcak. Bu kodlar neyin nesidir. program haline getirilebilirmi.






--------------------------------------------------------------------------------------------

10 REM *** DILIM SEKILLI YAPILAR ICIN DOĞAL POLARIZASYON 
20 REM *** EGRISININ HESAPLANMASI VE CIZILMESI
30 REM *** MODEL PARAMETRELERI GIRILECEK
40 SCREEN 0 , 0 , 0 : CLS : KEY OFF : CLEAR : DIM X(5000)
50 INPUT “DERINLIK VE POLARIZASYON ACISI ? “ , D , T
60 INPUT “IKI KENAR ARASI UZAKLIK ? “ , A2
70 A1=A2/2
80 INPUT “RHO*J/2*PI ? “ , M
90 INPUT “- X VE + X DEGERLERI ? “ , X1 , X2
100 P1=22/7
110 P2=T*180/P1
120 AS=A1*SIN( P2 )
130 AC=A1*COS( P2 )
140 PRINT
150 PRINT “ X-EKSENI       V( X )  GERILIMI “
160 FOR L=X1 TO X2 STEP . 5
170 XL=L : N=N+1
180 S1=( XL+AC ) ^ 2 + ( D-AS ) ^ 2
190 S2=( XL-AC ) ^ 2 + ( D+AS ) ^ 2
200 S3=LOG( S1/S2 )
210 VX=M*S3 : X( N )=VX
220 PRINT XL , VX
230 NEXT L
240 PRINT”LUTFEN BIR TUSA BASIN”
250 GOSUB 560
260 CLS : SCREEN 2
270 LOCATE 2 , 1 : PRINT N ; “TANE VERI OKUNDU”
275 PRINT : PRINT “verilerin max. ve min. değer . hesaplaniyor”
280 MAX=X( 1 ) : MIN=X( 2 )
290 FOR I=1 TO N
300 IF X( I )=>MAX THEN MAX=X( I )
310 IF X( I )=<MIN THEN MIN=X( I )
320 NEXT I
330 LOCATE 4 , 34 : PRINT “HESAPLANDI    “ : PRINT
340 PRINT “ MAX= “ ; MAX , “ MIN= “ ; MIN : PRINT
350 PRINT “ GRAFIGI GORMEK ICIN BIR TUSA BASIN “
360 GOSUB 560
370 D = MAX – MIN
380 IF ( MAX – MIN ) = 0 THEN D = 1
390 CLS : A = 718 / N : B 346 / D
400 C = MIN * B
410 C = 346 – ABS (C)
420 IF C < 0 THEN GOTO 440
430 LINE ( 0 , 0 ) – ( 0 ,346 )
440 LINE ( 0 , C ) – ( 718 , C )
450 PSET ( 0 , C – B * X ( 1 ) )
460 FOR I=2 TO N
470 LINE – ( I*A , C – B * X ( I ) )
480 NEXT I
490 GOSUB 560
500 CLS : PRINT “AYNI GRAFIK ICIN BOSLUK “ : PRINT
510 PRINT “YENI MODEL PARAMETRELERI ICIN ENTER ’ E BASINIZ “
520 GOSUB 560
530 IF A$ = CHR$ ( 13 ) THEN 40
540 IF A$ = CHR$ ( 32 ) THEN 390
550 GOTO 520
560 A$ = “ “ : A$ = INKEY$ : IF A$ = “ “ THEN 560
570 RETURN




-----------------------------------------------------------------------

10 REM ** DOGAL GERILIM (SP) OLCU BILGILERININ YORUMLANMASINDA 
20 REM ** KULLANILACAK YARDIMCI EGRILERININ HESAPLANMASI
30 CLS
40 DIM X12Z (9) , ALFA (10) , XMINZ (10) , XMAXZ (10) , AZ(10) , AXMX(9) , AXMN (9)
50 FOR K=1 TO 9
60 READ X12Z(K)
70 NEXT K
80 PI=22/7
90 LOCATE 3 , 10
100 PRINT “ALFA    A/Z  XMAX/Z   XMIN/Z”
110 FOR L=1 TO 10
120 READ ALFA(L)
130 ALFAX=ALFA(L)*(PI/180)
140 C=COS(ALFAX)
150 F=SIN(ALFAX)
160 D=C/F
170 DD=D*D
180 XMINZ(L)=(-3/4)*D+SQR(.5+(9/16)*DD)  
190 XMAXZ(L)=(-3/4)*D-SQR(:5+(9/16)*DD) 
200 AZ(L)=SQR(.5+(9/16)*DD) 
210 IF L=10 THEN GOTO 260
220 XMX12=(XMAXZ(L)-X12Z(L))/AZ(L)
230 XMX12=(XMINZ(L)-X12Z(L))/AZ(L)
240 AXMX(L)=1/XMX12
250 AXMN(L)=1/XMX12
260 LOCATE 3+L , 10
270 PRINT ALFA(L) , AZ(L) , XMAXZ(L) , XMINZ(L)
280 NEXT L 
290 LOCATE 15;10
300 PRINT ALFA(L) , AZ(L) ; XMAXZ(L) , XMINZ(L)
310 NEXT L
320 LOCATE 15 + M, 10
330 PRINT ALFA(M) , X12Z(M) , AXMX(M) , AXMN(M)
340 NEXT M
350 END
360 DATA -.721 , .-.573 , 579 , -.492 , -407 , -.323 , -.24 , -.16 , -.0.79
370 DATA 5 , 10 , 20 , 30 , 40 , 50 , 60 , 70 , 80 , 90

ALFA		A/Z		XMAX/Z			XMIN/Z
5			8 . 598199		-17 . 16727			2 . 912521E-02
10			4 . 310114		-8 . 561829			5 . 839825E-02
20			2 . 177704		-4. 237412			. 1179965
30			1 . 478465		-2 . 776871			. 1800588 
40			1 . 139296		-2 . 032601			. 2459903
50			9463007		-1 . 575177			. 3174247
60			8289363		-1 . 261528			. 3963449
70			7578186		-1 . 030379			. 4852586
80			7192872		- . 8510979			. 5874765
90			707107			- . 7066328			. 7075811





ALFA		X12/Z		A/(XMAX - X12)			A/(XMIN - X12)
5			- . 721			- . 5228054			11 . 46235
10			- . 573			- . 5395176			6 . 8263
20			- . 579			- . 5952595			3 . 124412
30			- . 493			- . 6473505			2 . 196636
40			- . 407			- . 7008458			1 .744736
50			- . 323			- . 7557246			1 .477614
60			- . 24			- . 8114674			1 . 302653
70			- . 16			- . 8706767			1 . 174442
80			-7 . 900001E-02		- . 9316011			1 . 079239

"bea"

Alıntı yap