Thomas Plehn online

  • Increase font size
  • Default font size
  • Decrease font size

Software

E-mail Print PDF

Hier eine Zusammenstellung der neusten Software, die ich entwickelt habe. Vieles andere ist entweder nicht sinnvoll zu veröffentlichen oder ist als "closed source" Eigentum meines Arbeitgebers.

Aktuell:

Wer überprüfen möchte, welche Rendite seine Rentenversicherung hat, kann folgendes C++ Fragment nehmen:

#include <iostream>
#include <cmath>

using namespace std;

double calc(double K, double q, double r, int n){

for(int i= 0; i<n; i++){


   K = K*q + r;

}


return K;


}


int main(){

  int n;
  int m;
  double r_in;
  double r_out;


  cout << "Einzahljahre" << endl;
  cin >> n;

  cout << "Auszahljahre" << endl;
  cin >> m;

  cout << "Monatsrate ein" << endl;
  cin >> r_in;

  cout << "Monatsrate aus" << endl;
  cin >> r_out;

  int i;

  for(i=-100; i<100; i++){

      double q = pow(1+(double)i/1000.0,1.0/12.0);

      double ein = calc(0,q,r_in,n*12);

      double out = calc(ein,q,-r_out,m*12);

      if(out > 0) break;

  }

  cout << "Rendite p.a." << endl;
  cout << (double)i/10.0 << endl;


 return 0;


}

Alte Neuigkeiten:

Ein schöner Effekt mit Matlab zum neuen Jahr. Ist zwar ein alter Hut, aber lässt sich immer wieder aufwärmen. Wer keinen Interpreter hat, kann Scilab/Oktave nehmen: http://www.octave.org

mandelbrot set

hochaufgelöste Version hier

xres = 3000;
yres = 2000;

x = linspace(-2,1,xres);
y = linspace(-1,1,yres);

I = zeros(yres,xres);

for i=1:yres
disp(i);
for j=1:xres
c = complex(x(j),y(i));
f = 0;
for iter=1:50
f = f^2 + c;
if abs(f) > 1e12
break;
end
end
I(i,j) = abs(f);
end
end

low_bound = min(min(I));
upper_bound = max(max(I));

imshow(log(I),[log(low_bound),log(upper_bound)]);

Last Updated on Sunday, 04 June 2017 17:42  

Stats

OS : Linux s
PHP : 5.3.3
MySQL : 5.5.54-38.6-log
Time : 14:58
Caching : Disabled
GZIP : Disabled
Members : 2
Content : 10
Web Links : 6
Content View Hits : 12005

Feedback

was ist auf dieser Seite am nützlichsten?