30 มิถุนายน 2559

สูตรคำนวณตำแหน่งดาวเคราะห์ระบบดาราศาสตร์(ไฟล์งาน excel)


ที่ระลึกในงานไหว้ครูชมรมพัฒนาวิชาโหราศาสตร์ไทย 2559

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

ลิงค์ดาวน์โหลดไฟล์งาน : http://www.mediafire.com/download/qryti8ehzr6mtwj/Position_of_planet.rar

24 มิถุนายน 2559

ความหมายระยะของดวงจันทร์



ความหมายระยะของดวงจันทร์

จันทร์สถิต 0-45 องศา หน้าดวงอาทิตย์ หมายถึง การเริ่มต้น เกิดขึ้น กระตุ้นให้เกิดทัศนะใหม่ๆ การมองโลกด้วยแนวคิดส่วนบุคคล

จันทร์สถิต 45-90 องศา หน้าดวงอาทิตย์ หมายถึง การยืนยันตามเจตนารมณ์ แรงกดดันที่ได้รับจากสังคม สิ่งที่ทำให้จดจำฝังใจ

จันทร์สถิต 90-135 องศา หน้าดวงอาทิตย์ หมายถึง การกระทำ พฤติกรรมที่แสดงออก การแสดงความรู้สึกออกมาโดยตรง ความเร่งรีบ

จันทร์สถิต 135-180 องศา หน้าดวงอาทิตย์ หมายถึง การแสดงออกทางความคิด การตั้งคำถาม วิเคราะห์วิจัย ความต้องการออกไปสู่สังคม

จันทร์สถิต 180-135 องศา หลังดวงอาทิตย์ หมายถึง การบรรลุถึงเป้าหมาย ความสมหวัง การวางแนวปฏิบัติเพื่อให้สำเร็จตามวัตถุประสงค์

จันทร์สถิต 135-90 องศา หลังดวงอาทิตย์ หมายถึง การรู้จักสังเคราะห์ รวบรวม ยอมรับ การประมาณการ ประเมินคุณค่า และสร้างสรรค์สิ่งใหม่ๆ

จันทร์สถิต 90-45 องศา หลังดวงอาทิตย์ หมายถึง การปรับตัวครั้งใหม่ สร้างความสอดคล้อง การวางแผน มองการณ์ไกล รู้จักประดิษฐ์คิดค้น มีพลังในการสร้างสิ่งต่างๆ

จันทร์สถิต 45-0 องศา หลังดวงอาทิตย์ หมายถึง ความหลุดพ้นจากพันธนาการ การปลดปล่อย ผ่อนคลายอารมณ์ความรู้สึก ความพร้อมที่จะรับโชคชะตาที่จะเกิดขึ้นในอนาคต



ธีรพร เพชรกำแพง
25 มิถุนายน 2559

9 มิถุนายน 2559

แจ้งการ Update โปรแกรมสมุดจดดวง(4 มิถุนายน 2559)

แจ้งการ Update โปรแกรมสมุดจดดวง(4 มิถุนายน 2559)
...สำหรับท่านที่มีโปรแกรมสมุดจดดวงติดตั้งไว้ในเครื่องอยู่แล้ว
เมื่อโหลดไฟล์อัพเดตนี้มาแล้ว ให้ทำการ copy ไฟล์ สมุดจดดวง.exe ไปวางไว้ในโฟล์เดอร์ที่ติดตั้งโปรแกรมสมุดจดดวง ทับของเดิมได้ทันที
link : http://www.mediafire.com/download/cq16x416o6jxm11/UpdateSJD04062559.rar
---
...หรือกรณีที่ท่านต้องการชุดติดตั้งที่มีการอัพเดตโปรแกรมแล้วในขณะนี้(4 มิถุนายน 2559)
สามารถดาวน์โหลดได้ที่ : http://www.mediafire.com/download/6y8cls65ctcj7tc/SetupSaMudJodDuang.rar
---
...โปรแกรมสมุดจดดวงเป็นโปรแกรมโหราศาสตร์ที่มีการพัฒนาเพิ่มเติมขึ้นเรื่อยๆ
ขอให้ท่านผู้ใช้งานโปรแกรมติดตามข่าวสารอยู่เป็นระยะ ตามแหล่งข้อมูลดังนี้
กลุ่มสมุดจดดวง : https://www.facebook.com/groups/samudjodduang
FanPage วิวิธโหราศาสตร์ : https://www.facebook.com/HippoHORO
เว็บบล็อก วิวิธโหราศาสตร์ : http://hippohoro.blogspot.com
---
ติดต่อสอบถาม : ธีรพร  เพชรกำแพง อีเมล์ : tepar2009@gmail.com


20 พฤษภาคม 2559

โปรแกรมโหราศาสตร์ไทย "สมุดจดดวง"

                     โปรแกรม “สมุดจดดวง” พัฒนาขึ้นภายใต้แนวคิดของการเป็น “สื่อการศึกษา” ประกอบการเรียนรู้วิชาโหราศาสตร์ไทย ตามแนวทางท่านอาจารย์อรุณ  ลำเพ็ญ เพื่อให้ผู้ศึกษาได้มีความสะดวกในการวางรูปปัจจัยทางโหราศาสตร์และส่วนขยายความเพิ่มเติมในการพิจารณาดวงชะตา โดยยึดแนวทางตามตำรา “บทเรียนทางไปรษณีย์” ของท่านเป็นสำคัญ โดยโปรแกรมจะแสดงรูปปัจจัยดวงชะตาทั้งเดิมและจรที่เกี่ยวข้องประกอบด้วยพระเคราะห์และฉายาเคราะห์ คือ อาทิตย์ จันทร์ อังคาร พุธ พฤหัสบดี ศุกร์ เสาร์ ราหู เกตุ และมฤตยู โดยบอกสมผุสเป็นราศี องศา ลิปดา ตรียางค์ นวางค์ นักษัตรฤกษ์ หมวดฤกษ์ ประเภทฤกษ์ มาตรฐานดาว วันที่และเวลาดาวยกย้ายราศี การวิกลคติของดาว(พักร มนท์ เสริด) ทัศนสัมพันธ์ปัจจัยเดิม-จร , ลัคนา ตนุเศษ ชันษาจรปี ชันษาจรเดือน ทักษาเดิม-จร ตรีวัย พระเคราะห์เสวยอายุ ส่วนวิเคราะห์ปัจจัยเดิม-จร จักรราศีวิภาค ส่วนวิเคราะห์เรือนสัมพันธ์แบบสองจังหวะ(ชะตาเดิม-จรปี-จรเดือน) ส่วนวิเคราะห์ทัศนจักร(จักรทีปนีจร-ทัศนจักรวิเคราะห์) ส่วนช่วยพิจารณาการวางลัคนาและการเลือกใช้ฤกษ์ประกอบการต่างๆ รวมทั้งโปรแกรมยังสามารถบันทึก/เรียกใช้ฐานช้อมูลกำเนิดของเจ้าชะตา การสั่งพิมพ์ผลอักษรข้อมูลต่างๆ และสามารถบันทึกข้อมูลเป็น text ไฟล์ได้อีกด้วย
                   ผู้จัดทำหวังให้โปรแกรมนี้ก่อเกิดประโยชน์รำลึกถึงกลุ่ม “สมุดจดดวง” ที่มีการรวมตัวกันในเว็บไซต์ payakorn.com มาเป็นเวลานาน และยังได้ก่อตั้งเป็นกลุ่ม “สมุดจดดวง” ในสังคมออนไลน์อย่าง facebook.com จึงได้นำเอาชื่อกลุ่มมาตั้งเป็นชื่อโปรแกรม “สมุดจดดวง” ให้เป็นที่จำได้หมายรู้ว่าเกี่ยวพันกับกลุ่มสมุดจดดวง ซึ่งมีการธำรงรักษาจรรโลงไว้ซึ่งการพัฒนาความรู้ทางโหราศาสตร์ พร้อมกับเผยแพร่ความรู้นั้นให้คงอยู่สืบไป และหากผู้ใช้งานโปรแกรมท่านใดพบข้อผิดพลาด หรือประสงค์จะสอบถาม/เสนอแนะใดๆเพิ่มเติม สามารถติดต่อผู้จัดทำได้ที่กลุ่ม facebook ชื่อ “สมุดจดดวง” หรือที่อีเมล์ tepar2009@gmail.com ผู้จัดทำยินดีที่จะตอบข้อสงสัยและน้อมรับเอาข้อบกพร่องที่เกิดขึ้นนั้นไปแก้ไขพัฒนาโปรแกรมให้มีความสมบูรณ์ต่อไป
                   ผู้จัดทำหวังเป็นอย่างยิ่งว่าโปรแกรม “สมุดจดดวง” ที่พัฒนาขึ้นมาด้วยความวิริยะอุตสาหะและความตั้งใจอันดีนี้ จักเป็นประโยชน์แก่ผู้สนใจศึกษาวิชาโหราศาสตร์ไทยได้บ้างไม่มากก็น้อย ขออำนาจแห่งคุณพระศรีรัตนตรัย ครูบาอาจารย์ และคุณงามความดีทั้งหลาย จงบันดาลประโยชน์สําเร็จอันมีวิชาความรู้ทางโหราศาสตร์นี้
เป็นเหตุปัจจัยให้ท่านเจริญสุขวัฒนะทางโหราศาสตร์และเป็นนักโหราศาสตร์ที่ดีของสังคมสืบไป

ธีรพร  บุญวงษ์
ผู้จัดทำโปรแกรมสมุดจดดวง
ลิงค์ดาวน์โหลดโปรแกรมสมุดจดดวง :

สูตรการคำนวณตำแหน่งดาวเคราะห์แบบดาราศาสตร์ : อาทิตย์


สูตรการคำนวณตำแหน่งดาวเคราะห์แบบดาราศาสตร์ : อาทิตย์

ฟังก์ชั่น Sun คือฟังก์ชั่น VBA บน Excel ใช้ในการหาค่าตำแหน่งอาทิตย์แบบดาราศาสตร์สากล หรือระบบสายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้
day = วันที่
month = เดือน
year = ปี ค.ศ.
hour = ชั่วโมง
minute = นาที
และฟังก์ชั่นเสริมที่ใช้ประกอบการคำนวณคือ Modulo (การหารแบบเอาเศษ,เศษจากการหาร) เพื่อใช้ควบคุมค่าให้อยู่ในช่วงที่ต้องการ ในที่นี้คือ 360

สูตรการคำนวณมีดังนี้
Function Sun(day, month, year, hour, minute As Double) As Double
Dim D, N, M, E As Double
D = 367 * year - Int(7 * (year + Int((month + 9) / 12)) / 4) + Int(275 * month / 9) + day - 730530 + ((hour + (minute / 60)) / 24)
N = Modulo(360 / 365.242191 * D, 360)
M = Modulo(N + 279.557208 - 283.112438, 360) * 3.14159265358979 / 180
E = 360 / 3.14159265358979 * 0.016705 * Sin(M)
Sun = Modulo(N + E + 279.557208, 360)
End Function

Function Modulo(a, b As Double) As Double
Modulo = a / b
Modulo = (Modulo - Int(Modulo)) * b
End Function
ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น.(กรีนิช)
รูปแบบสูตร Sun(1,5,2016,12,0)
ค่าที่ได้คือ 41.56190514 องศา
(เปรียบเทียบกับค่าที่ได้จากโมดูล swiss คือ 41.5371152186721 ต่างกันอยู่ 0.024789923 องศา)
ในกรณีที่จะทำเป็นค่าตำแหน่งดาวในระบบนิรายนะวิธี ให้นำค่าอายนางศมาลบออกจากค่าที่คำนวณได้ กรณีนี้ใช้ค่าอายนางศแบบลาหิรีที่คำนวณได้ในวันเวลาตามตัวอย่าง คือ 24.0852731799126
           ตำแหน่งอาทิตย์(นิรายนะวิธี) =  41.56190514 - 24.0852731799126 = 17.47663196
1.ราศี 17.47663196 หาร 30 ลัพธ์เป็นราศี = 0
2.องศา จำนวนเต็มของเศษจากการหาร = 17.47663196 = 17
3.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.47663196 X 60 = 28.5979176 = 28
4.ฟิลิปดา ทศนิยมที่เหลือในข้อ 3. คูณด้วย 60 = 0.5979176X 60 = 35.875056 = 35
สรุป ตำแหน่งอาทิตย์(นิรายนะ) = ราศีเมษ 17 องศา 28 ลิปดา 35 ฟิลิปดา
เปรียบเทียบผลกับโมดูล swiss คือ ราศีเมษ 17 องศา 27  ลิปดา 6 ฟิลิปดา ต่างกันอยู่ 1 ลิปดา 29 ฟิลิปดา

ธีรพร  เพชรกำแพง
20 พฤษภาคม 2559
(ต้องการขอรับไฟล์งาน Excel ติดต่อได้ที่ tepar2009@gmail.com)

8 พฤษภาคม 2559

สูตรการคำนวณหามัธยลัคน์


สูตรการคำนวณหามัธยลัคน์

            ฟังก์ชั่น Midmc คือฟังก์ชั่นที่สร้างขึ้นด้วย VBA บน Excel ใช้ในการหาค่ามัธยลัคน์หรือเมอริเดียน(ทศมลัคน์)แบบดาราศาสตร์ เพื่อใช้ประกอบการคำนวณตำแหน่งปัจจัยโหราศาสตร์ไทยระบบดาราศาสตร์สากล ตัดค่าอายนางศ หรือนิรายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้
day = วันที่
month = เดือน
year = ปี ค.ศ.
hour = ชั่วโมง
min = นาที
                        Lon = ลองจิจูด
                      Lat = ละติจูด
                        ฟังก์ชั่นเสริมที่นำมาใช้ในการคำนวณ คือ Atan2 สามารถดูรายละเอียดได้ที่การคำนวณตำแหน่งดาวพุธ
(สูตรนี้ปรับค่าเขตเวลาหรือ time zone เป็น 7 แล้ว จึงใช้เวลาประเทศไทยในการคำนวณได้เลย)

สูตรการคำนวณมีดังนี้
Function Midmc(day As Double, month As Double, year As Double, _
hour As Double, min As Double, Lon As Double, Lat As Double) As Double
    Dim hr As Double, tz As Double, ln As Double, la As Double, t As Double
    Dim days As Double, f As Double, ra As Double, ob As Double, mc As Double           
    hr = hour + min / 60
    tz = 7
    ln = Lon
    la = Lat
    ln = -ln
    la = la
    z = tz - 1
    days= 367* year-INT(7*( year+INT((month +9)/12))/4)+INT(275* month /9)+ day-767057
    f = hr - tz
    t = days+ f / 24 - 0.5) / 36525
    ra = ((6.6460656 + 2400.0513 * t + 0.0000258 * t * t + f) * 15 - ln)
    ra = ra - 360 * Int(ra / 360)
    ob = (23.452294 - 0.0130125 * t)
    Midmc = Atan2(Tan(ra * 3.14159265358979 / 180), Cos(ob * 3.14159265358979 / 180)) * 57.2957795130823
    Midmc = Midmc - 360 * Int(Midmc / 360)
End Function
ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น. ลองจิจูด 100.5 E ละติจูด 13.75 N (ประเทศไทย)
รูปแบบสูตร Midmc(1,5,2016,12,0,100.5,13.75)
ค่าที่ได้คือ 52.58859739 องศา
ทำเป็นลัคนาในระบบนิรายนะวิธี โดยการนำค่าอายนางศแบบลาหิรีมาลบออก 52.58859739 -24.08462478 = 28.50397261 องศา
โดยทำให้อยู่ในรูปของ ราศี-องศา-ลิปดา-ฟิลิปดา ดังนี้
1.ราศี 28.50397261 หาร 30 ลัพธ์เป็นราศี = 0
2.องศา จำนวนเต็มของเศษจากการหาร = 28.50397261 = 28
3.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.50397261 X 60 = 30.2383566 = 30
4.ฟิลิปดา ทศนิยมที่เหลือในข้อ 3. คูณด้วย 60 = 0.2383566 X 60 = 14.301396 = 14
สรุป ตำแหน่งลัคนา(นิรายนะ) = ราศีเมษ 28 องศา 30 ลิปดา 14  ฟิลิปดา
ธีรพร  บุญวงษ์(เพชรกำแพง)
8 พฤษภาคม 2559
(ต้องการขอรับไฟล์งาน Excel ติดต่อได้ที่ tepar2009@gmail.com)

6 พฤษภาคม 2559

สูตรการคำนวณหาลัคนาดาราศาสตร์


สูตรการคำนวณหาลัคนาดาราศาสตร์

            ฟังก์ชั่น Ascendant คือฟังก์ชั่นที่สร้างขึ้นด้วย VBA บน Excel ใช้ในการหาค่าลัคนาแบบดาราศาสตร์ เพื่อใช้ประกอบการคำนวณตำแหน่งปัจจัยโหราศาสตร์ไทยระบบดาราศาสตร์สากล ตัดค่าอายนางศ หรือนิรายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้
day = วันที่
month = เดือน
year = ปี ค.ศ.
hour = ชั่วโมง
min = นาที
                      Lon = ลองจิจูด
                   Lat = ละติจูด
                   ฟังก์ชั่นเสริมที่นำมาใช้ในการคำนวณ คือ Atan2 สามารถดูรายละเอียดได้ที่การคำนวณตำแหน่งดาวพุธ
(สูตรนี้ปรับค่าเขตเวลาหรือ time zone เป็น 7 แล้ว จึงใช้เวลาประเทศไทยในการคำนวณได้เลย)

สูตรการคำนวณมีดังนี้

Function Ascendant(day As Double, month As Double, year As Double, _
hour As Double, min As Double, Lon As Double, Lat As Double) As Double
    Dim hr As Double, tz As Double, ln As Double, la As Double, t As Double
    Dim days As Double, f As Double, ra As Double, ob As Double, mc As Double           
    hr = hour + min / 60
    tz = 7
    ln = Lon
    la = Lat
    ln = -ln
    la = la
    z = tz - 1
    days = = 367* year-INT(7*( year+INT((month +9)/12))/4)+INT(275* month /9)+ day-767057
    f = hr - tz
    t = (days  + f / 24 - 0.5) / 36525
    ra = ((6.6460656 + 2400.0513 * t + 0.0000258 * t * t + f) * 15 - ln)   'RAMC
    ra = ra - 360 * Int(ra / 360)
    ob = (23.452294 - 0.0130125 * t) ' Obliquity of Ecliptic
    Ascendant = (Atan2(Cos(ra * pi / 180), -Sin(ra * 3.14159265358979 / 180) * Cos(ob * 3.14159265358979 / 180) - Tan(la * 3.14159265358979 / 180) * Sin(ob * 3.14159265358979 / 180)))* 57.2957795130823
    Ascendant = Ascendant - 360 * Int(Ascendant / 360)
End Function

ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น. ลองจิจูด 100.5 E ละติจูด 13.75 N (ประเทศไทย)
รูปแบบสูตร Ascendant(1,5,2016,12,0,100.5,13.75)
ค่าที่ได้คือ 127.3353831 องศา
ทำเป็นลัคนาในระบบนิรายนะวิธี โดยการนำค่าอายนางศแบบลาหิรีมาลบออก 127.3353831-24.08462478 = 103.2507583 องศา
โดยทำให้อยู่ในรูปของ ราศี-องศา-ลิปดา-ฟิลิปดา ดังนี้
1.ราศี 103.2507583 หาร 30 ลัพธ์เป็นราศี = 3
2.องศา จำนวนเต็มของเศษจากการหาร = 13.2507583 = 13
3.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.2507583 X 60 = 15.045498 = 15
4.ฟิลิปดา ทศนิยมที่เหลือในข้อ 3. คูณด้วย 60 = 0.045498 X 60 = 2.72988 = 2
สรุป ตำแหน่งลัคนา(นิรายนะ) = ราศีกรกฎ 13 องศา 15 ลิปดา 2 ฟิลิปดา

ธีรพร  บุญวงษ์(เพชรกำแพง)
6 พฤษภาคม 2559
(ต้องการขอรับไฟล์งาน Excel ติดต่อได้ที่ tepar2009@gmail.com)


4 พฤษภาคม 2559

สูตรการคำนวณหาค่าอายนางศแบบลาหิรี


สูตรการคำนวณหาค่าอายนางศแบบลาหิรี
            ฟังก์ชั่น lahiry คือฟังก์ชั่นที่สร้างขึ้นด้วย VBA บน Excel ใช้ในการหาค่าอายนางศแบบลาหิรี เพื่อใช้ประกอบการคำนวณตำแหน่งดาวระบบดาราศาสตร์สากล ตัดค่าอายนางศ หรือนิรายนะวิธี มีตัวแปรที่รับเข้าดังต่อไปนี้
d = วันที่
m = เดือน
y = ปี ค.ศ.
hr = ชั่วโมง
mn = นาที
สูตรการคำนวณมีดังนี้
Function lahiry(d, m, y, hr, mn As Double) As Double
    Dim im  As Double, j  As Double
    Dim ln As Double, Off As Double
    im = (12 * y) + m + 57597
    j = (2 * (im - Int(im / 12) * 12) + 7 + 365 * im) / 12
    j = Int(j) + d + Int(im / 48) - 32083
    If j > 2299171 Then
        j = j + Int(im / 4800) - Int(im / 1200) + 38
    End If
    h = hr + (mn / 60)
    f = h - 6
    t = ((j - 2415020) + f / 24 - 0.5) / 36525
    ln = ((933060 - 6962911 * t + 7.5 * t * t) / 3600)
    ln = ln - 360 * Int(ln / 360)
    Off = (259205536 * t + 2013816) / 3600
    Off = 17.23 * Sin(ln * 3.14159265358979 / 180) + 1.27 * Sin(Off * 3.14159265358979 / 180) - (5025.64 + 1.11 * t) * t
    lahiry = Abs((Off - 80861.27) / 3600)
End Function

ตัวอย่างการคำนวณ 1 พฤษภาคม 2016 เวลา 12.00 น.(ประเทศไทย)
รูปแบบสูตร lahiry(1,5,2016,12,0)
ค่าที่ได้คือ 24.08462478 องศา โดยทำให้อยู่ในรูปของ องศา-ลิปดา-ฟิลิปดา ดังนี้
1.องศา จำนวนเต็มของจำนวนองศาจริง = 24.08462478 = 24
2.ลิปดา ทศนิยมที่เหลือคูณด้วย 60 = 0.08462478  X 60 = 5.0774868 = 5
3.ฟิลิปดา ทศนิยมที่เหลือในข้อ 2. คูณด้วย 60 = 0.0774868 X 60 = 4.649208 = 4
สรุป ค่าอายนางศแบบลาหิรี = 24 องศา 5 ลิปดา 4 ฟิลิปดา
หมายเหตุ : สูตรนี้มีการปรับค่าให้ใช้ค่าเวลาของประเทศไทยแล้ว จึงสามารถใช้เวลาประเทศไทยได้เลย

ธีรพร  เพชรกำแพง
4 พฤษภาคม 2559
(ต้องการขอรับไฟล์งาน Excel ติดต่อได้ที่ tepar2009@gmail.com)