Micro Systèmes n°26 nov/déc 1982
Micro Systèmes n°26 nov/déc 1982
  • Prix facial : 18 F

  • Parution : n°26 de nov/déc 1982

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (213 x 271) mm

  • Nombre de pages : 230

  • Taille du fichier PDF : 174 Mo

  • Dans ce numéro : Microdigest... le nouveau magazine de Micro-Systèmes.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 152 - 153  |  Aller à la page   OK
Pages suivantes >
152 153
590-IF S(I,2)=1 THEN-PRINT "FC ; I ; " = "I% 1.025 IF B=17 GOTO 1:192 INPUT S(Ir1):LPRINI"R'TI ; " = "TET(Irl) 1028 Y=7-1 600 IF S(Ir2)=2'THEN PRINT'L'UT'='1031 A=A+1:GOTO 1013 INPUT S(Lr1):LPRINT'L'UT" " ; S(Irl) 1034 IF 8=35 OR 8=13 OR 8=45 OR 8=47 GOTO 1040 610 TF S(Ir2)=3 THEN PRINT "C'TIP ='I  : 1037 Z=Z+11GOTO 1013 INPUT 9(Ir1):LPRINT'C'TI ; " = "1E1(in)  : 1040 IF 7<>Y GOTO 1049 625 NEXT I 1043 IF 8=47 THEN 2=Z+11Y=ZIGOTO 1192 628 LPRINT  : 1046 IF 8=13 OR 8=45 GOTO 1.037 630 REM 1049 SC$=MID$(CNX$rY,Z-Y) 635 REM 4f4+4.14++4f++444-41.+4+++4++444.+4.4++++++ 1052 S=ASC(SC$) 636 REM 1055 0=1:U=0:V=0 640 REM DIALOGUE 1058 IF 5=45 THEN 0=-1 641 REM 106:1. H$=MID$(SC$r2rLEN(SC$)-1) 650 FCLG=0:MDB=0 1063 Y=Z 655 PRINT 1064 IF B=47 THEN Z=74.1 660 *INPUT "ECH.LOG. (OUI/NON)  : " ; H$ 1.080 FOR X=1 TOL.EN(H$) 661 LPRINT "ECH.LOG.  : 'MS 1090 HP$=MIDS(H$rXr1) 670 TF H$="OUI" THEN ECLG=1 1.100 IF ASC(HP$)<>38 GOTO 1120 680 INPUT "MOD.DB. (OUI/NON)  : " ; H$ 1110 HP$=MID$(H$rX+1,2):X=X+2 681 LPRINT"MOD.DB  : "MS 11.20 VA=VAL(HP$) 691) IF H$="OUI" THEN MDB.4.1 1..130 U=U+G(VArl) 700 INPUT "FS = "11:1 1.140 V=V+C(VAr2)+C(VAr3) 701 LPRINT "Fl = " ; Fl 1.145 NEXT x 710 INPUT "F2 = "/F2 1150 T(IrJ)=0*U 711 LPRINT' ; F2 1160 T(IrJ41)=-0*V 720 IF ECLG=1 GOTO 750 1170 T(I+N/2,J)=0*V 730 INPUT "PAS = ":P 11(10 T(i+N/2rJ+1)=0*U/31 LPRINT "PAS = 1190 IF B=35 GOTO 1200 740 GOTO 770  : 1.192 NEXT d 750 INPUT'NBRE DE PTS INTER.  : " ; NI 1.195 NEXT I 751 1 PRINT'PTS INTER/DEC.: ; NI  : 1200 REM 755 PRINT 1205 REM ++++++++++++++++++++++++++++++++++++ 760 K=10^(L/(NIF1)) 1.206 REM 770 REM 1210 REM RESOLUTION DU SYSTEME D'EOUATIONS 775 LPRINT 1211 REM 780 LPRINT " F(HZ) «, IMI "r"FI(DEG)" 1220  : I=:1.  : J:==1. 800 F= FL 1230 M==N  : 0=1. 810 FP=F1 1240 IF T(IrJ)<>0 GOTO 1.300 820 W=2*PI*F1 1.250 V=T(MrJ):T(MrJ)=T(Ird) 830 REM  : 1260 T(IrJ)=V:J=J+1 835 REM + ++ ++ il f+fiF 4 +4 +•4•++•f 4•++4•4 ++•f•+++ 1270 IF J<>N+2 GOTO 1250 836 REM 1280 IF M<>I GOTO 1290 840 REM CREAIION DE C ET REMPLISSAGE 1281 I=I+1:J=J+11GOT0 1360 841 REM  : 129(1 J=0:M=M-1:GOTO 1240 850 DIM C(NCr3) 1300 A=T(IrJ):X=J:Y=I 860 LPRINT  : 1310 I=I+1:J=X:U=T(IrJ)/A:T(IrJ)=0 870 FOR I=1 TO NC 1320 J=J+1:T(IrJ)=T(IrJ)-(U*T(YrJ)) 880 IF S(Ir2)=1 THEN C(I,1)=1/S(Ir1) 1330 IF J<>N+1 GOTO 1320 1490 IF S(1,2)=2 THEN C(Ir2)=-1/StIr1)/W 1.340 IF I<>N GOTO 1310 900 IF S(I42)=3 THEN C(I,3)=S(Ir1)*W  : 1350 J=X+1:I=Y+110=J 905 NEXT I 1.360 IF J17,1+1 GOTO 1390 912 DIM T(NrN42) 1380 IF I=N GOTO 1390 915 REM 1381 J=0+1:M=N:GOTO 1240 970 REM VARIATION DES Y DE C AVEC F 1390 Y=T(NrN+1)/T(NrN) 930 FOR 1=1 10 NC 1400 X=(T(N-1,N4-1)-T(N-1,N)*Y)/T(N-1,N-1) 940 C(1r2)=C(197)*F/FP 1409 LPRINT 950 C(Ir3)=C(Ir3)*FP/F 1410 REM 955 NEXT I  : 1415 REM ++++4+++++++++++++++++++++++++++++++ 960 REM 1416 REM 965 REM +14•++4 4 ++•+ 4 ++, +++++++++++++++++++  : 142(1 REM AFFICHAGE ET CHARGEMENT DE R (RESULTATS) 966 REM 1.421 REM 970 REM CHARGEMENT DE T AVEC LES COEFFICIENTS  : 1.430 M=SOR(XA2+Y^2) 971 REM 1.440 IF X=0 THEN FI=I:.I/2 1 GOTO 1.460 980 FOR I=1 TO N:FOR J=1 TO N+2 1450 FI=ATN(Y/X) 981 1(1,J)=0 1460 I=X/M:J=Y/M 982 NEXT J:NEXT I 1470 IF I<0 AND J>0 THEN FI=FI+PI 990 F=FP 1480 IF I<0 AND J<0 THEN FI=FIPI 995 A=0:Z=1:Y=1  : 149(1 FI=FI*1,80/PI 1000 FOR I=1 TO N/2 1.500 IF MDB=1 THEN M=20*LOG(M)/2.30259  : 1.010 FOR J=1 10 N+1 srEp 2 1510 LPRINT USING "#4 ; 1441*4" ; Fr 1013 X$41ID4.(CNX,r7r1) 1520 LPRINT USING "41,11111111110111T.11" ; M ; 1016 B=ASC(X$) 1530L.PRIN1 USING'44114-#411111.111141 ; *" ; FI ; 1019 IF A•:>0 GOTO 1034 1540 R(ZR,1)=F:R(ZR.2)=MIZR=ZR-41 1022 7=Z+1 1550 IF ECLG=0 THEN FP=F+P ELBE FP=F*K Fig. l(sulte) 152 - MICRO-SYSTEMES Novembre-Décembre 1982
1S60 IF FP<=F-2 GOTO 920 ELSE GOTO 5000 1995 REM 5000 REM m*******x***x*w**********x**x***x 5005 REM 5010 REM TRACE 5015 REM 5120 REM DIALOGUE 5125 LPRINT 5220 INPUT "Yi = " ; Y1 5280 INPUT "'n = " ; Y2 5320 INPUT "Xl = " ; Xl 5380 INPUT "X2 = " ; X2 5120 EY=60/(Y2-Y1) 5450 P0=1 5480 LPRINT 5500 P=0 5550 REM 5590 REM AXE 5600 FOR I=1 TO 7 5620 A=Y14-(I-1)*10/EY 5640 LPRINT TAB(Œ-1) ; e10+8) ; A ; 5642 NEXT I 5641 LPRINT 5615 D$=" 5646 FOR I=1 TO 12 5647 - " 5648 NEXT I 5649 D$=D$-04.>" 5750 LPRINT TAB(9) ; 0$ 5780 REM 5790 REM TRACE 5800 FOR I=1 TO 50 5820 X=R(I.1) 5825 IF XX2 GOTO 6450 5810 IF X0 GOTO 6160 6090 LPRINT X ; TAB(9) ; "1-" ; 6080 P=P0 6120 GOTO 6290 6160 LPRINT TAB(9) ; "+" ; 6200 P=P-1 6240 IF F(<0 OR K>63 GOTO 6350 6280 LPRINT TAB(K410) ; "*" 6320 GOTO 6400 6350 LPRINT 6400 NEXT I 6420 REM 6150 LPRINf 6500 STOP 6995 REM 7000 REM wxxx******x*********A(*x******w*****›* 7005 REM 7010 REM BB 7012 REM 7015 IF NO>6 THEN NO=N0-6 ; GOTO 7017 7016 ON NO GOTO 7020.7030.701097050.7060.7070 7017 ON NO GOTO 708097090.7100.7110.712097130 7019 REM ++++++++++F+++++++++++f+++++++++++++++44-  : 020 REM 7022 TITR$=" FILTRE PASSE BANDE L C" 7024 N=4 7026 COM$="LiC2L3C1C5L6R7" 7027 CNX$="i-12-2//+1+2-2345454.5-564-6-4.6-67" 7028 GOTO 8000 7029 REM.1-4.4-1-++++++4-4.++++++++4.4.+-1-44-+++++++++++4.4-1- 7030 REM 7032 TITRS="C.O. A SELF ACTIVE" 7034 N=2 7036 COMS='RiC2C3R4M5" 7037 CNX$="4.341-1231-11-35-3" 7038 GOTO 8000 7039 REM +++++++++++++++++++++++++++4++++++++++++ 7010 REM/042 TITRI.=" FILTRE DE NOICH" 7014 N=3 1016 COMR1R2C3C1C5R6R7" 7017 CNX1,="4121-1-2.141.145645 :  : 42-15-257"/048 Goro 8000 70.£19 PEm ++++44++44+444+++++++44f++++14+++f++++++/050 REM/052 FILTRE PASSE BAS L C" 7054 1.4.2 7056 COMS="1112C3R1" 7057 CNX$="4123.2+1f2.21" 7058 GOTO 8000 7059 REM 4i4+44+4f4W44+44+4+4++444.4f4++#4++++++ 7060 REM -5- 7062 IITWe.." wffluIsr - OSCILLATEUR R C" 7064 N=4 7046 COMS..."C1C2C3R1R5R6R7RO"/067 CNXS="f121-2//f1+7-2354343-367/4.7i8"/068 GOTO 8000 7069 REM 44++4+++++++4+++++++++++4++++++++++++++/070 REM -6- 7072 I1TRS..." DEPHASEUR 6 R C "/073 N=6 7074 COMS.m."RIC2R3L4R5L6R/C8R9C10R11C12"/075 CNXS="f123 3/41+3 345+5//45" 7076 CNXS.CNX$i"-567+7//4-7-78949'7077 CNXS=CNX$+"//+9-9&10&114RJ1//+&11-&11£(12" 7078 GOTO 8000 7079 REM 4.4++444+444+444++4+4+4F+Ff+f44++44+f++++ 7080 REM -7-/081 IITRS." FILTRE ACTIF PASSEBANDE A AMPLI OP." 7083 N=3/086 COMS,."RIR2C3C4R5R6R/W8C9" 7087 CNXS="f1234-3-4+1+3-35645//47-1139" 7088 GOTO 8000 7089 REM ++++++++++++++++++++++++++++++++++++++++ 7090 REM -8-/091 TITRS." PASSE HANDF 1CHEBYCHEV 709Z N=41./093 COMS.."R1P2R3C41R5C6R/R8" 7094 CNXS="*18,-8/4-1427 2/.7//f3i1/+5+6" 7098 GOTO 8000 7099 REM 444-4.+4++44-++4•4.+f+++++4++14-+++++++4++++++ 7100 REM R000 COMS=COM$4"*" 8010 CNXS=CNX$4-"e" 8020 GOTO 250 Ve E Y1 -3- Fig. 2. — Le schéma d'un filtre passe-bas LC tel qu'il est défini dans la » bibliothèque » de circuits. VI Y3 Y2 Vs Y4 Novembre-Décembre 1982 MICRO-SYSTEMES — 153



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 26 nov/déc 1982 Page 1Micro Systèmes numéro 26 nov/déc 1982 Page 2-3Micro Systèmes numéro 26 nov/déc 1982 Page 4-5Micro Systèmes numéro 26 nov/déc 1982 Page 6-7Micro Systèmes numéro 26 nov/déc 1982 Page 8-9Micro Systèmes numéro 26 nov/déc 1982 Page 10-11Micro Systèmes numéro 26 nov/déc 1982 Page 12-13Micro Systèmes numéro 26 nov/déc 1982 Page 14-15Micro Systèmes numéro 26 nov/déc 1982 Page 16-17Micro Systèmes numéro 26 nov/déc 1982 Page 18-19Micro Systèmes numéro 26 nov/déc 1982 Page 20-21Micro Systèmes numéro 26 nov/déc 1982 Page 22-23Micro Systèmes numéro 26 nov/déc 1982 Page 24-25Micro Systèmes numéro 26 nov/déc 1982 Page 26-27Micro Systèmes numéro 26 nov/déc 1982 Page 28-29Micro Systèmes numéro 26 nov/déc 1982 Page 30-31Micro Systèmes numéro 26 nov/déc 1982 Page 32-33Micro Systèmes numéro 26 nov/déc 1982 Page 34-35Micro Systèmes numéro 26 nov/déc 1982 Page 36-37Micro Systèmes numéro 26 nov/déc 1982 Page 38-39Micro Systèmes numéro 26 nov/déc 1982 Page 40-41Micro Systèmes numéro 26 nov/déc 1982 Page 42-43Micro Systèmes numéro 26 nov/déc 1982 Page 44-45Micro Systèmes numéro 26 nov/déc 1982 Page 46-47Micro Systèmes numéro 26 nov/déc 1982 Page 48-49Micro Systèmes numéro 26 nov/déc 1982 Page 50-51Micro Systèmes numéro 26 nov/déc 1982 Page 52-53Micro Systèmes numéro 26 nov/déc 1982 Page 54-55Micro Systèmes numéro 26 nov/déc 1982 Page 56-57Micro Systèmes numéro 26 nov/déc 1982 Page 58-59Micro Systèmes numéro 26 nov/déc 1982 Page 60-61Micro Systèmes numéro 26 nov/déc 1982 Page 62-63Micro Systèmes numéro 26 nov/déc 1982 Page 64-65Micro Systèmes numéro 26 nov/déc 1982 Page 66-67Micro Systèmes numéro 26 nov/déc 1982 Page 68-69Micro Systèmes numéro 26 nov/déc 1982 Page 70-71Micro Systèmes numéro 26 nov/déc 1982 Page 72-73Micro Systèmes numéro 26 nov/déc 1982 Page 74-75Micro Systèmes numéro 26 nov/déc 1982 Page 76-77Micro Systèmes numéro 26 nov/déc 1982 Page 78-79Micro Systèmes numéro 26 nov/déc 1982 Page 80-81Micro Systèmes numéro 26 nov/déc 1982 Page 82-83Micro Systèmes numéro 26 nov/déc 1982 Page 84-85Micro Systèmes numéro 26 nov/déc 1982 Page 86-87Micro Systèmes numéro 26 nov/déc 1982 Page 88-89Micro Systèmes numéro 26 nov/déc 1982 Page 90-91Micro Systèmes numéro 26 nov/déc 1982 Page 92-93Micro Systèmes numéro 26 nov/déc 1982 Page 94-95Micro Systèmes numéro 26 nov/déc 1982 Page 96-97Micro Systèmes numéro 26 nov/déc 1982 Page 98-99Micro Systèmes numéro 26 nov/déc 1982 Page 100-101Micro Systèmes numéro 26 nov/déc 1982 Page 102-103Micro Systèmes numéro 26 nov/déc 1982 Page 104-105Micro Systèmes numéro 26 nov/déc 1982 Page 106-107Micro Systèmes numéro 26 nov/déc 1982 Page 108-109Micro Systèmes numéro 26 nov/déc 1982 Page 110-111Micro Systèmes numéro 26 nov/déc 1982 Page 112-113Micro Systèmes numéro 26 nov/déc 1982 Page 114-115Micro Systèmes numéro 26 nov/déc 1982 Page 116-117Micro Systèmes numéro 26 nov/déc 1982 Page 118-119Micro Systèmes numéro 26 nov/déc 1982 Page 120-121Micro Systèmes numéro 26 nov/déc 1982 Page 122-123Micro Systèmes numéro 26 nov/déc 1982 Page 124-125Micro Systèmes numéro 26 nov/déc 1982 Page 126-127Micro Systèmes numéro 26 nov/déc 1982 Page 128-129Micro Systèmes numéro 26 nov/déc 1982 Page 130-131Micro Systèmes numéro 26 nov/déc 1982 Page 132-133Micro Systèmes numéro 26 nov/déc 1982 Page 134-135Micro Systèmes numéro 26 nov/déc 1982 Page 136-137Micro Systèmes numéro 26 nov/déc 1982 Page 138-139Micro Systèmes numéro 26 nov/déc 1982 Page 140-141Micro Systèmes numéro 26 nov/déc 1982 Page 142-143Micro Systèmes numéro 26 nov/déc 1982 Page 144-145Micro Systèmes numéro 26 nov/déc 1982 Page 146-147Micro Systèmes numéro 26 nov/déc 1982 Page 148-149Micro Systèmes numéro 26 nov/déc 1982 Page 150-151Micro Systèmes numéro 26 nov/déc 1982 Page 152-153Micro Systèmes numéro 26 nov/déc 1982 Page 154-155Micro Systèmes numéro 26 nov/déc 1982 Page 156-157Micro Systèmes numéro 26 nov/déc 1982 Page 158-159Micro Systèmes numéro 26 nov/déc 1982 Page 160-161Micro Systèmes numéro 26 nov/déc 1982 Page 162-163Micro Systèmes numéro 26 nov/déc 1982 Page 164-165Micro Systèmes numéro 26 nov/déc 1982 Page 166-167Micro Systèmes numéro 26 nov/déc 1982 Page 168-169Micro Systèmes numéro 26 nov/déc 1982 Page 170-171Micro Systèmes numéro 26 nov/déc 1982 Page 172-173Micro Systèmes numéro 26 nov/déc 1982 Page 174-175Micro Systèmes numéro 26 nov/déc 1982 Page 176-177Micro Systèmes numéro 26 nov/déc 1982 Page 178-179Micro Systèmes numéro 26 nov/déc 1982 Page 180-181Micro Systèmes numéro 26 nov/déc 1982 Page 182-183Micro Systèmes numéro 26 nov/déc 1982 Page 184-185Micro Systèmes numéro 26 nov/déc 1982 Page 186-187Micro Systèmes numéro 26 nov/déc 1982 Page 188-189Micro Systèmes numéro 26 nov/déc 1982 Page 190-191Micro Systèmes numéro 26 nov/déc 1982 Page 192-193Micro Systèmes numéro 26 nov/déc 1982 Page 194-195Micro Systèmes numéro 26 nov/déc 1982 Page 196-197Micro Systèmes numéro 26 nov/déc 1982 Page 198-199Micro Systèmes numéro 26 nov/déc 1982 Page 200-201Micro Systèmes numéro 26 nov/déc 1982 Page 202-203Micro Systèmes numéro 26 nov/déc 1982 Page 204-205Micro Systèmes numéro 26 nov/déc 1982 Page 206-207Micro Systèmes numéro 26 nov/déc 1982 Page 208-209Micro Systèmes numéro 26 nov/déc 1982 Page 210-211Micro Systèmes numéro 26 nov/déc 1982 Page 212-213Micro Systèmes numéro 26 nov/déc 1982 Page 214-215Micro Systèmes numéro 26 nov/déc 1982 Page 216-217Micro Systèmes numéro 26 nov/déc 1982 Page 218-219Micro Systèmes numéro 26 nov/déc 1982 Page 220-221Micro Systèmes numéro 26 nov/déc 1982 Page 222-223Micro Systèmes numéro 26 nov/déc 1982 Page 224-225Micro Systèmes numéro 26 nov/déc 1982 Page 226-227Micro Systèmes numéro 26 nov/déc 1982 Page 228-229Micro Systèmes numéro 26 nov/déc 1982 Page 230