| author | plurSKI <black.gavin@gmail.com> | 2010-10-24 16:32:05 (GMT) |
|---|---|---|
| committer | plurSKI <black.gavin@gmail.com> | 2010-10-24 16:32:05 (GMT) |
| commit | ce769df7da11e192fbfd326869890dc1055bc431 (patch) | |
| tree | db2a0330f537022588b8b44b859c921b583d64f7 | |
| download | curveCompare-master.zip curveCompare-master.tar.gz | |
Initial Commitmaster
| -rw-r--r-- | README | 1 | ||||
| -rw-r--r-- | powerComp.m | 26 | ||||
| -rw-r--r-- | powerSub.m | 13 |
3 files changed, 40 insertions, 0 deletions
@@ -0,0 +1 @@ +powerComp.m could be rewritten with meshgrid for faster results diff --git a/powerComp.m b/powerComp.m new file mode 100644 index 0000000..b9f9793 --- a/dev/null +++ b/powerComp.m @@ -0,0 +1,26 @@ +function x = powerComp() + iter = .05; + m = 200; + + for i = -m:m + for j = -m:m + ti = iter * (-i); + tj = iter * j; + if ( (ti^tj) == (tj^ti) ) + x(i+m+1,j+m+1) = 5; + elseif ( abs(imag(ti^tj)) > 0 | abs(imag(tj^ti)) ) + if ( norm((ti^tj)) < norm((tj^ti)) ) + x(i+m+1,j+m+1) = 3; + else + x(i+m+1,j+m+1) = 4; + endif + else + if ( ((ti^tj)) < ((tj^ti)) ) + x(i+m+1,j+m+1) = 1; + else + x(i+m+1,j+m+1) = 2; + endif + endif + endfor + endfor +endfunction diff --git a/powerSub.m b/powerSub.m new file mode 100644 index 0000000..a31acf4 --- a/dev/null +++ b/powerSub.m @@ -0,0 +1,13 @@ +function x = powerSub() + iter = .1; + m = 100; + l = 1; + for i = -m:m + for j = -m:m + ti = iter * (-i); + tj = iter * j; + x(l) = (ti ^ tj) - (tj ^ ti); + l = l + 1; + endfor + endfor +endfunction |