총 게시물 103건, 최근 0 건
   
우리 별자리선 자료 파일
글쓴이 : 김창환 날짜 : 2003-09-17 (수) 23:23 조회 : 7154
data.zip (10.5K), Down : 31, 0000-00-00 00:00:00
우리 별자리의 모습을 담아놓은 자료 파일입니다.
1861년, 조선의 관상감에서 발행한 책인 '성경(星鏡)'을 바탕으로 하였으며, 별의 동정은 '성경에 실린 별의 동정' 논문을 주로 참고하되 약간의 보완 및 수정이 있었습니다.

자료 파일은 'Data.zip' 파일에 두 개의 파일로 담겨 있습니다.
1) clabelE.dat 파일
별자리의 이름 및 좌표를 입력해 놓은 파일입니다. 2000년 분점의 적도 좌표와 한글, 한자 이름이 들어 있습니다. 자료의 형식은 일반적인 텍스트 파일이며 기록 방법은 다음과 같습니다.

기록 양식> 14.250 79.599북극 5 北極 5
내용> 적경 14.250시(6Byte), 적위 79.599도(7Byte), 한글 이름(10Byte): 북극, 한자 이름(10Byte): 北極, 별자리에 속한 별의 개수: 5개

2) ClineE.dat 파일
별자리의 선(2000년 기준)을 담고있는 파일입니다. 이진 파일로 되어 있으며 내용은 "별1의 적경, 별1의 적위, 별2의 적경, 별2의 적위"의 형식으로 되어 있습니다. 전체 999행이며 2Byte의 정수형 자료로 네 개의 좌표가 한 행에 담겨 있습니다.

기록 양식> 00000000 * 999행
내용> 00 00 00 00
(=별1의 적경(시)*1000, 별1의 적위(도)*100, 별2의 적경(시)*1000, 별2의 적위(도)*100)


==================================================
예제 프로그램(비주얼 베이직)
==================================================

Type CLabelE '이름 좌표 계산용 자료형
RA As Double
DE As Double
ConName As String
ConNameH As String
End Type

Private Type CLabelE2 '별자리 이름 파일이 저장된 파일의 형식
RA As String * 6
DE As String * 7
ConName As String * 10
ConNameH As String * 10
End Type

Public Type CLineRead '별자리선이 저장된 파일의 형식
RA1 As Integer
DE1 As Integer
RA2 As Integer
DE2 As Integer
End Type

Public Type CLine '별자리선 계산용 자료형
RA1 As Double
RA2 As Double
DE1 As Double
DE2 As Double
End Type

Public Const CLNumE = 998
Public Const CNameE = 311

Dim teclE As CLineRead
Dim teCNameE As CLabelE2

Public ConLineE(CLNumE) As CLine '별자리 선(신법)
Public ConstNameE(CNameE) As CLabelE '이름(신법)

Public Sub ReadCLineE() '별자리 선 파일 열기
Dim i As Integer

Open App.Path & "CLineE.dat" For Random Access Read As #1 Len = 8
For i = 1 To CLNumE + 1
Get #1, i, teclE
With ConLineE(i - 1)
.RA1 = teclE.RA1 / 1000 * 15 '15를 곱한 것은 시 단위를 도 단위로 바꾸기 위한 것입니다.
.DE1 = teclE.DE1 / 100
.RA2 = teclE.RA2 / 1000 * 15
.DE2 = teclE.DE2 / 100
End With
Next i
Close #1
End Sub

Public Sub ReadCNameE() '별자리 이름 파일 열기
Dim i As Integer

Open App.Path & "clabelE.dat" For Random Access Read As #2 Len = 35
For i = 1 To CNameE + 1
Get #2, i, teCNameE
With ConstNameE(i - 1)
.RA = teCNameE.RA * 15
.DE = teCNameE.DE
.ConName = Trim(Left(teCNameE.ConName, 6))
.ConNameH = Trim(Left(teCNameE.ConNameH, 6))
End With
Next i
Close #2
End Sub

   

총 게시물 103건, 최근 0 건
번호 제목 글쓴이 날짜 조회 추천
 MatriXsLib 1.0 +7 이형철 06-15 22082 670
 MatriXsLib 예제 프로그램을 올립니다. +2 이형철 07-02 9714 32
103  MatriXsLib 1.0 +7 이형철 06-15 22082 670
102  별볼일 있는 세상을 만드는 MatriXs Project +7 지용호 08-21 19102 516
101  MatriXsLib 예제 프로그램을 올립니다. +2 이형철 07-02 9714 32
100  점찍기를 사용한 캐드 삼차원 지도 작업의 소… +1 이수욱 10-29 8260 146
99  matrix2 컴파일 실행 에러 문의입니다. +5 황태욱 01-08 8204 129
98  안녕들하세요~^^ +1 이도원 06-22 7766 137
97  이렇게 좋은 소스가..^^ +2 황태욱 01-07 7420 109
96  요즘 다들 머하시나요? +5 이도원 12-10 7201 122
95  Astronomical Algorithm.. +4 김창환 10-31 7169 122
94  우리 별자리선 자료 파일 김창환 09-17 7155 47
93  첫모임~~~~ 이도원 06-08 7113 25
92  비공개 개시판에 우리 별자리선 자료 파일을 … +2 김창환 09-17 6957 127
91  c 를 공부하다가 +5 이도원 11-13 6846 114
90  프로그램이 돌아가지 않을때 이파일을 받으… +2 이도원 09-16 6842 123
89  침체기 같네요... +3 이도원 09-22 6539 106
 1  2  3  4  5  6  7  맨끝
 
Since 2001.2.7 과학기술정보통신부 등록 비영리민간단체 천문노트. Copyright All rights reserved.
단체명 : 천문노트  |    고유번호 : 101-82-15888  |    대표자명 : 김태욱, 조우성  |    주소 : 138-804 서울특별시 송파구 가락동 93 금강빌딩 7층 710호  |    전화 : 02-543-3295  |    Fax : 02-6918-6888  |    통신판매신고번호 : 종로 제01-5696호  |    개인정보관리책임자 및 사이트관리자 : 지용호