pi

/*
Skrypt liczący ilosc zderzen sprezystych dwoch mas ze soba i sciana.
Dla m1 rownego kolejnym parzystym potegom liczby 10 (1,100,10000,1000000,...) ilosc zderzen to coraz dokladniejsze rozwiniecie liczby pi (3, 31, 314, 3141,...).
https://www.wykop.pl/link/4748043/najbardziej-nieoczekiwana-odpowiedz-na-liczbe-zderzen-eng/
(C) S0Cool 2019
*/

m1 = 100.0;  // tu zmieniamy mase 1
m2 = 1.0;
v1 = 1.0;
v2 = 0.0;
i = 0;

while( v1 > v2 || v2 > 0 )  // masa 1 w strone masy 2 lub masa 2 w strone sciany
{
    if( v1 > v2 )           // zderzenie mas ze soba
    {
        v10 = v1;
        v1 = ( v1 * ( m1 - m2 ) + v2 * m2 * 2 ) / ( m1 + m2 );
        v2 = ( v2 * ( m2 - m1 ) + v10 * m1 * 2 ) / ( m1 + m2 );
    }
    else                    // zderzenie masy 2 ze sciana
        v2 = -v2;
    i += 1;
}
WScript.Echo( "Ilosc zderzen: " + i );