EVARISTE REGRESSI WINDOWS 1.0 £12 NOM VAR Bt y g0 g g1 g2 x1 x2 xp yp yp1 yp2 £12 GENRE VAR 0 1 1 1 1 1 1 1 1 1 1 1 £12 UNITE VAR £12 FORMAT VAR 0 0 0 0 0 0 0 0 0 0 0 0 £12 AFF VAR 0 0 0 0 0 0 0 0 0 0 0 0 £12 PRECISION VAR 4 5 5 5 5 5 5 5 5 5 5 5 £12 MECA VAR 0 0 0 0 0 0 0 0 0 0 0 0 £1 SIGNIF VAR £1 INCERTITUDE £2 NOM CONST K t £2 UNITE CONST £2 SIGNIF CONST £2 FORMAT CONST 0 0 £2 PRECISION CONST 4 4 £2 AFF CONST 0 0 £1 PANEL CONST K £10 NOM SAUVE £10 UNITE PARAM £1 TRIGO 0 £1 uniteSI 0 £1 LOGBOX 0 £1 PAGESINDEP 0 £44 MEMO GRANDEURS 'Approche statistique du ferromagnétisme '*********************************************** 'Utilisation à B appliqué nul: ' se placer à t=0.25 et faire varier K de 0.5 à 5 '-> mise en évidence d'une aimantation stable 'non nulle pour T1 'Utilisation à B non nul: ' se placer à K=3 et animer le temps t de 0 à 1 '-> déplacement du point de fonctionnement 'et tracé du cycle d'hystérésis mis en évidence 'avec l'option trace ... '________________________________ 'Calculs: '********* 'aimantation relative d'après Boltzmann : ' K est en 1/T et K=1 pour T=Tc y=th(K*Bt) 'champ appliqué alternatif fonction du temps Bmax=1.5 B=Bmax*if(t<0.5,4*t-1,(3-4*t)) 'champ de Weiss (interaction) ' g pour éviter les changements d'échelle ' affiche g1 à l'aller, g2 au retour g0=Bt-B g=if(abs(g0)<1.2,g0,1/0) g1=if(t<0.5,g,1/0) g2=if(t>0.5,g,1/0) 'recherche des intersections 'extrèmes' xp1=solve(th(K*xp1)-(xp1-B),-10,0) xp2=solve(th(K*xp2)-(xp2-B),0,10) 'affichage de l'intersection stable 1 ou 2 x1=if(0xp2,xp1,xp2) xp=if(t<0.5,x1,x2) yp=th(K*xp) yp1=if(t<0.5,yp,1/0) yp2=if(t>0.5,yp,1/0) £2 ACQUISITION SIMULATION £0 GRAPHE VAR &5 LIGNE 0 0 0 0 0 &5 COULEUR 16711680 65280 32768 255 16711935 &5 MOTIF 2 5 5 5 5 &5 X Bt Bt Bt xp xp &5 Y y g1 g2 yp1 yp2 &5 TRACE 1 1 1 2 2 &5 MONDE 1 1 1 1 1 &3 GRADUATION 0 0 0 &3 ZERO 1 1 1 &16 OPTIONS 8 2 0 3 4 0 0 0 0 0 0 0 5 0 1 1 &22 ANIMATION manuelle 7 1.00000000000000E-0001 K 5.00000000000000E-0001 5.00000000000000E+0000 1 0 5.00000000000000E-0001 1.00000000000000E-0002 t 0.00000000000000E+0000 1.00000000000000E+0000 1 0 2.50000000000000E-0001 1.15200000000000E+0002 Npoints 1.28000000000000E+0002 1.28000000000000E+0003 0 0 1.28000000000000E+0002 £1 PAGE COMMENT &128 VALEUR VAR -3 -2.953125 -2.90625 -2.859375 -2.8125 -2.765625 -2.71875 -2.671875 -2.625 -2.578125 -2.53125 -2.484375 -2.4375 -2.390625 -2.34375 -2.296875 -2.25 -2.203125 -2.15625 -2.109375 -2.0625 -2.015625 -1.96875 -1.921875 -1.875 -1.828125 -1.78125 -1.734375 -1.6875 -1.640625 -1.59375 -1.546875 -1.5 -1.453125 -1.40625 -1.359375 -1.3125 -1.265625 -1.21875 -1.171875 -1.125 -1.078125 -1.03125 -0.984375 -0.9375 -0.890625 -0.84375 -0.796875 -0.75 -0.703125 -0.65625 -0.609375 -0.5625 -0.515625 -0.46875 -0.421875 -0.375 -0.328125 -0.28125 -0.234375 -0.1875 -0.140625 -0.09375 -0.046875 0 0.046875 0.09375 0.140625 0.1875 0.234375 0.28125 0.328125 0.375 0.421875 0.46875 0.515625 0.5625 0.609375 0.65625 0.703125 0.75 0.796875 0.84375 0.890625 0.9375 0.984375 1.03125 1.078125 1.125 1.171875 1.21875 1.265625 1.3125 1.359375 1.40625 1.453125 1.5 1.546875 1.59375 1.640625 1.6875 1.734375 1.78125 1.828125 1.875 1.921875 1.96875 2.015625 2.0625 2.109375 2.15625 2.203125 2.25 2.296875 2.34375 2.390625 2.4375 2.484375 2.53125 2.578125 2.625 2.671875 2.71875 2.765625 2.8125 2.859375 2.90625 2.953125 &2 VALEUR CONST 0.5 0.25 &2 INCERT CONST 1E-26 1E-26 &2 OPTIONS 1 1 &10 VALEUR PARAM 1E-26 1E-26 1E-26 1E-26 1E-26 1E-26 1E-26 1E-26 1E-26 1E-26 &10 INCERT PARAM 0 0 0 0 0 0 0 0 0 0 &10 STDEV PARAM 0 0 0 0 0 0 0 0 0 0 &1 ORIGINE TEMPS 13/01/2001