Ich bekom in letzer Zeit Mails die irgendwelchen Programcode enthalten, die Mailadresse hat in Domaenenzone nur eine IP, aber nach dem Kommentaren ist der Absender deutssprachig. Aber den Programmcode verstehe ich garnicht, aber gefaehrlich schauts nicht aus, weil es nicht objektorientiert ausschaut und so nur Plaintext ist. Und der Absender antwortet mir nicht.
I = double(imread('ATPthymo.tif'))/255.0;
R=I(:,:,1);
G=I(:,:,2);
B=I(:,:,3);
R2=floor(R*20)+1;
B2=floor(B*20)+1;
H=zeros(20,20);
for x=1:20 for y=1:20 H(x,y)=sum(bitand((R2(:)==x),(B2(:)==y))==1); end; end;
imshow(log(1+H),[]);
%[X,Y]=ginput(3);
%px=[X(1),X(2)];
%py=[Y(1),Y(2)];
%line(px,py);
--------------------------------------------------------------------------------
[inputX,inputY]=ginput(3);
LineAB_X=[inputX(1),inputX(2)];
LineAB_Y=[inputY(1),inputY(2)];
LineBC_X=[inputX(2),inputX(3)];
LineBC_Y=[inputY(2),inputY(3)];
LineAC_X=[inputX(1),inputX(3)];
LineAC_Y=[inputY(1),inputY(3)];
line(LineAB_X,LineAB_Y);
line(LineBC_X,LineBC_Y);
line(LineAC_X,LineAC_Y);
VectorA_X=inputX(2)-inputX(1);
VectorA_Y=inputY(2)-inputY(1);
VectorA_Length=sqrt(VectorA_X.^2+VectorA_Y.^2);
MiddleA_X=inputX(1)+VectorA_X*(1/2);
MiddleA_Y=inputY(1)+VectorA_Y*(1/2);
plot(MiddleA_X,MiddleA_Y,'*');
VectorB_X=inputX(3)-inputX(2);
VectorB_Y=inputY(3)-inputY(2);
VectorB_Length=sqrt(VectorB_X.^2+VectorB_Y.^2);
MiddleB_X=inputX(2)+VectorB_X*(1/2);
MiddleB_Y=inputY(2)+VectorB_Y*(1/2);
plot(MiddleB_X,MiddleB_Y,'*');
VectorC_X=inputX(1)-inputX(3);
VectorC_Y=inputY(1)-inputY(3);
VectorC_Length=sqrt(VectorC_X.^2+VectorC_Y.^2);
MiddleC_X=inputX(3)+VectorC_X*(1/2);
MiddleC_Y=inputY(3)+VectorC_Y*(1/2);
plot(MiddleC_X,MiddleC_Y,'*');
NormalenVectorA_X=VectorA_Y*(-1);
NormalenVectorA_Y=VectorA_X;
MittelsenkrechteA_X=[MiddleA_X,MiddleA_X+NormalenVectorA_X];
MittelsenkrechteA_Y=[MiddleA_Y,MiddleA_Y+NormalenVectorA_Y];
line(MittelsenkrechteA_X,MittelsenkrechteA_Y);
NormalenVectorB_X=VectorB_Y*(-1);
NormalenVectorB_Y=VectorB_X;
MittelsenkrechteB_X=[MiddleB_X,MiddleB_X+NormalenVectorB_X];
MittelsenkrechteB_Y=[MiddleB_Y,MiddleB_Y+NormalenVectorB_Y];
line(MittelsenkrechteB_X,MittelsenkrechteB_Y);
NormalenVectorC_X=VectorC_Y*(-1);
NormalenVectorC_Y=VectorC_X;
MittelsenkrechteC_X=[MiddleC_X,MiddleC_X+NormalenVectorC_X];
MittelsenkrechteC_Y=[MiddleC_Y,MiddleC_Y+NormalenVectorC_Y];
line(MittelsenkrechteC_X,MittelsenkrechteC_Y);
%Das_Y=(((MiddleB_Y-MiddleA_Y)/NormalenVectorA_Y)-(((MiddleB_X-MiddleA_X)/NormalenVectorA_X))/((NormalenVectorB_X-NormalenVectorB_Y)/(NormalenVectorA_X-NormalenVectorA_Y));i))
%Das_Y=(((MiddleB_Y-MiddleA_Y)/NormalenVectorA_Y)-((MiddleB_X-MiddleA_X)/NormalenVectorA_X))/((NormalenVectorB_X-NormalenVectorB_Y)/(NormalenVectorA_X-NormalenVectorA_Y));
Das_Y=((NormalenVectorA_X.^2*MiddleB_Y-NormalenVectorA_X.^2*MiddleA_Y-NormalenVectorA_X*NormalenVectorA_Y*MiddleB_X+NormalenVectorA_X*NormalenVectorA_Y*MiddleA_X-NormalenVectorA_X*NormalenVectorA_Y*MiddleB_Y+NormalenVectorA_X*NormalenVectorA_Y*MiddleA_Y+NormalenVectorA_Y.^2*MiddleB_X-NormalenVectorA_Y.^2*MiddleA_X)/(NormalenVectorA_Y*NormalenVectorA_X*NormalenVectorB_X-NormalenVectorA_Y*NormalenVectorA_X*NormalenVectorB_Y))
Mitte_X=MiddleB_X+Das_Y*NormalenVectorB_X;
Mitte_Y=MiddleB_Y+Das_Y*NormalenVectorB_Y;
plot(Mitte_X,Mitte_Y,'*');
Vielleicht ist es ja Mathematica?