Rev 7623 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7623 | Rev 7693 | ||
|---|---|---|---|
| Line 96... | Line 96... | ||
| 96 | ------------------------------------------------------------------------------ |
96 | ------------------------------------------------------------------------------ |
| 97 | MODULE Math - ¬ ⥬ â¨ç¥áª¨¥ äãªæ¨¨ |
97 | MODULE Math - ¬ ⥬ â¨ç¥áª¨¥ äãªæ¨¨ |
| Line 98... | Line 98... | ||
| 98 | 98 | ||
| Line 99... | Line 99... | ||
| 99 | CONST |
99 | CONST |
| 100 | 100 | ||
| Line 101... | Line 101... | ||
| 101 | pi = 3.141592653589793D+00 |
101 | pi = 3.141592653589793E+00 |
| 102 | e = 2.718281828459045D+00 |
102 | e = 2.718281828459045E+00 |
| Line 151... | Line 151... | ||
| 151 | £¨¯¥à¡®«¨ç¥áª¨© ª®á¨ãá x |
151 | £¨¯¥à¡®«¨ç¥áª¨© ª®á¨ãá x |
| Line 152... | Line 152... | ||
| 152 | 152 | ||
| 153 | PROCEDURE tanh(x: REAL): REAL |
153 | PROCEDURE tanh(x: REAL): REAL |
| Line 154... | Line 154... | ||
| 154 | £¨¯¥à¡®«¨ç¥áª¨© â £¥á x |
154 | £¨¯¥à¡®«¨ç¥áª¨© â £¥á x |
| 155 | 155 | ||
| Line 156... | Line 156... | ||
| 156 | PROCEDURE arcsinh(x: REAL): REAL |
156 | PROCEDURE arsinh(x: REAL): REAL |
| 157 | ®¡à âë© £¨¯¥à¡®«¨ç¥áª¨© á¨ãá x |
157 | ®¡à âë© £¨¯¥à¡®«¨ç¥áª¨© á¨ãá x |
| Line 158... | Line 158... | ||
| 158 | 158 | ||
| 159 | PROCEDURE arccosh(x: REAL): REAL |
159 | PROCEDURE arcosh(x: REAL): REAL |
| Line 160... | Line 160... | ||
| 160 | ®¡à âë© £¨¯¥à¡®«¨ç¥áª¨© ª®á¨ãá x |
160 | ®¡à âë© £¨¯¥à¡®«¨ç¥áª¨© ª®á¨ãá x |
| 161 | 161 | ||
| Line 179... | Line 179... | ||
| 179 | PROCEDURE sgn(x: REAL): INTEGER |
179 | PROCEDURE sgn(x: REAL): INTEGER |
| 180 | ¥á«¨ x > 0 ¢®§¢à é ¥â 1 |
180 | ¥á«¨ x > 0 ¢®§¢à é ¥â 1 |
| 181 | ¥á«¨ x < 0 ¢®§¢à é ¥â -1 |
181 | ¥á«¨ x < 0 ¢®§¢à é ¥â -1 |
| 182 | ¥á«¨ x = 0 ¢®§¢à é ¥â 0 |
182 | ¥á«¨ x = 0 ¢®§¢à é ¥â 0 |
| Line -... | Line 183... | ||
| - | 183 | ||
| - | 184 | PROCEDURE fact(n: INTEGER): REAL |
|
| - | 185 | ä ªâ®à¨ « n |
|
| 183 | 186 | ||
| 184 | ------------------------------------------------------------------------------ |
187 | ------------------------------------------------------------------------------ |
| 185 | MODULE Debug - ¢ë¢®¤ ¤®áªã ®â« ¤ª¨ |
188 | MODULE Debug - ¢ë¢®¤ ¤®áªã ®â« ¤ª¨ |
| Line 186... | Line 189... | ||
| 186 | â¥àä¥©á ª ª ¬®¤ã«ì Out |
189 | â¥àä¥©á ª ª ¬®¤ã«ì Out |
| Line 335... | Line 338... | ||
| 335 | ¢à¥¬¥¨ |
338 | ¢à¥¬¥¨ |
| Line 336... | Line 339... | ||
| 336 | 339 | ||
| 337 | PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): REAL |
340 | PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): REAL |
| 338 | ¢®§¢à é ¥â ¤ âã, ¯®«ãç¥ãî ¨§ ª®¬¯®¥â®¢ |
341 | ¢®§¢à é ¥â ¤ âã, ¯®«ãç¥ãî ¨§ ª®¬¯®¥â®¢ |
| 339 | Year, Month, Day, Hour, Min, Sec; |
342 | Year, Month, Day, Hour, Min, Sec; |
| Line 340... | Line 343... | ||
| 340 | ¯à¨ ®è¨¡ª¥ ¢®§¢à é ¥â ª®áâ âã ERR = -7.0D5 |
343 | ¯à¨ ®è¨¡ª¥ ¢®§¢à é ¥â ª®áâ âã ERR = -7.0E5 |
| 341 | 344 | ||
| 342 | PROCEDURE Decode(Date: REAL; VAR Year, Month, Day, |
345 | PROCEDURE Decode(Date: REAL; VAR Year, Month, Day, |
| 343 | Hour, Min, Sec: INTEGER): BOOLEAN |
346 | Hour, Min, Sec: INTEGER): BOOLEAN |