ReadyPlanet.com
dot dot dot
dot
สำหรับสมาชิก
ชื่อผู้ใช้ :
รหัสผ่าน :
เข้าสู่ระบบอัตโนมัติ :
bullet ลืมรหัสผ่าน
bullet สมัครสมาชิก
dot
dot
dot
bulletหลักโหรโดนใจ
bulletหลักโหร-ศิวเมษ
bulletโหรา-ประวัติศาสตร์
bulletโหรา-ไอที
bulletโหรา-โปรแกรม
bulletDemo/Freeware
bulletโปรแกรม Virgo07
bulletDelphi กับ Swiss Ephemeris
bulletผูกดวงออนไลน์กับ Astrotheme.com
bulletพิกัดภูมิศาสตร์ ประเทศไทย
bulletwebboard ผลัดกันเขียนเวียนกันอ่าน
dot
dot
bulletซินแส ณัฏฐชัย
bulletกำพล ภาระโภชน์ (Astroman) - ยูเรเนียน
bulletโรงเรียนโหราศาสตร์ไทยมาตรฐาน
bulletอดิเทพ ศรีรัตนไพฑูรย์ - ยูเรเนียน
bulletอาคม ชูจันทร์ - ยูเรเนียน, ลายมือ
bulletชาญชัย เดชะเสฏฐดี (ผู้ร่วมเขียนบทความ)
bulletอาจารย์ ธนกร ตันติถาวร - ยูเรเนียน
dot
dot
bulletประวัติ
bulletการติดต่อ
bulletภาพยนตร์ประวัติศาสตร์
bulletRojnChin's Channel (YouTube)
bulletRojnChin's Album (Picasa)
bulletร้านค้าออนไลน์
dot
dot
bulletโรงเรียน โหราศาสตร์ ฮัมบูร์ก ประเทศเยอรมัน
bulletAstro.com
bulletพยากรณ์ดอทคอม
bulletมูลนิธิสมาคมโหรแห่งประเทศไทยฯ
bulletโหราศาสตร์แนวอาจารย์จรัญ พิกุล
bulletโหรายูเรเนียนดอทคอม
bulletบ้านฮวงจุ้ย
bulletวารสารโหราเวสม์
bulletUranianSoft.com
bulletดูดวงกับ GooSiam.com
bulletHora-Yoga by Suriyan Juntra
bulletAstorSimple.com
bulletUranian Fengshui โดย หมอทรัพย์
bulletLatitude&Longitude เมืองต่างๆ ทั่วโลก
bulletรวม Link เว็บอื่นๆ ที่น่าสนใจ
bulletแผนผังเว็บไซต์ (Site Map)






ภาพยนตร์ประวัติศาสตร์


CURRENT MOON


dot
คำนวณ ดวงไทยนิรายนะ ด้วย Swiss Ephemeris article
วันที่ 04/08/2012   11:36:42

เคยมีผู้อ่านท่านหนึ่งสอบถามเกี่ยวกับการคำนวณสมผุสดวงแบบไทยที่ตัด อยนางศแบบลาหิรี (แบบที่เราเรียกกันจนชินว่า "ปฏิทินอาจารย์เทพย์" ตามชื่อของอาจารย์ เทพย์ สาริกบุตร ซึ่งเป็นผู้จัดทำหนังสือปฏิทินโหราศาสตร์ไทยระบบนี้เผยแพร่อย่างกว้างขวาง)

จะมีวิธีการอย่างไรบ้าง ซึ่งผมก็ได้ตอบท่านไปทางอีเมล์ไปแล้ว และเพื่อให้เป็นประโยชน์ต่อท่านอื่นๆ ด้วย จึงขอนำคำตอบในอีเมล์ดังกล่าวมาเรียบเรียงเป็นบทความเผยแพร่ (เป็นการเขียนโปรแกรมด้วย Delphi ต้องขออภัยผู้ถนัดภาษาโปรแกรมอื่นที่ต้องใช้ทักษะในการดัดแปลงซอร์สโค้ดเองเช่นเคย) ดังนี้

ในชุดตัวอน่างโปรแกรม RojnDelphiSWE.zip ที่เปิดให้ดาวน์โหลด จะมีให้เลือกว่าจะผูกดวงแบบสายนะหรือนิรายนะ แต่ถ้าดูในซอร์สโค้ดเองจะหายากสักนิด เพราะผมไม่ค่อยได้คอมเมนต์อะไรไว้ โดยหลักคือ ตามปกติเวลาเราคำนวณสมผุสดาวในโหราศาสตร์ยูเรเนียนซึ่งเป็นระบบสายนะ จะเขียนโค้ดออกมาในทำนองนี้

iflag := seflg_speed;
 for i := SE_SUN to SE_POSEIDON do if (i<=SE_TRUE_NODE) or (i>=SE_CUPIDO) then
   begin
     rflag := swe_calc(tjdet, i, iflag, xx[0], serr);
    ....
    ....
   end;

เมื่อจะคำนวณเป็นสมผุสนิรายนะแบบลาหิรี จะเปลี่ยนบรรทัดแรกเป็น

    iflag := seflg_speed+SEFLG_SIDEREAL;
    swe_set_sid_mode(SE_SIDM_LAHIRI, 0, 0);

(ส่วนจะคำนวณถึงแค่มฤตยูตามแนวคิดแบบไทยๆ หรือเติมเนปจูนพลูโต ก็แก้โค้ดบรรทัดที่สองเอานะครับ ถ้าไม่แก้ก็จะได้ดาวทิพย์ยูเรเนียนมาประดับดวงไทยครบชุดเลย)

ถ้าจะคำนวณแต่ค่าอยนางศเฉยๆ ก็ใช้ว่า

    swe_set_sid_mode(SE_SIDM_LAHIRI, 0, 0);
    swe_get_ayanams(tjdet);

ทั้งนี้ พึงทราบว่า โหราศาสตร์ระบบนิรายนะนั้น ยังมีความเห็นแตกต่างกันว่า จุดเมษควรเริ่มต้น ณ ที่ใด ค่าอยนางศ หรือ ค่าความแตกต่างระหว่างจุดเมษของระบบนิรายนะกับระบบสายนะ ควรเป็นเท่าใด ต่างอาจารย์ต่างก็กำหนดทฤษฎีและหลักการคำนวณของตนเอง แต่นักโหราศาสตร์ไทยที่ผูกดวงแบบดาราศาสตร์ตัดอยนางศนั้น จะใช้อยนางศแบบลาหิรีครับ (รายละเอียดศึกษาได้จากบทความของ พล.อ.ต. ม.ร.ว. สุกษม เกษมสันต์  ในคอลัมน์ บทความสมทบ) ซึ่ง Swiss Ephemeris ได้กำหนดค่าตัวแปรไว้เอาใจผู้ใช้งานระบบนิรายนะแทบจะทุกค่ายไว้แล้ว ค่าที่ใช้กำหนดชนิดอยนางศทั้งหมด ได้แก่

   //sidereal modes, for swe_set_sid_mode()
   SE_SIDM_FAGAN_BRADLEY    : Longint = 0;
   SE_SIDM_LAHIRI           : Longint = 1;
   SE_SIDM_DELUCE           : Longint = 2;
   SE_SIDM_RAMAN            : Longint = 3;
   SE_SIDM_USHASHASHI       : Longint = 4;
   SE_SIDM_KRISHNAMURTI     : Longint = 5;
   SE_SIDM_DJWHAL_KHUL      : Longint = 6;
   SE_SIDM_YUKTESHWAR       : Longint = 7;
   SE_SIDM_JN_BHASIN        : Longint = 8;
   SE_SIDM_BABYL_KUGLER1    : Longint = 9;
   SE_SIDM_BABYL_KUGLER2    : Longint = 10;
   SE_SIDM_BABYL_KUGLER3    : Longint = 11;
   SE_SIDM_BABYL_HUBER      : Longint = 12;
   SE_SIDM_BABYL_ETPSC      : Longint = 13;
   SE_SIDM_ALDEBARAN_15TAU  : Longint = 14;
   SE_SIDM_HIPPARCHOS       : Longint = 15;
   SE_SIDM_SASSANIAN        : Longint = 16;
   SE_SIDM_GALCENT_0SAG     : Longint = 17;
   SE_SIDM_J2000            : Longint = 18;
   SE_SIDM_J1900            : Longint = 19;
   SE_SIDM_B1950            : Longint = 20;
   SE_SIDM_USER             : Longint = 255;

ถ้าไม่มีการเลือกชนิดอยนางศด้วยคำสั่ง swe_set_sid_mode จะคำนวณอยนางศแบบ Fagan-Bradley นะครับ ถ้าเขียนโปรแกรมออกมาแล้วค่าอยนางศหรือค่าสมผุสคลาดเคลื่อนจาก "ปฏิทินอาจารย์เทพย์" ประมาณ 1 องศาละก็ แสดงว่าลืมกำหนดโหมดของอยนางศแน่ๆ ครับ ลอง Debug ดูให้ดีๆ นะครับ

เนื่องจากดาวเกตุไทยของเรายังไม่เคยได้ "โกอินเตอร์" กับเขาสักที เมื่อใช้ Swiss Ephemeris ล้วนๆ คำนวณดวงไทยก็จะขาดดาวนี้ไป เพื่อให้ครบเครื่อง จึงขอเพิ่มเติมสูตรคำนวณเกตุไทยดังนี้

procedure ketucal(day : double; var ketu : double);
var  n : double;
begin
    n := day-0.050730381-588465;
    ketu := 360-frac(n*0.530191458/360)*360-54.1;
    While Ketu<0 do Ketu := 360+Ketu;
    While Ketu>=360 do Ketu := 360-Ketu;
end;

จำนวนวันที่ใช้เป็นจำนวนวันจูเลียนซึ่งผมก็ยังไม่แน่ใจว่าควรจะใช้จำนวนวันตามเวลา Universal Time (ค่าตัวแปร tjdut) หรือจำนวนวันที่ปรับค่า Ephemeris Time (ค่าตัวแปร  tjdet) แต่ค่าที่คำนวณได้ก็ไม่ต่างกันมาก ลองศึกษาเปรียบเทียบดูนะครับ


 

สินค้าที่อาจเกี่ยวข้องจาก ร้านค้าออนไลน์




โปรแกรมโหราศาสตร์

โปรแกรมโหราศาสตร์ยูเรเนียน Virgo07 วันที่ 08/10/2010   07:16:55 article
Virgo06 โปรแกรม โหราศาสตร์ยูเรเนียน วันที่ 04/08/2012   11:33:37 article
Demo/Freeware วันที่ 14/04/2017   12:07:10
Chayanan โปรแกรม โหราศาสตร์ไทย มาตรฐาน ตามแนวทางอาจารย์ ส. ไชยนันทน์ วันที่ 15/06/2009   21:43:10 article
ก้าวแรกการวาดภาพจานคำนวณให้ปรับขนาดตามหน้าต่างโปรแกรม (Delphi) วันที่ 05/08/2012   15:42:04
สั่ง Printer วาด จานคำนวณ ด้วย Delphi วันที่ 04/08/2012   11:34:50 article
จุดประสงค์ของ Virgo Project วันที่ 04/08/2012   11:37:19 article
Delphi กับ Swiss Ephemeris วันที่ 04/08/2012   11:39:51 article
Open Source ทางเลือกใหม่ในการพัฒนา โปรแกรม โหราศาสตร์ (?) วันที่ 04/08/2012   11:41:02 article
สูตรการคำนวณ จันทร์ดับ – จันทร์เพ็ญ (New Moon – Full Moon) วันที่ 04/08/2012   11:43:18 article
แนะนำ Lazarus ผู้จะมาสวมรอย Delphi (?) วันที่ 04/08/2012   11:44:45 article
รวมข้อข้องใจ (FAQ) เกี่ยวกับ โปรแกรมโหราศาสตร์ ของนายโรจน์ วันที่ 04/08/2012   11:45:33 article
โปรแกรม โหราศาสตร์ ยูเรเนียน Virgo05 วันที่ 15/06/2009   21:56:17 article
โปรแกรม โหราศาสตร์ ยูเรเนียน Virgo04 วันที่ 15/06/2009   21:56:45 article
ว่าด้วย Source Code โปรแกรม โหราศาสตร์ วันที่ 04/08/2012   11:47:05 article
โปรแกรมตัวอย่าง การวาดและหมุน จานคำนวณ 360 องศา (Delphi) วันที่ 15/06/2009   22:00:22



Copyright © 2010 All Rights Reserved.
| โหรา-ประวัติศาสตร์ | โหรา-ไอที | หลักโหรโดนใจ | บทความสมทบ | โหรา-โปรแกรม | ผู้จัดทำ/ผู้สนับสนุน | Site Map |

Custom Search


ติดต่อนายโรจน์ E-mail: webmaster@rojn-info.com
หรือ Mobile: 08-1697-3098
(อาจไม่สะดวกรับสายในบางเวลา สามารถฝากข้อความทาง SMS/WhatsApp ได้)
ยังไม่เปิดสอนและไม่รับพยากรณ์เป็นส่วนตัว
กรุณาอย่าใช้โทรศัพท์หรือส่งอีเมล์มาขอดูดวง เพราะไม่มีเวลาตอบ



มูลนิธิสมาคมโหรแห่งประเทศไทยในพระสังฆราชูปถัมภ์ โหราศาสตร์แนว อ.จรัญ พิกุล - AstroClassical.com HoraUranian.com ดูดวง
โหราศาสตร์กับเครื่องประดับ บ้านฮวงจุ้ย (fengshuihut.com) ตลาดวิชาฮวงจุ้ยและดวงจีน Make Many แหล่งความรู้เรื่อง Blog พี่ไท้ Blog ที่โม้แต่เรื่อง Software as a Service AstroSimple.com

รวมลิงค์ : เว็บอื่นๆ ที่น่าสนใจ
eXTReMe Tracker

LeftHit.com