Gmsh ile Küre için Düzenli Örgü Oluşturma
Perşembe, 11 Nisan 2019

Gmsh açık-kaynak camiasının önde gelen önişlem yazılımlarından biri olmasıyla Bilgisayar Destekli Mühendislik ihtiyaçlarının karşılanmasında çok önemli imkânlar sağlamaktadır ve ilâve olarak sonişlem yeteneğine de sahiptir.

Bu bölümde, muhtemel kullanıcıların sonlu elemanlar çözümlerinde ihtiyaç duyabilecekleri 2 Boyutlu cidar elemanlarından müteşekkil bir tam düzenli örgünün yarım küre yüzeyi için nasıl tanımlanıp imâl edileceğini gösteren kısa bir betik sunulacaktır.

Gmsh - Küre için Düzenli Örgü

Aşağıdaki betik kopyalanıp, örneğin "küre.geo" gibi adlandırılabilecek bir metin dosyasının içine yapıştırdıktan sonra Gmsh ile açarak rahatça kullanabilir, değiştirebilir ve tercih edilen çözücüye uygun bir biçimde ihraç edilebilir. Betiğin mevcut haliyle elde edilen sonuç hemen yukarıdaki resimde görüldüğü gibi olacaktır.

♦ gmsh:
  1. // Kürevî kubbe için düzenli örgü
  2. // http://alarga.uskudar.biz
  3.  
  4. r0 = 3.1125; // yarıçap, m
  5. ds = 23; // her eğri üzerideki düğüm sayısı
  6.  
  7. alfa = 45;
  8. r1 = r0*Cos(alfa*Pi/180);
  9. z1 = r0*Sin(alfa*Pi/180);
  10. Point (1) = {0, 0, 0};
  11. Point (2) = {0, 0, z1};
  12. Point (3) = {0, 0, r0};
  13. Point (10) = {r0, 0, 0};
  14. Point (11) = {-r0, 0, 0};
  15. Point (12) = {0, r0, 0};
  16. Point (13) = {0, -r0, 0};
  17. Circle (10) = {10, 1, 12};
  18. Circle (11) = {11, 1, 12};
  19. Circle (12) = {11, 1, 13};
  20. Circle (13) = {13, 1, 10};
  21. Point (20) = {r1, 0, z1};
  22. Point (21) = {-r1, 0, z1};
  23. Point (22) = {0, r1, z1};
  24. Point (23) = {0, -r1, z1};
  25. Circle (20) = {20, 1, 22};
  26. Circle (21) = {21, 1, 22};
  27. Circle (22) = {21, 1, 23};
  28. Circle (23) = {23, 1, 20};
  29. Circle (100) = {10,1,20};
  30. Circle (101) = {11,1,21};
  31. Circle (102) = {12,1,22};
  32. Circle (103) = {13,1,23};
  33. Line Loop(200) = {100,-23,-103,13};
  34. Ruled Surface(200) = {200};
  35. Line Loop(201) = {101,21,-102,-11};
  36. Ruled Surface(201) = {201};
  37. Line Loop(202) = {102,-20,-100,10};
  38. Ruled Surface(202) = {202};
  39. Line Loop(203) = {103,-22,-101,12};
  40. Ruled Surface(203) = {203};
  41. Line Loop(204) = {20,-21,22,23};
  42. Ruled Surface(204) = {204};
  43. Transfinite Line {10,11,12,13,20,21,22,23,100,101,102,103} = ds;
  44. Transfinite Surface "*";
  45. Recombine Surface "*";

Gmsh: küre.geo

Yaftalar:
 
Telif Hakkı © 1997-2024 [uskudar.biz]
- sürüm 6.0.0 - Bütün Hakları Saklıdır.
Kullanım şartları için tıklayın!