File:Ondes P et S 2d 30.gif
מתוך Wikimedia Commons
קפיצה לניווט
קפיצה לחיפוש
Ondes_P_et_S_2d_30.gif (305 × 231 פיקסלים, גודל הקובץ: 866 ק"ב, סוג MIME: image/gif, בלולאה, 275 תמונות, 28 שניות)
מידע על הקובץ
נתונים מובְנים
כיתובים
תקציר
[עריכה]תיאורOndes P et S 2d 30.gif |
English: P- and S-wave sharing with time; made with Scilab and Jasc Animation Shop 2.02
Français : Ondes P et S se séparant avec le temps ; réalisé avec Scilab et Jasc Animation Shop 2.02 |
תאריך יצירה | |
מקור | נוצר על־ידי מעלה היצירה |
יוצר | Christophe Dang Ngoc Chan (cdang) |
אישורים והיתרים (שימוש חוזר בקובץ זה) |
GFDL |
גרסאות אחרות | smaller version: Image:Ondes P et S 2d 30 petit.gif; plane waves: Image:Ondes P et S 1d 30.gif |
Source code (scilab)
[עריכה] clear;
N=35; // taille de la grille
Naff = 30; // taille affichee
centre = N/2; // centre de la grille
L=2; // largeur (loi empirique)
points_initiaux_x = zeros(N,N); // initialisation
points_initiaux_y = zeros(N,N);
for i=1:N
for j=1:N
points_initiaux_x(i,j) = i-centre;
points_initiaux_y(i,j) = j-centre;
end
end
points_f1_x = points_initiaux_x;
points_f2_x = points_initiaux_x;
points_f1_y = points_initiaux_y;
points_f2_y = points_initiaux_y;
for i=1:N
for j=1:N
d = sqrt(points_initiaux_x(i,j)^2 + points_initiaux_y(i,j)^2);
distance(i,j) = d;
if d == 0 then
direction_x(i,j) = 0 ; direction_y(i,j) = 0 ;
else
direction_x(i,j) = points_initiaux_x(i,j)/d;
direction_y(i,j) = points_initiaux_y(i,j)/d;
end
end
end
// fonction
deff('[e]=profilP(r)','e=r*exp(-(r/L)^2)'); // profil empirique
deff('[e]=profilS(r)','e=r*exp(-(r/L)^2)');
// programme principal
unite=0;dizaine=0;centaine=0; // pour le nom de fichier
for r=0.1:0.2:centre*3.14 // rayon du front d'onde
intensiteP = r^(-1/3); // variation avec la distance
intensiteS = %pi/8*r^(-1/2);
for i=1:N
for j=1:N
// e = deplacement du point
eP = intensiteP*profilP(distance(i,j)-r);
points_f1_x(i,j) = points_initiaux_x(i,j) + eP*direction_x(i,j);
points_f1_y(i,j) = points_initiaux_y(i,j) + eP*direction_y(i,j);
eS = intensiteS*profilS(distance(i,j)-r*.5);
x = points_f1_x(i,j) ; y = points_f1_y(i,j);
points_f2_x(i,j) = x*cos(eS) + y*sin(eS); // rotation
points_f2_y(i,j) = x*sin(eS) - y*cos(eS);
end
end
// dessin
clf;
plot2d(0,0,-1,"010"," ",[-Naff/2,-Naff/2,Naff/2,Naff/2])
for i=1:N
xpoly(points_f2_x(i,:),points_f2_y(i,:));
xpoly(points_f2_x(:,i),points_f2_y(:,i));
end
nom='test\test'+code2str(centaine)+code2str(dizaine)+code2str(unite)+'.gif';
xs2gif(0,nom,0);
unite = unite+1;
if unite == 10 then
dizaine = dizaine + 1;
unite = 0 ;
end
if dizaine == 10 then
centaine = centaine + 1;
dizaine = 0 ;
end
end
רישיון
[עריכה]אני, בעל זכויות היוצרים על היצירה הזאת, מפרסם אותה בזאת תחת הרישיונות הבאים:
מוענקת בכך הרשות להעתיק, להפיץ או לשנות את המסמך הזה, לפי תנאי הרישיון לשימוש חופשי במסמכים של גנו, גרסה 1.2 או כל גרסה מאוחרת יותר שתפורסם על־ידי המוסד לתוכנה חופשית; ללא פרקים קבועים, ללא טקסט עטיפה קדמית וללא טקסט עטיפה אחורית. עותק של הרישיון כלול בפרק שכותרתו הרישיון לשימוש חופשי במסמכים של גנו.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
הקובץ הזה מתפרסם לפי תנאי רישיון קריאייטיב קומונז ייחוס-שיתוף זהה 3.0 לא מותאם. | ||
| ||
תבנית רישוי זו הוספה לקובץ כחלק מעדכון רישיון GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue |
הנכם מוזמנים לבחור את הרישיון הרצוי בעיניכם.
היסטוריית הקובץ
ניתן ללחוץ על תאריך/שעה כדי לראות את הקובץ כפי שנראה באותו זמן.
תאריך/שעה | תמונה ממוזערת | ממדים | משתמש | הערה | |
---|---|---|---|---|---|
נוכחית | 13:09, 20 בנובמבר 2006 | 231 × 305 (866 ק"ב) | Cdang (שיחה | תרומות) | {{Information |Description={{en|P- and S-wave sharing with time; made with [http://www.scilab.org/ Scilab] and Jasc Animation Shop 2.02}} {{fr|Ondes P et S se séparant avec le temps ; réalisé avec [http://www.scilab.org/ Scilab] et Jasc Animation Shop |
אין באפשרותך לדרוס את הקובץ הזה.
שימוש בקובץ
אין דפים המשתמשים בקובץ זה.
שימוש גלובלי בקובץ
אתרי הוויקי השונים הבאים משתמשים בקובץ זה:
- שימוש באתר de.wikipedia.org
- שימוש באתר ja.wikipedia.org