libtool: link: g++ -g -O2 -fopenmp -o .libs/netgen demoview.o ngappinit.o onetcl.o parallelfunc.o ngpkg.o -Wl,--export-dynamic  ../libsrc/visualization/.libs/libvisual.a ../libsrc/csg/.libs/libcsgvis.so ../libsrc/csg/.libs/libcsg.so ../libsrc/interface/.libs/libinterface.so ../libsrc/meshing/.libs/libmesh.so -L/usr/lib/Togl1.7 -lTogl -lGLU -L/usr/lib/x86_64-linux-gnu -ltk8.6 -ltcl8.6 -lGL -lXmu -lX11 -fopenmp -Wl,-rpath -Wl,/opt/netgen/lib
/usr/bin/ld: cannot find -lXmu: No such file or directory
collect2: error: ld returned 1 exit status

нужно убрать \"
;"(\"- F1 * (a - a1) + F2 * (a2 - a) + F3 * (a3 - a)\") / (\"b - a\")"

и получить 

 "(- F1 * (a - a1) + F2 * (a2 - a) + F3 * (a3 - a)) / (b - a)"

используя emacs API

(defun f-F-a (product lst1 lst2)
  (if (eq (car lst1) nil)
 product
    (f-F-a (cons (message "%S * %S" (car lst1) (car lst2)) product) (cdr lst1) (cdr lst2))))

(f-F-a '() '("- F1" "+ F2" "- F3")  '("a1" "a2" "a3")) ;;=>
;;=> ("\"- F3\" * \"a3\"" "\"+ F2\" * \"a2\"" "\"- F1\" * \"a1\"") получилось
;;а хочется вот так
;;"- F3 * a3 + F2 * a2 - F1 * a1"
напишите кодом, как это можно сделать, пожалуйста.

(require 'subr)
Debugger entered--Lisp error: (error "Loading file /usr/share/emacs/27.1/lisp/subr.elc f...")
  require(subr)

(string-trim "f" "jdjjfjjj") => "f"
(string-trim "jdjjfjjj" "f") => "jdjjfjjj"
(string-trim-left "f" "jdjjfjjj") => "f"
(string-trim-right "jdjjfjjj" "f") => "jdjjfjjj"

Пластина 300Х300 мм
Толщина пластины 4 мм
Теплопроводность 41 Вт/(м град)
Скорость движения электрода 22 м/ч
Мощность дуги 1833 Вт
Среда окружающая атмосфера
Получить время остывания шва от 1540 град до 600 град

set terminal dxf
load 'plot.txt'

Если можно, пример
Прыгун на          Прыгнул      Время
скакалке            раз        прыгал
1                  15           1мин
2                  10           10сек
3                  20           30сек

надо узнать кто больше раз напрыгает в будущем за меньшее время.

integrate((2*q*dt)/(c*γ*[4*π*a*(t-t')]^(3/2)),t,0,t);
incorrect syntax: ' is not an infix operator
\263*[4*Space%piSpace*a*(t-t')

переделал так
integrate((2*q*dt)/(c*γ*[4*π*a*(t-к)]^(3/2)),t,0,7);
Is r-7 positive, negative or zero?

подправил и что-то вышло не понятное
(%i7)	integrate((2*q)/(c*γ*[4*π*a*(t-r)]^(3/2)),t,0,t);
"Is "t" positive, negative or zero?"positivew;
"Is "t" positive, negative or zero?"positivew;
"Is "t" positive, negative or zero?"positive;
"Is "t-r" positive, negative or zero?"positive;
"Is "r" positive, negative or zero?"positive;
(%o7)	[(q*integrate(1/(a*(t-r))^(3/2),t,0,t))/(4*%pi^(3/2)*c*γ)]

Θ = (1 / ρ) * e^(- ρ * ( 1 + cos φ))

логарифмирую

ln Θ = (ln 1 - ln ρ) + (- ρ * ( 1 + cos φ)) ln e = (0 - ln ρ) + (- ρ * ( 1 + cos φ)) * 1 =

= - ln ρ + (- ρ * ( 1 + cos φ)) <------- вот тут мои сомнения при потенциировании, всётаки после - ln ρ идет действие сложения но логарифма нет.

потенциирую

Θ = - ρ – ρ * ( 1 + cos φ) = - ρ * (1 + ( 1 + cos φ)) = ρ * (- 1 - ( 1 + cos φ))

откуда
ρ = Θ / (- 1 - ( 1 + cos φ))

$python3
>>> sqrt(2.)*7
Traceback (most recent call last):
  File "<stdin>", line 1, in <module>
NameError: name 'sqrt' is not defined

>>> from math import sqrt
>>> sqrt(2.)*7
9.899494936611665

from math import sqrt

******* ERROR ********
Line 27 in par.pre.fbd

swep p4 p5 tra <sqrt(2.)*a> 0 0 2

'NoneType' object is not callable

(defvar *result*)
(setq *result* 0)
(defun sum-list (lst)
  (if (eq (car lst) nil)
      *result*
    (progn
      (setq *result* (+ *result* (car lst)))
      (sum-list (cdr lst)))))

(sum-list '(1 2 3 4 5)) => 15

(defun labels-sum-list (lst n)
  (labels ((temp (lst)
             (if (eq (car lst) nil)
                 n
               (progn
                 (setq n (+ n (car lst)))))))
    (temp (cdr lst))))

(labels-sum-list '(1 2 3 4 5) 0) => 2