1// +=====================================================================+
2// | Un bug en arithmetique complexe.                                    |
3// +---------------------------------------------------------------------+
4// | 01/09/02 : Les tableaux de complexes ne sont pas dispos             |
5// | 11/09/03, V1.34                                                     |
6// |   variable du contexte sont ecrasees c'est le cas de j              |
7// |                                                                     |
8// +=====================================================================+
9
10
11   complex z1, z2, j    ;
12   real    ReZ, ImZ ;
13
14   j = 0 + 1i ;
15   cout << "j = " << j <<" attendu : i" << endl ;
16
17   cout << "trace 1 de j = " << j  << endl ;
18   ReZ = 4.5 ; ImZ = 6.7 ;
19   cout << "ReZ = " << ReZ << " attendu : 4.5 " << endl ;
20   cout << "ImZ = " << ImZ << " attendu : 6.7 " << endl ;
21   cout << "trace 2 de j = " << j  << endl ;
22   cout << "Voila, j est ecrase par 0 + (ReZ) i !" << endl ;
23
24   cout << endl ;
25   cout << "Le meme Pb pour les reels ? " << endl ;
26
27
28   real r1, r2, jR   ;
29
30   jR = 2 ;
31   cout << "jR = " << jR <<" attendu : 2" << endl ;
32
33   cout << "trace 1 de jR = " << jR  << endl ;
34   ReZ = 4.5 ; ImZ = 6.7 ;
35   cout << "ReZ = " << ReZ << " attendu : 4.5 " << endl ;
36   cout << "ImZ = " << ImZ << " attendu : 6.7 " << endl ;
37   cout << "trace 2 de jR = " << jR  << endl ;
38   cout << "NON jR n'est pas ecrase" << endl ;
39   cout << endl ;
40