Кто может объяснить что делает эта часть кода?

Question

[Rostyk Ice]

sub two {
        my @first;
        my @second;
        my $f0 = $_[0];
        my $s0 = $_[1];
	my $aline = $_[2];
	my $gline = $_[3];
        my ($i,$j,$prob);
	my ($wo, $w, $wu, $do, $d, $du, $lo, $l, $lu);
	$wo = $w = $wu = $do = $d = $du = $lo = $l = $lu = 0;
        $first[0] = exp(-$f0);
        $second[0] = exp(-$s0);
        for ($i = 1; $i < 20; $i++) {
                $first[$i] = $first[$i-1]*$f0/$i;
                $second[$i] = $second[$i-1]*$s0/$i;
        }
        for ($i = 0; $i < 20; $i++) {
                for ($j = 0; $j < 20; $j++) {
			$prob = $first[$i]*$second[$j];
			if ($i + $aline > $j) {
				if ($i+$j > $gline) {
					$wo += $prob;
				} elsif ($i+$j < $gline) {
					$wu += $prob;
				} else { $w += $prob;}
			} elsif ($i + $aline < $j) {
				if ($i+$j > $gline) {
					$lo += $prob;
				} elsif ($i+$j < $gline) {
					$lu += $prob;
				} else { $l += $prob;}
			} else {
				if ($i+$j > $gline) {
					$do += $prob;
				} elsif ($i+$j < $gline) {
					$du += $prob;
				} else { $d += $prob;}
			}
                }
        }
        return ($wo, $w, $wu, $do, $d, $du, $lo, $l, $lu);
}

А если у вас есть желание помочь за вознаграждение разобрать еще 160 строк кода, то напишите пожалуйста.

Answer 1

[Saboteur]

Тут не сложность кода, тут просто математические расчеты, какой-то порядок цифр рассчитывают.
$first[$i] = $first[$i-1]*$f0/$i;

На вход подается четыре параметра, возвращает массив данных.

Comments

[Rostyk Ice]

А можно "вытянуть" эти математические расчеты?

[Saboteur]

Rostyk Ice: Так они же почти прямым текстом написаны. Программирования тут практически нет.

[Rostyk Ice]

Saboteur: Да, но есть еще другие строки кода и не могу понять каким образом получаеться результат. Я вам написал на почту, может там ответите?

[Rostyk Ice]

kloppspb: Все я знаю, кроме того как работеат скрипт, просто не могу на публику.

[Rostyk Ice]

kloppspb: там переменные переназываються много раз, я не знаю в какой последовательности исполняеться код и не знаю куда записываються(в конечном результате) введеные данные после обработки.

[Rostyk Ice]

kloppspb: Я рад что вы проявили интерес, но забыл указать что переназывается дальше в коде ($ssta += $sta;) и там 200 строк кода. Если есть желание помочь мне, то можно вам на почту написать?

[Rostyk Ice]

kloppspb: В лапках указал пример.

[Rostyk Ice]

окей, а что делаеться в этом коде?
sub kelly {
my $mrg = 0.99999;
my $mrg2 = 0.99999;
my $aline = $_[2];
my $gline = $_[4];
my $raline = $aline < 0 ? int($aline-0.3) : int($aline+0.3);
my $rgline = int($gline+0.3);
my @p = two($_[0], $_[1], $raline, $rgline);
my @f = ();
my ($stop, $rem, $t, $u, $n, $i, $ulog, $bu);
my $index = 0;
my ($sta, $sto, $reta, $reto);
my @o = (
[0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,0,0],
);
#print "@p\n";
@o[0] = [afill1($aline-$raline,$_[3]*$mrg)];
@o[1] = [afill2($aline-$raline,$_[3]/($_[3]-1)*$mrg)];
@o[2] = [gfill1($gline-$rgline,$_[5]*$mrg2)];
@o[3] = [gfill2($gline-$rgline,$_[5]/($_[5]-1)*$mrg2)];
#print "$o[0][0] $o[0][1] $o[0][2] $o[0][3] $o[0][4] $o[0][5] $o[0][6] $o[0][7] $o[0][8]\n";
#print "$o[2][0] $o[2][1] $o[2][2] $o[2][3] $o[2][4] $o[2][5] $o[2][6] $o[2][7] $o[2][8]\n";

[Rostyk Ice]

kloppspb: Есть 200 строк кода которые обробляют введеные данные, но как они работают я не знаю, я незнаю каким математическим методом он обсчитывает данные, не могу понять зачем там for, while и if\else + я не понимаю синтаксис perl и то что я догадался это только то что на уровне ($ssta прибавляется значение переменной $sta) я не понима зачем такое делать, начиная с $wo которое в конце переназываеться в $ssta.

[Rostyk Ice]

kloppspb: Так, если вы читали мою тему полностю, вы наверное заметили что если желаете помочь то за вознаграждение.
Мне не нужно каждую строчку вслух произнести, мне нужно узнать что будет делат скрипт с 1 из 13 переменных которые я буду туда вводить , тоесть проследить все изменения что будут происходить с ней в скрипте до окончательного результата.
За большие деньги, это за сколько?

[Rostyk Ice]

kloppspb: Либо уже ночь и туго соображаю, либо я вас не понимаю в последнем сообщении, а точнее то что вы хотели донести до меня кроме как интерпретировали мои слова на свое понимание.
Но то что вы написали в точности описывает то что мне нужно. Цена вопроса?

[Saboteur]

Rostyk Ice: Есть подозрение, что если этот код вам перевести на математическую формулировку, то вы увидите несколько страниц формул, и пойдете на форум математиков с просьбой "поясните что тут происходит".
Потому что в данном случае вам уже ответили - в коде слишком много математики и слишком мало программирования. Нужен математик. Если вы не понимаете алгоритма, то наша расшифровка вам не поможет.

[Saboteur]

Поясню на примере сколько тут математики, сколько программирования для вашего вопроса
"Что такое for, плюсы, минусы, звёздочки, скобочки, if/else/elseif? "

for цикл (да, это программирование)
if/else/elseif - если, иначе, иначе если - программирование.

exp - логарифм (математика)
Плюс - это ПЛЮС (математика)
Минус - это минус (математика)
звездочка - это умножить (математика)
Скобочки - это в основном скобочки (математика), иногда функции (математика), иногда указатели на массивы (математика)
> < - условия больше, меньше (математика)

почему переменные названы так, а не иначе - ну любят математики странно называть переменные.

[Rostyk Ice]

Saboteur: Да не пойду я на другие форумы. Создатель кода физик. Я знаю что за цыфры будут на выходе кода но не знаю что за 4 переменные нужно воодить сначало и поетому я хотел бы проледить "путь". У меня есть опыт с Java но на уровне baby и мне этого хватает что бы понять все что вы написали в последнем сообщении. А что вы бы не помогли расшифровать ?