home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / fr / tviacs30 / demoiacs.hlp (.txt) < prev    next >
Borland Turbo Vision Help  |  1994-05-22  |  13KB  |  452 lines
  1.  TVIACS
  2.   Ceci repr
  3. sente le logiciel  associ
  4.  au cours d'Informatique  Appliqu
  5.   au Calcul Scientifique du C.N.A.M. Centre du Pays de Gex par Pierre
  6.   BETTEVAUX pendant l'ann
  7. e universitaire 1992/93 et remercie son auditoire
  8.   pour l'enthousiasme qu'il a manifest
  9.  pendant son cours.
  10.   Ce logiciel est utilisable apres r
  11. glement de la licence dont le prix
  12.   est fix
  13.  150 FRS ou 40 FS (Pensez au travail fourni par l'auteur...)
  14.   (Disquette 3.5 HD + envoi Distingo ou recommand
  15.  compris)
  16.   Il contient des programmes d'Analyse Num
  17. rique El
  18. mentaire
  19.   Bibliographie:
  20.   I.A.C.S.            JH Sa
  21. ac   Edition Dunod Informatique
  22.   Numerical Methods   JH Mathews Prentice International Editions   <PgDown>
  23.   Le syst
  24. me de menus utilise abondamment celui de l'interface Turbo Vision
  25.   du compilateur Turbo Pascal version 6.0 ou plus
  26.   La touche <F10> active la barre des menus
  27.   Les menus s'ouvrent par frappe d'une combinaison <Alt> et lettre
  28.   surbrillance,ou d
  29. placement par touches Fl
  30. ches et <Enter>
  31.   Par exemple, le menu Integration s'ouvre avec Alt-I
  32.                        Equa Diff                Alt-E
  33.    L'utilisation du logiciel est plus pratique en utilisant une souris et
  34.    par cliquage GAUCHE exclusivement! sur un point du sous-menu s
  35. ctionn
  36.    et d
  37. placement possible comme plus haut la selection ouvre une autre
  38.    fen
  39. tre affichant d'autres options.                             <PgDown>
  40.    L'aide contextuelle (touche F1) vous indique le code source Pascal du
  41.    programme correspondant 
  42.  la m
  43. thode num
  44. rique utilis
  45.    La touche situ
  46.  gauche <Esc> permet un retour au menu pr
  47.    Pressez ou cliquez <F10> pour retourner au Menu;
  48.    Frappez Esc pour refermer l'
  49. cran d'aide g
  50. e par la touche F1.
  51. Ce logiciel utilise une librairie (analyseur syntaxique) permettant de reconna
  52. tre des cha
  53. nes de caract
  54. res qui sont des 
  55. critures correctes de fonctions,puis ensuite de les 
  56. valuer lorsque les valeurs des variables ont 
  57. es. J
  58. Les cha
  59. nes utilisables sont des expressions form
  60. es avec les op
  61. rateurs L
  62.  +,-,*,/,(Le signe ^ d
  63. signe l'Exponentiation), les 26 lettres de  <PgDown>
  64. l'alphabet minuscules ou Majuscules pour d
  65. signer 26 variables possibles. Les expressions peuvent 
  66. crites avec des majuscules ou des minuscules en intercalant des blancs. Cette librairie permet aussi d'
  67. crire des d
  68. es formelles 
  69.  partir de fonctions entr
  70. es pr
  71. cedemment (voir par exemple,la m
  72. thode de Newton) 
  73. Les fonctions admises sont: -
  74.        ABS:                  Valeur absolue
  75.        COS,SIN,TG,CH,SH,TH:  Cos,sin,tg trigonom
  76. triques et hyperboliques
  77.        ACH,ASH,ATH:          Arg cos hyper,arg sin hyper,arg tg hyperbolique
  78.        ACOS,ASIN,ATAN:       Arc cos,arc sinus,arc tg
  79.        EXP,LN:               Exponentielle,Log Neperien
  80.        SQR,SQRT:             Carr
  81. ,Racine Carr
  82.        FRAC:                 Partie Fractionnaire
  83.        INT:                  Partie Enti
  84.        L'Argument d'une Fonction 
  85. mentaire doit 
  86. tre entre parenth
  87.    Un autre logiciel shareware appel
  88.  TVMG associ
  89.  au cours de Math
  90. matiques
  91. rales du C.N.A.M. que j'ai enseign
  92.  au Centre du Pays de Gex
  93.    a 
  94. velopp
  95.    Il contient des programmes de Math
  96. matiques G
  97. rales pouvant interesser:
  98.    -les auditeurs du Conservatoire National des Arts et M
  99. tiers
  100.     pour l'unit
  101.  de valeur du D.P.C.T. Maths G
  102. rales A1 ou A2
  103.    -les 
  104. ves de Classes Pr
  105. paratoires des Lyc
  106.    -les 
  107. tudiants du Premier Cycle Universitaire (DEUG,IUT,BTS,..)
  108.     Th
  109. mes trait
  110. s par le logiciel:
  111.    - D
  112. rivation symbolique
  113.    - Int
  114. gration Num
  115. rique (Simpson)
  116.    - D
  117. veloppement de Taylor ou Mac Laurin
  118.    - Polynome:Somme,produit,
  119. valuation ponctuelle,d
  120. e,PGCD,
  121.             division euclidienne
  122.    - Analyse Combinatoire
  123.    - Equation diff
  124. rentielle ordre 1: M
  125. thode d'Euler
  126.    - Calcul Matriciel(Produit,d
  127. terminant,Polynome caract
  128. ristique,Gauss,..),
  129.    La licence a 
  130.  150 FF
  131.    (disquette 3.5 HD +envoi recommand
  132.  compris)
  133.    Pour tout renseignement compl
  134. mentaire ,
  135. crire 
  136.    Pierre BETTEVAUX
  137.    PBI
  138.    74580 Viry
  139.  Integration  
  140.  Contient les m
  141. thodes d'interpolation et  d'int
  142. gration usuelles
  143.  Trapezes
  144.  Simpson
  145.  Horner
  146.  Lagrange
  147.  Boole
  148.  Integration
  149. Horner
  150.    Algorithme Pascal de la m
  151. thode d'H
  152. rner:
  153. Procedure HornerProc; Var 
  154.   A,B:TAB;  (* Tableau des coefficients des polyn
  155. mes initial et d'Horner *)
  156.   P0,       (* valeur polyn
  157. me au point x *)
  158.   x:Real;
  159.   N,i:Integer;
  160. Begin 
  161. End; (* HornerProc *) 
  162.  Integration
  163. Lagrange (F2) 
  164.    Algorithme Pascal de la m
  165. thode de Lagrange:
  166. Procedure lagrange; Var X,Y:tab; 
  167.     term,sum:Real; (* xx 
  168. vite la confusion X tableau X Variable *)
  169.     i,j:Integer;   (* compteurs indices *)
  170.     N:Integer;(* Degre polynome d'interpolation *)
  171. Begin 
  172. End; 
  173.  Integration
  174. Trapezes (F3)
  175.    Algorithme Pascal de la m
  176. thode des Trap
  177. Procedure trapeze; Var a,b:Real; 
  178.     n  :Integer;  (* Bornes d'integration et nombre de subdivisions *)
  179.     h,              (* Pas de subdivision *)
  180.     x1,x2,s:Real;   (* Aire subdivision *)
  181.     ch:char;
  182. Begin 8
  183.   Writeln('Methode des trapezes...');
  184.   Writeln('===========================================================');
  185.   Writeln('Test: f(x)= 1/x  a = 1, b= 2 ,result = Ln 2 = 0,69377140318');
  186.   Writeln('                 pour N = 10 subdivisions');
  187.   Writeln('===========================================================');
  188.   BigCursor; (* voir le curseur!!! *)
  189.   fl(ff);    (* Entr
  190. e fonction cha
  191. ne de la librairie de l'auteur *)
  192.   Writeln;
  193.   Writeln('Initialisation bornes d''integration...');
  194.   Write('Entr
  195. e a = ');Readln(a);
  196.   Write('Entr
  197. e b = ');Readln(b);
  198.   Writeln;
  199. Repeat 
  200.   Write('Entree nombre de subdivisions ? ');Readln(n);
  201.     h:=(b-a)/n;
  202.     x1:=a;s:=0;x2:=0;
  203.     While (x2 <= b) do
  204.     Begin
  205.      x2:=x1+h;
  206.      s := s + (h/2)*(f(x1) + f(x2) );
  207.      x1:=x2;
  208.     End;
  209.     HideCursor;(* Cach
  210.  le pav
  211.  du curseur  *)
  212.   Writeln('valeur approch
  213. e de l''int
  214. grale : ',s,'  Erreur: ',s - Ln(2));
  215.   Writeln('Other iterations   press any key        <Esc>=Retour Menu ');
  216.   ch:= Readkey;
  217. Until (upcase(ch)=#27); End; (* trapeze *) 
  218.  Integration
  219. Simpson (F4)
  220.    Algorithme Pascal de la m
  221. thode de Simpson
  222. Procedure simpson; Var a,b,n:Integer;  (* Bornes d'integration et nombre de subdivisions *) v
  223.     h,              (* Pas de subdivision *)
  224.     x1,x2,s:Real;   (* Aire subdivision *)
  225.     ch:char;
  226.     milieu:Real;
  227. Begin 
  228. End; (* simpson *) 
  229.  Integration
  230. Boole Villarceau
  231. Procedure Boole_Villarceau; Var 
  232.     (* Bornes d'integration et nombre de subdivisions *)
  233.     a,b,n:Integer;
  234.     h,            (* Pas de subdivision *)
  235.     x1,x2,s:Real; (* Aire subdivision *)
  236.     ch:char;
  237.     omega:TAB_Real;
  238.     milieu,aux1,aux2,aux3:Real; (* pour all
  239. ger la formule.. *)
  240. Begin 
  241. End; (* Boole Villarceau *) 
  242.  Fichier
  243. Quitter
  244.   (Alt-X)
  245. La commande Quitter provoque la sortie du programme. 
  246.  Equa. Diff. 
  247.  Contient les diff
  248. rentes m
  249. thodes de r
  250. solution
  251. rique d'
  252. quations diff
  253. rentielles du premier ordre
  254.  Conditions
  255. Initiales
  256.  Euler
  257.  PointMil
  258.  Heune
  259.  Equa. Diff.
  260. Conditions Initiales  
  261.  Saisir les conditions initiales de l'
  262. quation diff
  263. rentielle
  264.  T0,TMax,Y0,N
  265.  Equa. Diff.
  266. Euler Normale RK1 (F7)
  267. Algorithme Pascal de la m
  268. thode d'Euler b
  269. Procedure eulernor; (* Yn+1 = Yn + h*f(Tn,Yn) *) Var k:Integer;ro:Real; Begin methode(' Euler'); !
  270.   t:=t0;y:=y0;k:=1;
  271.   Repeat
  272.     k:=k+1;
  273.     ro:=yprime(t,y);
  274.     y:=y+h*ro;
  275.     t:=t+h;
  276.     resultats(k);(*  gotoxy(co,li+k);Write(y,'   ',abs(y-z(t,y)));*)
  277.                  (*  Ecrire Y calcul
  278.  et erreur par rapport
  279.                      
  280.  la solution exacte z(t,y) *)
  281.  Until (k>kmax-2);
  282. End; 
  283.  Equa. Diff.
  284. Point Milieu RK2 (F8)
  285. Algorithme Pascal de la m
  286. thode du Point milieu U
  287. Procedure pointmil;  Yn+1 = Yn + h*f(Tn+h/2,Yn+h/2*f(Tn,Yn)) Var p,q,ro:Real; Begin 
  288. End; 
  289.  Equa. Diff.
  290. Heune RK2
  291. Procedure heune; (* Yn+1=Yn+h/2*(f(tn,yn)+f(Tn+1,Yn+h*f(Tn+1,Yn+h*f(Tn,Yn)) *) Var q,ro:Real; Begin 
  292. End; 
  293.  Equa. Diff.
  294. Runge-Kutta RK4
  295.  Algorithme Pascal de la m
  296. thode Runge-Kutta d'ordre 4
  297. Procedure rk4; Var k1,k2,k3,k4,z1,z2,z3,z4,ro:Real; Begin 
  298. End;(*Rk4*) 
  299. thodes It
  300. ratives  
  301. Contient les diff
  302. rentes m
  303. thodes de r
  304. solution d'
  305. quation du type f(x)=0 !
  306.  PointFixe
  307.  Newton
  308.  Dichotomie
  309. rations
  310. Point Fixe (F9)
  311. Procedure point_fixe; Var gprime,xinit:Real; 
  312.         nmax:Integer;
  313.         Begin
  314.                   Clrscr;
  315.            Writeln('M
  316. thode du point fixe');
  317.            Writeln('            Tests:');
  318.            Writeln('    x0       f(x)=0            Valeur Approch
  319.            Writeln('    2.3      f(x)=atan(x)-x/2        2.33112237');
  320.            Writeln('1.9 et 3.8   f(x)= -4+3x-x*x/2');
  321.            Writeln('1.9 et -1.9  g(x)=0.4+x-0.1x*x');
  322.            Writeln('    1.0      exp(x)-2-x                       ');
  323.            Writeln('   -2.4      exp(x)-2-x                       ');
  324.            Writeln('  [0.8,1.6]  cos(x)+1-x                       ');
  325.            Writeln;
  326.        Repeat
  327.            fl(ff);   (* Entr
  328. e f(x) del'
  329. quation f(x) = 0 *)
  330.           BigCursor;
  331.          (* Write('Nombre iterations = ');Readln(nmax); *)
  332.            erreur := 1;
  333.            Write('start point x0= ');Readln(x0);
  334.           Write('Precision:');Readln(precision);
  335.            n:=1;x1:=f(x0);xinit:=x0;
  336.            HideCursor;
  337.            While ( erreur > precision  ) do
  338.              Begin
  339.                x1:=f(x0);
  340.                erreur := abs(x1-x0);
  341.                gprime:=abs((x0-x1)/(xinit-x1));
  342.                Writeln(n:2,'   ',x1:3:10,'  erreur: ',erreur:3:10,
  343.                       ' gprime: ',gprime:2:2);
  344.                x0:=x1;
  345.                n:= n+1;
  346.              End;
  347.              Writeln('Valeur Approch
  348. e= ',x1:3:10);
  349.              Writeln('erreur=',erreur:3:10);
  350.              Writeln('Autre 
  351. quation  ou <Esc>=Retour Menu');
  352.              ch :=Readkey;
  353.          Until (upcase(ch)=#27);
  354. End; 
  355. rations
  356. Newton
  357. Procedure Newton; Begin 
  358. End; 
  359. rations
  360. Dichotomie
  361.  Algorithme de la m
  362. thode dichotomique
  363.  Procedure dichotomie;
  364. Var a,b,m:Real; Begin 
  365. End; 
  366. mes Lin
  367. aires  
  368.  Contient Alg
  369. bre matricielle et r
  370. solution des syst
  371.  Matrices
  372.  Gauss
  373.  Seidel
  374.  Moindres
  375.  Syst
  376. mes Lin
  377. aires
  378. bre Matricielle)
  379.  ALGEBRE MATRICIELLE
  380. Procedure TRANSP(a:mat;Var tp:mat); (* Matrice transpos
  381. e *) Begin X
  382.   for i:=1 to n do
  383.     for j:=1 to n do
  384.       Begin
  385.        tp[i,j]:=a[j,i];
  386.        End;
  387. End; =
  388. Procedure PRODMAT(A1,A2:MAT;Var C:MAT); Var sum:Real; Begin 
  389.       for I:=1 to  N do
  390.        Begin
  391.         for J:=1 to N do
  392.          Begin
  393.            sum:=0;
  394.            for K:=1 to N  do
  395.            sum:=sum+A1[I,K]*A2[K,J];
  396.            C[I,J]:=sum;
  397.          End;
  398.         End;
  399.                        Writeln;
  400. End;(* Prod_mat *) ;
  401. Procedure RANG; (*Entr
  402. e Rang Matrice *) Begin BigCursor; 8
  403.   Writeln('Entr
  404. e Rang Matrice ou Vecteur:');Readln(N);
  405. End; >
  406. Procedure PROD_SCAL(COLO1:vec;COLO2:vec;Var sum:Real); Begin t
  407.           for i:=1 to N do
  408.            sum:=0;
  409.              for i:=1 to n do
  410.            sum:=sum+COLO1[I]*COLO2[i];
  411. End;(* Prod_Scal *) 
  412.  Syst
  413. mes Lin
  414. aires
  415. Gauss
  416. Procedure ENTREEB;  (* Entr
  417. e Matrice et vecteur syst
  418. me *) Begin 
  419. End;(*Entreeb*) Q
  420. Procedure GAUSS; (*Triangularisation par la m
  421. thode de GAUSS avec pivot total*) 
  422. Begin  
  423.     (*Recherche pivot non nul*)
  424. End;  (*GAUSS*) T
  425. Procedure SYSTEME;(*R
  426. solution syst
  427. me triangulaire par Back Substitution *) Begin 
  428. End;(*syst
  429. me*) 
  430.  Syst
  431. mes Lin
  432. aires
  433. Seidel
  434. Procedure GAUSS_SEIDEL; Var Y
  435.     a:mat;
  436.     P0,P1,B:vec;
  437.     niter,count,l:Integer;
  438.     tolerance,precision,sum:Real;
  439. Begin 
  440. End; (* Gauss_Seidel *) 
  441.  Moindres Carr
  442. Droite 
  443. Procedure ENTREEPOINTS; Begin 
  444. End;(*Entreepoint*) G
  445. Procedure LEAST_SQUARES_LINE; Begin  Writeln('Least Squares Line..'); 
  446.        Writeln('exemple IACS page 98');
  447.        Writeln('xi:  -2  -1    0  +1   +2');
  448.        Writeln('yi:  +1  +2   +2  +3   +4');
  449.        Writeln('R
  450. sultat:Y = 0.7 X + 2.4 ');
  451. End; (* least_square_line; *) 
  452.