You're using the [scale] formula from @classic_mode in Max7, which exists for compatibility with IRCAM, but it's clearly wrong. (There's no way mapping 13.3 from 0-127 to -1 to 1 should result in something so close to -1. Just try a few different exponents and you'll see that there's a bug in the Max code. And there are lots of bug reports out there about it.)
That's why they introduced an alternate mode for [scale] in Max, which can be switch in the Inspector.
For non-classic (modern) mode, the documentation gives you this equation:
((x-in_low)/(in_high-in_low) == 0) ? out_low : (((x-in_low)/(in_high-in_low)) > 0) ? (out_low + (out_high-out_low) * ((x-in_low)/(in_high-in_low))^exp) : ( out_low + (out_high-out_low) * -((((-x+in_low)/(in_high-in_low)))^(exp)))
Translated to expr as:
[expr if ((($f1-in_low)/(in_high-in_low)==0), out_low, if ((($f1-in_low)/(in_high-in_low)>0), out_low+(out_high-out_low)*pow(($f1-in_low)/(in_high-in_low), power), out_low+(out_high-out_low)*-1*pow((-1*$f1+in_low)/(in_high-in_low), power)))]
Switch off classic mode in the inspector in Max7, and you get the same result as expr above, the very sensible -0.817072.
Joel
On 06/19/2015 05:39 PM, Alexandre Torres Porres wrote:
Howdy, so I'm cloning the scale object from Max, to make an object and include in the cyclone library. It converts range input (low_in / high_in) to a range output (low_out / high_out). It has a logarithmic curve for rescaling according to a fifth argument/inlet. I did copy into expr the formula described in the reference of Max6/7 (max's 5 was just wrong, copied from [linedrive]) - well, it didn't work! Would anyone know if I'm doing something wrong or if the reference is not telling the truth?
The formula, as described in the reference is: (out_low + (out_high-out_low) * ( (out_high - out_low) * exp(-1 * (in_high-in_low) * log(power)) * exp(x * log(power)) ))
Here's my patch with that formula into expr. The output with the parameters I have should be -0.997347 - as that's the output I get in Max. But instead, it's giving -0.994694...
thanks
=================
#N canvas 24 23 488 340 10;
#X obj 215 154 v out_low;
#X obj 233 132 v out_high;
#X obj 288 110 v power;
#X obj 152 130 v in_high;
#X obj 115 153 v in_low;
#X floatatom 58 248 0 0 0 0 - - -;
#X obj 58 197 expr (out_low + (out_high-out_low) * ( (out_high - out_low)
* exp(-1*(in_high-in_low)*log(power)) * exp($f1*log(power)) ));
#X msg 115 102 0;
#X msg 152 102 127;
#X msg 215 99 -1;
#X msg 249 97 1;
#X msg 288 86 1.06;
#X obj 90 31 loadbang;
#X obj 90 60 t b b;
#X msg 58 107 13.3;
#X connect 6 0 5 0;
#X connect 7 0 4 0;
#X connect 8 0 3 0;
#X connect 9 0 0 0;
#X connect 10 0 1 0;
#X connect 11 0 2 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 1 11 0;
#X connect 13 1 10 0;
#X connect 13 1 9 0;
#X connect 13 1 8 0;
#X connect 13 1 7 0;
#X connect 14 0 6 0;
_______________________________________________ Pd-list@lists.iem.at mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list