User:Spekkio: Difference between revisions
No edit summary |
No edit summary |
||
Line 6: | Line 6: | ||
{{mylang|SQL|Active}} |
{{mylang|SQL|Active}} |
||
{{mylang|Mathematica|Active}} |
{{mylang|Mathematica|Active}} |
||
{{mylang| |
{{mylang|MATLAB|Active}} |
||
{{mylang|UNIX Shell|Beginner}} |
{{mylang|UNIX Shell|Beginner}} |
||
{{mylang|Lisp|Beginner}} |
{{mylang|Lisp|Beginner}} |
Revision as of 13:07, 29 November 2011
My Favorite Languages | |
Language | Proficiency |
C | Active |
C++ | Beginner |
Java | Active |
JavaScript | Active |
SQL | Active |
Mathematica | Active |
MATLAB | Active |
UNIX Shell | Beginner |
Lisp | Beginner |
Erlang | Beginner |
Pascal | Rusty |
x86 Assembly | Rusty |
Hello! I'm a Electronic Engineer, working with electronics developement.
I love computer programming, and my hobby is to program small simple computer programs.
I usually get stuck on an idea that I think would be fun to try and solve.
I love learning new programming languages.
Found this page recently, and it is perfect for me. :D
Currently I'm working on Huffman coding in C, and implementing a multi precision library to calculate
maclaurin series for different functions sin/cos/sqrt/pow etc... (see my recent post in Talk:Nth root)
<lang lisp> (defun factorial (n)
(if (= n 0) 1 (* n (factorial (- n 1)))))
(defun powint (a b)
(if (= b 0) 1 (* a (powint a (- b 1)))))
(defun binom (alpha n)
(if (= n 1) alpha (* (binom alpha (- n 1)) (/ (+ (- alpha n) 1) n))))
(defun pow (a b n)
(if (= n 0) 1 (+ (* (binom b n) (powint (- a 1) n)) (pow a b (- n 1)))))
(defun logS(x n) (if (= n 0) (* 2 x) (+ (* 2 (/ (powint x (+ (* 2 n) 1)) (+ (* 2 n) 1))) (logS x (- n 1)) ) ))
(defun loge(x n) (logS (/ (- x 1) (+ 1 x)) n))
(defun expon(x n) (if (= n 0) 1 (+ (/ (powint x n) (factorial n)) (expon x (- n 1)))))
(defun sqrtn(x n) (expon (* 1/2 (loge x n)) n))
(defun pown(x a n) (expon (* a (loge x n)) n))
(defun sine(x n)
(if (= n 0) x (+ (* (/ (powint -1 n) (factorial (+ (* 2 n) 1)) ) (powint x (+ (* 2 n) 1))) (sine x (- n 1)))))
(defun cosi(x n) (if (= n 0) 1 (+ (* (/ (powint -1 n) (factorial (* 2 n)) ) (powint x (* 2 n))) (cosi x (- n 1)))))
(defun tang(x n) (/ (sine x n) (cosi x n)))
(defun asine (x n) (if (= n 0) x (+ (/ (* (factorial (* 2 n)) (powint x (+ (* 2 n) 1))) (* (powint 4 n) (powint (factorial n) 2) (+ (* 2 n) 1))) (asine x (- n 1)))))
(defun fibcalc (n p)
(let ((sqrtFive (sqrtn 5 p))) (/ (- (powint (* 1/2 (+ 1 (sqrtFive))) n) (powint (* 1/2 (- 1 (sqrtFive))) n)) (sqrtFive))))
(defun fibrec (n)
(if (= n 0) 0 (if (= n 1)
1
(+ (fibrec (- n 1)) (fibrec (- n 2))))))
</lang>