in reply to Re^4: Reverse engineering a formula...
in thread Reverse engineering a formula...
As I said before: Not enough information...
It seems as if your formular is something like this (untested code of course):
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
It seems as if your formular is something like this (untested code of course):
Now you "only" need to get the correct combination of -1, 0 and 1 for @sign, which is a "simple" combinational task but will be very lengthy...my @sign=( .... ); # Some combination of -1, 0 1 my @sum= map { $sign[$i] * $VAR1[$i] } (0..$#VAR1); print eval join ' + ', @sum;
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
|
|---|
In Section
Seekers of Perl Wisdom