Kod:
[FUNCTION sindegree]
// Sphere'ın sin(x) fonksiyonu radyanları kullanırken bu dereceyi kullanır.
RETURN <FLOATVAL SIN(<FLOATVAL (<ARGS> * 3.141592) / 180>)>
[FUNCTION cosdegree]
RETURN <FLOATVAL COS(<FLOATVAL (<ARGS> * 3.141592) / 180>)>
[FUNCTION tan]
IF (<ARGV> == 1)
FLOAT.ARG=<FLOATVAL ((<ARGS> * 3.141592) / 180)>
RETURN <FLOATVAL (<SINDEGREE <FEVAL <FLOAT.ARG>>> / <COSDEGREE <FEVAL <FLOAT.ARG>>>)>
ENDIF
[FUNCTION cot]
IF (<ARGV> == 1)
FLOAT.ARG=<FLOATVAL ((<ARGS> * 3.141592) / 180)>
RETURN <FLOATVAL (<COSDEGREE <FEVAL <FLOAT.ARG>>> / <SINDEGREE <FEVAL <FLOAT.ARG>>>)>
ENDIF
[FUNCTION sec]
IF (<ARGV> == 1)
RETURN <FLOATVAL (1 / <COSDEGREE <ARGS>>)>
ENDIF
[FUNCTION cosec]
IF (<ARGV> == 1)
RETURN <FLOATVAL (1 / <SINDEGREE <ARGS>>)>
ENDIF
[FUNCTION cis]
IF (<ARGV> == 1)
RETURN "<COSDEGREE <ARGS>> + <SINDEGREE <ARGS>>i"
ENDIF
[FUNCTION decbin]
// Onluk sayıları ikiliğe çevirir.
IF (<ARGN1>)
LOCAL.REMAINDERS=a
WHILE <ARGN1>
LOCAL.REMAINDERS .= <EVAL <ARGN1> - ((<ARGN1> / 2) * 2)>
ARGN1 /= 2
ENDWHILE
ENDIF
RETURN <STRSUB 0 <EVAL STRLEN(<STRREVERSE <LOCAL.REMAINDERS>>) - 1> <STRREVERSE <LOCAL.REMAINDERS>>>
[FUNCTION bindec]
// İkilik sayıları onluğa çevirir.
// Kullanılabilecek azami sayı: 2.147.483.647
// Daha yukarısında sorun çıkartıyor.
FOR <EVAL STRLEN(<ARGS>) - 1> 0
LOCAL.CURRENTDIGIT=<STRSUB <dLOCAL._FOR> 1 <ARGS>>
LOCAL.DECIMAL += <EVAL <dLOCAL.CURRENTDIGIT> * (2@<dLOCAL.POWER>)>
LOCAL.POWER += 1
ENDFOR
RETURN <dLOCAL.DECIMAL>
[FUNCTION percentage]
// Syntax: <PERCENTAGE x,y>
// y'nin %x'ini döndürür.
RETURN <MULDIV <ARGV[1]>,<ARGV[0]>,100>
[FUNCTION MathMax]
// Syntax: <MathMax 1,2>
// 1>2 ise 1, değilse 2 döndürür.
IF (<ARGN1> > <ARGN2>)
RETURN <ARGN1>
ELSE
RETURN <ARGN2>
ENDIF
[FUNCTION MathMin]
// Syntax: <MathMin 1,2>
// 1<2 ise 1, değilse 2 döndürür.
IF (<ARGN1> < <ARGN2>)
RETURN <ARGN1>
ELSE
RETURN <ARGN2>
ENDIF
// Sphere'ın sin(x) fonksiyonu radyanları kullanırken bu dereceyi kullanır.
RETURN <FLOATVAL SIN(<FLOATVAL (<ARGS> * 3.141592) / 180>)>
[FUNCTION cosdegree]
RETURN <FLOATVAL COS(<FLOATVAL (<ARGS> * 3.141592) / 180>)>
[FUNCTION tan]
IF (<ARGV> == 1)
FLOAT.ARG=<FLOATVAL ((<ARGS> * 3.141592) / 180)>
RETURN <FLOATVAL (<SINDEGREE <FEVAL <FLOAT.ARG>>> / <COSDEGREE <FEVAL <FLOAT.ARG>>>)>
ENDIF
[FUNCTION cot]
IF (<ARGV> == 1)
FLOAT.ARG=<FLOATVAL ((<ARGS> * 3.141592) / 180)>
RETURN <FLOATVAL (<COSDEGREE <FEVAL <FLOAT.ARG>>> / <SINDEGREE <FEVAL <FLOAT.ARG>>>)>
ENDIF
[FUNCTION sec]
IF (<ARGV> == 1)
RETURN <FLOATVAL (1 / <COSDEGREE <ARGS>>)>
ENDIF
[FUNCTION cosec]
IF (<ARGV> == 1)
RETURN <FLOATVAL (1 / <SINDEGREE <ARGS>>)>
ENDIF
[FUNCTION cis]
IF (<ARGV> == 1)
RETURN "<COSDEGREE <ARGS>> + <SINDEGREE <ARGS>>i"
ENDIF
[FUNCTION decbin]
// Onluk sayıları ikiliğe çevirir.
IF (<ARGN1>)
LOCAL.REMAINDERS=a
WHILE <ARGN1>
LOCAL.REMAINDERS .= <EVAL <ARGN1> - ((<ARGN1> / 2) * 2)>
ARGN1 /= 2
ENDWHILE
ENDIF
RETURN <STRSUB 0 <EVAL STRLEN(<STRREVERSE <LOCAL.REMAINDERS>>) - 1> <STRREVERSE <LOCAL.REMAINDERS>>>
[FUNCTION bindec]
// İkilik sayıları onluğa çevirir.
// Kullanılabilecek azami sayı: 2.147.483.647
// Daha yukarısında sorun çıkartıyor.
FOR <EVAL STRLEN(<ARGS>) - 1> 0
LOCAL.CURRENTDIGIT=<STRSUB <dLOCAL._FOR> 1 <ARGS>>
LOCAL.DECIMAL += <EVAL <dLOCAL.CURRENTDIGIT> * (2@<dLOCAL.POWER>)>
LOCAL.POWER += 1
ENDFOR
RETURN <dLOCAL.DECIMAL>
[FUNCTION percentage]
// Syntax: <PERCENTAGE x,y>
// y'nin %x'ini döndürür.
RETURN <MULDIV <ARGV[1]>,<ARGV[0]>,100>
[FUNCTION MathMax]
// Syntax: <MathMax 1,2>
// 1>2 ise 1, değilse 2 döndürür.
IF (<ARGN1> > <ARGN2>)
RETURN <ARGN1>
ELSE
RETURN <ARGN2>
ENDIF
[FUNCTION MathMin]
// Syntax: <MathMin 1,2>
// 1<2 ise 1, değilse 2 döndürür.
IF (<ARGN1> < <ARGN2>)
RETURN <ARGN1>
ELSE
RETURN <ARGN2>
ENDIF
Yorumlar
Henüz yorum yapılmamıştır.
|
OylamalarOylama :![]()
Üyelerin oylama ortalaması (10 dışında) : Henüz Oylanmamış
Oylar: 0 |
Benzer Sayfalar
| Sayfalar | Yorumlar | Gönderen | Tarih |
| Player Komutları | 0 | Roes | 13-10-2011 |
| Staff Komutları | 0 | TheRaskol | 19-09-2009 |
| MySQL Komutları | 0 | TheRaskol | 06-09-2009 |
| Oyun Komutları | 0 | TheRaskol | 04-08-2009 |
| Tüm Bandaj Komutları | 0 | TheRaskol | 01-08-2009 |







