При работе с текстом мне постоянно приходится менять представление чисел, переводя из одной системы счисления в другую. Что я хотел сказать? Emacs прекрасен. Взял и накидал несколько функций на elisp. Теперь, выделив число в тексте, можно быстро представить его в другой системе. Ниже привожу листинг.
;; convert decimal to binary
(defun pa23-dec2bin (start end)
"Convert decimal to binary."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end)))
(while (not (= var 0))
(setq res (concat (if (= 1 (logand var 1)) "1" "0") res))
(setq var (lsh var -1)) )
(if (string= res "") (setq res "0"))
(delete-region start end)
(insert res) ) )
;; convert decimal to hexadecimal
(defun pa23-dec2hex (start end)
"Convert decimal to hexadecimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end)))
(setq res (upcase (format "%x" var)))
(delete-region start end)
(insert res) ) )
;; convert hexadecimal to binary
(defun pa23-hex2bin (start end)
"Convert hexadecimal to binary."
(interactive "r")
(let ((var "") (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 16))
(while (not (= var 0))
(setq res (concat (if (= 1 (logand var 1)) "1" "0") res))
(setq var (lsh var -1)) )
(if (string= res "") (setq res "0"))
(delete-region start end)
(insert res) ) )
;; convert hexadecimal to decimal
(defun pa23-hex2dec (start end)
"Convert hexadecimal to decimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 16))
(setq res (number-to-string var))
(delete-region start end)
(insert res) ) )
;; convert binary to decimal
(defun pa23-bin2dec (start end)
"Convert binary to decimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 2))
(setq res (number-to-string var))
(delete-region start end)
(insert res) ) )
;; convert binary to hexadecimal
(defun pa23-bin2hex (start end)
"Convert binary to hexadecimal."
(interactive "r")
(let ((var 0) (res ""))
(setq var (string-to-number (buffer-substring-no-properties start end) 2))
(setq res (upcase (format "%x" var)))
(delete-region start end)
(insert res) ) )Так уж получается, что потянуло меня опять по ряду причин на WxWidgets. Системой моей по-прежнему является ArchLinux, а для сборки программ я предпочитаю cmake. Подготовил файлы, запускаю
cmake -G "Unix Makefiles"
и получаю сообщение об ошибке
Расследование привело меня к файлу /usr/lib/wx/config/gtk3-unicode-3.0, на который есть символическая ссылка в /usr/bin. Вот только называется файл-ссылка wx-config-gtk3, а cmake хотел просто wx-config.
Решение проблемы:
sudo ln -s /usr/lib/wx/config/gtk3-unicode-3.0 /usr/bin/wx-config
И наш
cmake -G "Unix Makefiles"
теперь отрабатывает без ошибок.
const vector<double> X = { 1, 1.5, 2, 2.5 };
const vector<double> Y = { 25, 30, 40 };
const vector< vector<double> > Z =
{ {0.392, 0.476, 0.574, 0.658},
{0.406, 0.588, 0.770, 1.050},
{0.434, 0.700, 0.980, 1.119} };double linInterp2D(
double x1, double y1,
double x2, double y2,
double x
) {
double y = y1 + (x - x1) * (y2 - y1) / (x2 - x1);
return y;
}
double linInterp3D(
double x1, double y1,
double x2, double y2,
double z11, double z21, double z12, double z22,
double x, double y
) {
/*
|
y2-| z12 z22
|
y-| z
|
y1-| z11 z21
|_______________
| | |
x1 x x2
*/
double z1 = z11 + (z12 - z11) * (y - y1) / (y2 - y1);
double z2 = z21 + (z22 - z21) * (y - y1) / (y2 - y1);
double z = z1 + (z2 - z1) * (x - x1) / (x2 - x1);
return z;
}double findZ(double x, double y) {
double x1 = 0; double x1i = 0;
double y1 = 0; double y1i = 0;
double x2 = 0; double x2i = 0;
double y2 = 0; double y2i = 0;
double z11 = 0;
double z21 = 0;
double z12 = 0;
double z22 = 0;
bool x_inside_range = false;
bool y_inside_range = false;
for (size_t i=0; i<X.size()-1; i++) {
if ( x == X[i] ) {
x1 = x2 = X[i];
x1i = x2i = i;
x_inside_range = true;
break;
}
else if ( (x > X[i]) && (x < X[i+1]) ) {
x1 = X[i];
x1i = i;
x2 = X[i+1];
x2i = i+1;
x_inside_range = true;
break;
}
else if ( x == X[i+1] ) {
x1 = x2 = X[i+1];
x1i = x2i = i+1;
x_inside_range = true;
break;
}
}
if ( !x_inside_range ) {
cout << "x is outside of X axis range!\n";
return -666;
}
for (size_t i=0; i<Y.size()-1; i++) {
if ( y == Y[i] ) {
y1 = y2 = Y[i];
y1i = y2i = i;
y_inside_range = true;
break;
}
else if ( (y > Y[i]) && (y < Y[i+1]) ) {
y1 = Y[i];
y1i = i;
y2 = Y[i+1];
y2i = i+1;
y_inside_range = true;
break;
}
else if ( y == Y[i+1] ) {
y1 = y2 = Y[i+1];
y1i = y2i = i+1;
y_inside_range = true;
break;
}
}
if ( !y_inside_range ) {
cout << "y is outside of Y axis range!\n";
return -666;
}
z11 = Z[y1i][x1i];
z21 = Z[y1i][x2i];
z12 = Z[y2i][x1i];
z22 = Z[y2i][x2i];
if ( (x1 == x2) && (y1 == y2) ) {
return Z[y1i][x1i];
}
else if ( (x1 == x2) && (y1 != y2) ) {
return linInterp2D(y1, z11, y2, z12, y);
}
else if ( (x1 != x2) && (y1 == y2) ) {
return linInterp2D(x1, z11, x2, z21, x);
}
else {
return linInterp3D(x1, y1, x2, y2, z11, z21, z12, z22, x, y);
}
}find . -name "*.ogg" -exec ffmpeg -i {} -ab 320k {}.mp3 \;(defun pa23-ascii2text (start end)
"Convert ASCII codes to text."
(interactive "r")
(let ((text))
(progn
(setq line (buffer-substring-no-properties start end))
(setq ascii (split-string line ";"))
(mapc
(lambda (code)
(push (string-to-number code) text)
)
ascii )
)
(delete-region start end)
(insert (apply 'string (reverse text)))
)
)
(defun pa23-text2ascii (start end)
"Convert text to ASCII codes."
(interactive "r")
(let ((temp) (ascii))
(progn
(setq temp (string-to-list (buffer-substring-no-properties start end)))
(mapc
(lambda (code)
(setq ascii (concat ascii (number-to-string code) ";"))
)
temp )
)
(delete-region start end)
(insert (substring ascii 0 -1))
)
)