plagiat muzy :)

skrecz wyśmienitego kabaretu Ani Mru Mru - GO GO GO



to muzyka żywce zaciągnięta od Johnny Hallyday - Johnny Reviens!
- ot taka ciekawostka

Excel - Łączenie skoroszytów

http://excel-calc-vba-basic.blogspot.com/2007/07/excel-laczenie-skoroszytow.html

Algorytm perceptronowy

Matlab - Symulacje

% Program napisał kshysieq@gmail.com
%algorytm perceptronowy w programie matlab... przy danych wejsciowych
%t-macierz punktów|  m-ilosc punktow| n-ilosc wymiarow|
%z1-ilosc punktow z 1 klasy| z2-ilosc punktow z 2 klasy|

function perceptron=perceptron(t,m,n,z1,z2)
w1=[n+1,1];
w2=[n+1,1];
for i=1:n+1
   w1(i)=0;
   w2(i)=0;
end
w1=transpose(w1);
w2=transpose(w2);

y=[n+1,n];
for i=1:m
   y(1,i)=1;
   for j=2:n+1
       y(j,i)=t(i,j-1);
   end
end

%prawdopodobienstwo wystapnienia poszczegolnej klasy
ln=z1/(z1+z2)

y

index=1;
zgodnosc=1;
while zgodnoscz1 l=1-ln;    else l=ln;    end
   y(1:n+1,mod(index,m))
   w2=w1+l*(1-sign(transpose(w1)*y(1:n+1,mod(index,m))))*(y(1:n+1,mod(index,m)));
   index=index+1;
   if w1~=w2 w1=w2; zgodnosc=1;
   else w1=w2; zgodnosc=zgodnosc+1;   
   end
   w1
   w2
end

'po przeprowadzeniu '
index
'iteracji i po stwierdzeniu ze ostatnich'
m
'iteracji daje takie same wyniki koncowy wynik to :'
w1

Max i min w przestrzeni 3D

Matlab - Symulacje

% Program napisał kshysieq@gmail.com
% do funkcji nalezy przekazywac macierz [n][3] tzn n-punktow 
% w przestrzeni 3-wymiarowej (no i oczywiscie n - czyli ich ilosc)

function maximin(t,n);
%t(:,:)
z=[n,4]; %tablica gdzie benda przechowywane prototypy klas (wspolrzendne i l.p. punktu)
p=[n,4]; %tablica gdzie przechowywane sa punkty nie bendonce prototypami

%zeruje tablice z klasami
for i=1:n
  for j=1:4 
      z(i,j)=0;
  end
end

%wypelniam tablice punktów tablica t oraz kolumne 3 indexami
for i=1:n      
    for j=1:3
        p(i,j)=t(i,j);
    end
    p(i,4)=i;
end
    disp(p)
   %disp(z) 
%pentla do szukania 2 pierwszych prototypów klas
max=odleglosc(p(1,1),p(1,2),p(1,3),p(1,1),p(1,2),p(1,3));
for i=1:n-1
    for j=i+1:n
       pom=odleglosc(p(i,1),p(i,2),p(i,3),p(j,1),p(j,2),p(j,3));
       if pom > max
           max=pom;
           p1=i;
           p2=j;
       end
    end
end 
z=klasa(z,p,p1,n); 
p=punkt(p,p1);
z=klasa(z,p,p2,n); 
p=punkt(p,p2);
disp(z); 
disp(p);

for i=3:n 
    m=sprawdz(z,p,n);
    if m > 0
        z=klasa(z,p,m,n); 
        p=punkt(p,m);
        'nastapila zmiana w tablicach prototypow oraz puktow oto one po zmianie '
        disp(z)
        disp(p)
    end    
end
% teraz zostala ustalona liczba klas a wiec mozna przyporzodkowac pukty do klas 

for i=1:n
    if p(i,3) > 0
        pom=klasyfikator(z,p,i,n);
        p(i,3)=pom;
    end
end
wypisz(z,p,n);

%liczy odleglosc miendzy dwoma punktami...
function  odleglosc=odleglosc(x1,y1,z1,x2,y2,z2);
 odleglosc=sqrt(((x2-x1)^2)+((y2-y1)^2)+((z2-z2)^2));

%funkcja do liczenia sredniej odleglosci miendzy punktami klas (dzielonej na dwa)
function srednia=srednia(z,n);
 %petla do sprawdzanie ile jest prototypow w tablicy z 
 for i=1:n 
     if z(i,4)==0 
          k=i;
          break;
     end
 end
 k=k-1;
 suma=0; 
 licznosc=0;
 for i=1:k-1 
     for j=i+1:k
         suma=suma+odleglosc(z(i,1),z(i,2),z(i,3),z(j,1),z(j,2),z(j,3));
         licznosc=licznosc+1;
     end 
 end
 srednia=suma/licznosc;
 srednia=srednia/2;

 
%funkcja od tego by wrzucic punkt do tablicy klas...
function z=klasa(z,p,i,n);
 for k=1:n
    if z(k,4)==0 
        index=k; 
        break; 
    end
 end
 %teraz pod 'index' jest index pierwszego wolnego miejsca na klasie...
 z(index,1)=p(i,1);
 z(index,2)=p(i,2);
 z(index,3)=p(i,3);
 z(index,4)=p(i,4);

 
%funkcja to tego by wyrzucic punkt z tablicy punktow poprzez wstawienie 
% w trzeciej kolumnie '0' czyli zera...
function p=punkt(p,i);
 p(i,4)=0;

 
 %funkcja majaca za zadanie sprawdzic czy nie trzeba dodac nowych klas 
% i jesli tak to wyrzuca index punktu który trzeba przerobic na klase
function index=sprawdz(z,p,n);
 index=0;
 for k=1:n
    if z(k,4)==0 
        in=k; 
        break; 
    end
 end
 in=in-1;
 % pod 'in' jest index ostatniego zapelnionego miejsca w klasie
 sr=srednia(z,n);
 k=0;
 for i=1:n
     if p(i,4)~=0
         min=odleglosc(p(i,1),p(i,2),p(i,3),z(1,1),z(1,2),z(1,3));
         for j=2:in
             if odleglosc(p(i,1),p(i,2),p(i,3),z(j,1),z(j,2),z(j,3)) < min
                 min=odleglosc(p(i,1),p(i,2),p(i,3),z(j,1),z(j,2),z(j,3));
             end
         end
         if min > sr 
             index=i;
             break;
         end
     end
 end

 
%funkcja oceniajaca do ktorej klasy nalezy dopisac dany punkt...
function numer=klasyfikator(z,p,i,n);
 for k=1:n
    if z(k,4)==0 
        in=k; 
        break; 
    end
 end
 in=in-1;
 % pod 'in' jest index ostatniego zapelnionego miejsca w klasie
 min=odleglosc(p(i,1),p(i,2),p(i,3),z(1,1),z(1,2),z(1,3));
 numer=1;
 for k=2:in
     if odleglosc(p(i,1),p(i,2),p(i,3),z(k,1),z(k,2),z(k,3)) < min
         min = odleglosc(p(i,1),p(i,2),p(i,3),z(k,1),z(k,2),z(k,3));
         numer=k;
     end
 end

 
function wypisz(z,p,n);
 for k=1:n
    if z(k,4)==0 
        in=k; 
        break; 
    end
 end
 in=in-1;
 % pod 'in' jest index ostatniego zapelnionego miejsca w klasie czyli ilosc klas!!!!!!!!!!!!
 'ilosc klas to : '
 in
 'klasa numer 1'
 for k=1:in
     z(k,1:3)
     for i=1:n
         if p(i,4) > 0
             if p(i,4)==k
                 p(i,1:3)
             end
         end
     end
     'i nastepna klasa'
 end

 

Max i Min w przestrzeni 2D

Matlab - Symulacje

% Program napisał kshysieq@gmail.com
% do funkcji nalezy przekazywac macierz [n][2] tzn n-punktow
%w przestrzeni 2-wymiarowej (no i oczywiscie n - czyli ich ilosc)

function maximin(t,n);

%t(:,:)
z=[n,3]; %tablica gdzie benda przechowywane prototypy klas (wspolrzendne i l.p. punktu)
p=[n,3]; %tablica gdzie przechowywane sa punkty nie bendonce prototypami

%zeruje tablice z klasami
for i=1:n
 for j=1:3
     z(i,j)=0;
 end
end

%wypelniam tablice punktów tablica t oraz kolumne 3 indexami
for i=1:n     
   p(i,1)=t(i,1);
   p(i,2)=t(i,2);
   p(i,3)=i;
end
   disp(p)
  %disp(z)
%pentla do szukania 2 pierwszych prototypów klas
max=odleglosc(p(1,1),p(1,2),p(1,1),p(1,2));
for i=1:n-1
   for j=i+1:n
      pom=odleglosc(p(i,1),p(i,2),p(j,1),p(j,2));
      if pom > max
          max=pom;
          p1=i;
          p2=j;
      end
   end
end
%odleglosc(p(p1,1),p(p1,2),p(p2,1),p(p2,2))
z=klasa(z,p,p1,n);
p=punkt(p,p1);
z=klasa(z,p,p2,n);
p=punkt(p,p2);
disp(z);
disp(p);

for i=3:n
   m=sprawdz(z,p,n);
   if m > 0
       z=klasa(z,p,m,n);
       p=punkt(p,m);
       'nastapila zmiana w tablicach prototypow oraz puktow oto one po zmianie '
       disp(z)
       disp(p)
   end   
end
% teraz zostala ustalona liczba klas a wiec mozna przyporzodkowac pukty do klas

for i=1:n
   if p(i,3) > 0
       pom=klasyfikator(z,p,i,n);
       i
       pom
       p(i,3)=pom;
   end
end
wypisz(z,p,n);

%liczy odleglosc miendzy dwoma punktami...
function  odleglosc=odleglosc(x1,y1,x2,y2);
odleglosc=sqrt(((x2-x1)^2)+((y2-y1)^2));

%funkcja do liczenia sredniej odleglosci miendzy punktami klas (dzielonej na dwa)
function srednia=srednia(z,n);
%petla do sprawdzanie ile jest prototypow w tablicy z
k=0;
for i=1:n
    if z(i,3)~=0
        k=k+1;
    end
end
suma=0;
licznosc=0;
for i=1:k-1
    for j=i+1:k
        suma=suma+odleglosc(z(i,1),z(i,2),z(j,1),z(j,2));
        licznosc=licznosc+1;
    end
end
srednia=suma/licznosc;
srednia=srednia/2;



%funkcja od tego by wrzucic punkt do tablicy klas...
function z=klasa(z,p,i,n);
for k=1:n
   if z(k,3)==0
       index=k;
       break;
   end
end
%teraz pod 'index' jest index pierwszego wolnego miejsca na klasie...
z(index,1)=p(i,1);
z(index,2)=p(i,2);
z(index,3)=p(i,3);



%funkcja to tego by wyrzucic punkt z tablicy punktow poprzez wstawienie w trzeciej kolumnie '0' czyli zera...
function p=punkt(p,i);
p(i,3)=0;



%funkcja majaca za zadanie sprawdzic czy nie trzeba dodac nowych klas
%i jesli tak to wyrzuca index punktu który trzeba przerobic na klase
function index=sprawdz(z,p,n);
index=0;
for k=1:n
   if z(k,3)==0
       in=k;
       break;
   end
end
in=in-1;
% pod 'in' jest index ostatniego zapelnionego miejsca w klasie
sr=srednia(z,n);
k=0;
for i=1:n
    if p(i,3)~=0
        min=odleglosc(p(i,1),p(i,2),z(1,1),z(1,2));
        for j=2:in
            if odleglosc(p(i,1),p(i,2),z(j,1),z(j,2)) < min="odleglosc(p(i,1),p(i,2),z(j,1),z(j,2));"> sr
            index=i;
            break;
        end
    end
end



%funkcja oceniajaca do ktorej klasy nalezy dopisac dany punkt...
function numer=klasyfikator(z,p,i,n);
for k=1:n
   if z(k,3)==0
       in=k;
       break;
   end
end
in=in-1;
% pod 'in' jest index ostatniego zapelnionego miejsca w klasie
min=odleglosc(p(i,1),p(i,2),z(1,1),z(1,2));
numer=1;
for k=2:in
    if odleglosc(p(i,1),p(i,2),z(k,1),z(k,2)) < min =" odleglosc(p(i,1),p(i,2),z(k,1),z(k,2));" numer="k;" k="1:n" in="k;" in="in-1;" k="1:in" i="1:n"> 0
            if p(i,3)==k
                p(i,1:2)
            end
        end
    end
    'i nastepna klasa'
end

Czy automat do kawy jest dzisiaj czynny?

Matlab - Symulacje - Czy automat do kawy jest dzisiaj czynny?

% skrypt

%autor: kshysieq@gmail.com (c)

n = input('Podaj po ilu dniach chcesz to sprawdzic       --> ');
p = input('Podaj P na naprawe maszyny na dzien nastepny  --> '); 
q = input('Podaj P na popsucie maszyny na dzien nastepny --> '); 

[CZYNNA,dzk] = czynna(p,q,n);

if CZYNNA == 1
 disp('Automat bedzie czynny');
elseif CZYNNA ==0
 disp('Automat bedzie popsuty');
end

disp('Procentowa ilosc dni z kawa przez ten okres to:'); disp(dzk);
clear
%autor: kshysieq@gmail.com (c)

% czynna.m (funkcja)

%autor: kshysieq@gmail.com (c)

function [STAN,dni_ok] = czynna(p,q,n);
s = rand(1);
if s >= 0.5
 s = 1;
else
 s = 0;
end
dok = 0;
hold on;
for i=1:n
 los = rand(1);
 if s == 1
  plot(i,s,'ro');
  dok = dok + 1;
 elseif s == 0
  plot(i,s,'ks');
 end
 
 if s==0
  if los <= p
   s = 1;
  end
 elseif s==1
  if los <= q
   s = 0;
  end
 end
end

dok = 100*dok/n;

grid on;
axis([0,n+1,-n/5,n/5]);
xlabel('Dzien');
ylabel('Stan coffee - banku');
STAN = s;
dni_ok = dok;

%autor: kshysieq@gmail.com (c)

XP Home - Pendrive - Odmowa dostępu

Pod XP Home Edition zawsze włączona jest opcja prostego udostępniania plików jednak dla napędu Pendrive Windows się buntuje i nie mamy prawa dostępu - oczywiście tylko pod Exploratorem

Co ciekawe sytuacja może wystąpić nawet jeśli wcześniej działał - ktoś wie dlaczego? ;P

Aby przywrócić dostęp należy skorzystać z narzędzia administracyjnego "zarządzanie komputerem"

Start | Narzędzia administracyjne | Zarządzanie komputerem

jeżeli w menu start nie ma skrótów do narzędzi to można:

Start | Uruchom | compmgmt.msc

Teraz w oknie Zarządzanie komputerem:

Magazyn | Magazyn wymienny | Biblioteki | Nazwa_napędu (np Kingston...)

PPM | Właściwości zabezpieczenia | Dodaj

No i dodajemy użytkownika - na jakim występuje problem - jego nazwa wyświetla się na samej górze w Starcie

Niżej w okienku - zaznaczmy prawa jakie chcemy przydzielić (najlepiej wszystkie)

OK

... i gotowe :)