Сообщения saufesma

(letrec ((even?
          (lambda (n)
            (if (zero? n)
                #t
                (odd? (- n 1))))) ;; ---> <bindings> should have 
                         ;;the form ((<variable1> <init1>)
                         ;;в данном случае
                         ;;<variable1> n
                         ;;<init1> (lambda (n) ...)
         (odd?
          (lambda (n)
            (if (zero? n)
                #f
                (even? (- n 1)))))) ;;---> <bindings>
  (even? 88)) ;;---> <body>

library syntax: (letrec <bindings> <body>)

Из-за того что

library procedure: (odd? n)

library procedure: (even? n)

These numerical predicates test a number for a particular property, returning #t or #f.

пример выглядит не совсем понятным.

Бросьте более читаемый примерчик использования letrec.

saufesma
(02.10.20 12:07:34 MSK)

50 комментариев

Форум — Development

Есть ли VARKON CAD скомпилированный в/как AppImage

Нигде не могу найти, хотелось бы посмотреть как оно устроено.

saufesma
(29.09.20 15:54:42 MSK)

1 комментарий

Форум — Science & Engineering

На какой градус повернуть оси в 3Д чертеже чтобы получить аксонометрию в 2Д

Оси, default

Х горизонтально слева направо

Y вверх

Z на user

saufesma
(25.09.20 18:39:39 MSK)

2 комментария

Форум — Talks

Вопрос грамотным форумчанам

проекты

Объясните, мне один момент. no-such-file, monk, DarkEld3r

вот здесь беседа очень грамотных людей

DrRacket and elisp окончательно запутался (комментарий)

сегодняшняя беседа идет уже 9 часов, по моим подсчётам.

Вот мой вопрос почему это количество постов не перетекает в качество, то есть в предложение сделать, что-либо, управляемый механизм, управляемую технологическую цепочку, что угодно. Ведь если такого нет это всё просто болталогия даже если она и интересная. Ведь это 9 часов жизни в никуда. Может уже стоит попробовать, что-то предложить создать.

Перемещено Zhbert из general

saufesma
(23.04.20 20:00:44 MSK)

48 комментариев

Форум — Development

DrRacket and elisp окончательно запутался

elisp, scheme

Не могу понять уже, что я тут писал, всего-то нужна функция которая режет лист на две части и возвращает левую часть то, что я написал на ракете, не работает и не пойму почему

#lang racket
(define *distance-lst* (list 1 2 3 4 5 6))

(define *A-distance* 3)
(define *left-A-lst* '())

(define d-lst (length *distance-lst*))
(define *output-lst* '())
(define (slice input-lst a output-lst)
  (if (< (first input-lst) a)
      (slice (cons (first input-lst) output-lst)
             a
             (set! input-lst (rest input-lst)))
      output-lst))
     
;;(define (split-lst lst-input a lst-output)
;  (if (< (first lst-input) a)
 ;     (split-lst (set! lst-input (rest lst-input))
  ;                     a
   ;                    (set! lst-output
    ;                         (cons
     ;                         (first lst-input) lst-output)))
 ; lst-output))

(slice *distance-lst* *A-distance* *left-A-lst*)

и вот на elisp и работает как надо, задолбало, что не так не могу понять эту ракету

(defun slice (input-lst a output-lst)
(if (< (car input-lst) a)
(slice (cdr input-lst) a (push (car input-lst) output-lst))
output-lst))

(nreverse (slice '(1 2 3 4 5 6) 5 '()))

saufesma
(21.04.20 16:42:49 MSK)

213 комментариев (стр. 2 3 4 5)

Форум — Development

Emacs -> sbcl, wishfull thinking

common lisp, emacs

Никто не пробовал соединить emacs widget с sbcl, я вот к чему, пишем интерфейс на emаcs а обработчик вызывает код на sbcl и уже там происходит вычисление кода, common lisp кода.

saufesma
(05.04.20 00:33:37 MSK)

31 комментарий

Форум — Development

Не могу выловить Wrong type argument: number-or-marker-p, nil

elisp

(defun pos-in-lst (n lst count)
  (if (= n (car lst))
      count
    (pos-in-lst n (setq lst (cdr lst))
		(setq count (+ count 1)))))

.......
;;В этом месте всё прекрасно
(setq *omega3-max-pos-in-lst* (pos-in-lst *omega3-max*
					   *rev-true-omega3-lst*
					   *count*))
 ;; а здесь ошибка Wrong type argument: number-or-marker-p, nil
  (setq *PHI2-at-omega3-max* (pos-in-lst *omega3-max-pos-in-lst*
					   *lst-of-val-PHI2*
					   *count*))

Проверяю аргументы

*omega3-max-pos-in-lst* ===> 59 (#o73, #x3b, ?\;)

*lst-of-val-PHI2* ===> (6.283185307179525 6.248278722139639 6.213372137099753 6.178465552059866 6.14355896701998 6.108652381980094 6.073745796940208 6.038839211900322 6.003932626860435 5.969026041820549 5.934119456780663 5.899212871740777 ...)

*count* ===> 0 (#o0, #x0, ?\C-@)

Правда 1011 строк кода и имакс просто отказывается работать, не могу сообразить

saufesma
(04.04.20 03:59:18 MSK)

3 комментария

Форум — Development

Как сконструировать лист

elisp

(defvar *lst*)
(defvar *w-lst*)
(defvar *pos-min*)
(defvar *pos-max*)
(setq *lst* (list 45 1 2 3 4 5 6 7))
(setq *w-lst nil)
(setq *pos-min* 2)
(setq *pos-max* 3)

Как на выходе получить лист *w-lst* с элементами (1 2), сообразить не могу. Используемый язык elisp.

Получил я свой лист, сомнительным способом, может кто математически подскажет, а то может оказаться, что этот код только на этом листе и даёт правильный результат

(progn
(defvar *lst*)
(defvar *w-lst*)
(defvar *w-lst1*)
(defvar *pos-min*)
(defvar *pos-max*)
(setq *lst* (list 45 1 2 3 4 5 6 7))
(setq *w-lst* nil)
(setq *w-lst1* nil)
(setq *pos-min* 2)
(setq *pos-max* 3))

(defun list-cdr (w-lst1 lst pos-max)
  (if (< 0 pos-max)
      (make-list (push (car lst) w-lst1)
		 (setq lst (cdr lst))
	       (- pos-max 1))
    w-lst1))

(setq *w-lst1* (nreverse
(list-cdr *w-lst1* *lst* *pos-max*)))

(setq *w-lst1* (nthcdr (- *pos-min* 1) *w-lst1*))

saufesma
(30.03.20 01:34:53 MSK)

3 комментария

Форум — Linux-org-ru

Нужно что-то делать

ошибка

Я в такое упираюсь по часу бывает

An error occurred during a connection to www.linux.org.ru. PR_END_OF_FILE_ERROR

The page you are trying to view cannot be shown because the authenticity of the received data could not be verified.
Please contact the website owners to inform them of this problem.

а в dwg.ru такое не выскакивает. Можно что-то сделать?

saufesma
(16.03.20 23:58:30 MSK)

4 комментария

Форум — Development

Куда помещать табличные данные для програмки

scheme

Получилось как одним заглавием всё сказал. Добавлю, если в листы запихивать таблицы то программка будет совсем уж увесистой, да писать их трудновато, ошибки трудно будет вылавливать. В отдельный файл, то не знаю как оттуда потом дергать данные. Заранее спасибо.

saufesma
(16.03.20 23:43:51 MSK)

45 комментариев

Форум — Science & Engineering

Как рассматривать результаты вычислений

механика

Такая задача, цилиндр длиной 1000мм, радиусом 57 мм. Определить массу, момент инерции, задача решается руками и с помощью VariCAD

Плотность	ρ		7.85E-06	кг/мм^3
Длина	L		1000	мм
Радиус	R		57	мм
Масса	m	(PI * R^2 * L) * ρ	80.1252210723789	кг
Результат	VariCAD		80.125221	кг
Момент инерции	J	(m / 2)* R^2	0.13016342163208	кг/м^2
Результат	VariCAD		0.12858245446869	кг/м^2

Нетрудно видеть с массой VariCAD справился на отлично, с моментом инерции не очень или это у меня косяк, а какой не вижу.

Стало интересовать такая проблема, простенькая такая как центр тяжести. Как пример, берём трубу длиной 1000мм, диаметром 57мм, толщина стенки 3.5мм и сверлим в ней отверстия в ряд по 8мм каждое, насквозь. А затем делаем лыску на стороне скажем входных отверстий, вставляем в отверстия штыри по 150 мм, и вот надо рассчитать центр тяжести. Руками как-то не знаю, может кто научит? Теперь не знаю как решить такую задачку т.к. не знаю как относиться к результатам расчёта на VariCAD. Salome-meca and FreeCAD or Solvespace такие дела не решают. Кто подскажет софту?

saufesma
(10.03.20 22:31:09 MSK)

29 комментариев

Форум — Development

Уже не читабельная таблица LibreOffice Calc

emacs, libreoffice

Скорее всего я разговариваю сам с собой, у меня вводных 100 строк, 13 листов расчётов. От 20 до 40 строчек каждый лист. Каждый лист зависит от предыдущего, что с этим делать не могу сообразить. Как это раскидать чтобы можно было работать комфортнее. Data base какую сделать, так в LibreOffice data base как адресная книга, а у меня цифирки, да и на имаксе тоже не знаю как. Вдруг кто сталкивался с такой ситуацией, подскажите.

saufesma
(02.03.20 22:05:52 MSK)

8 комментариев

Форум — Development

Не могу разобраться с emacs widget

emacs, widget

Перелопатил widget example и widget-demo.el, в последнем оказались ошибки которые нужно исправлять, а я не понимаю как эти видгеты определять, если требуется выход за рамки widget example, не то, что ошибки исправлять, ситуация из рук вон плохо. На форуме тоже ничего не нашёл.

Мне нужно объяснение как создавать новые видгеты. И желательно знающего -> незнающему.

saufesma
(18.02.20 22:30:46 MSK)

38 комментариев

Форум — Development

Как работать с классами в Racket

схема


#lang racket/gui
;Point dwell in canvas, cavas dwell in frame
(define frame (new frame%
                   [label "Example"]
                   [width 300]
                   [height 300]))
; Add a text fields to the frame
(define dia
(new text-field% [parent frame]
     [label "Diameter"]))
  ;[callback (lambda (value event)
              ;(send dia get-value))])) ;непонятно как тут рабртает
(define b (send dia get-value)) ;does not work
;(send dia get-value) запустил прогу, потом вбиваю 
;"455677"              это в репл, работает

(send frame show #t)
[/code/
Не понятно как вызывать методы класса из окружающего класс кода

saufesma
(01.02.20 08:57:43 MSK)

1 комментарий

Форум — Admin

Спутниковый интернет душит

космос

Проблема вот в чём, сервер получает сигнал с антены, сеть вайфай, с такими ограничениями, 10Гб на месяц, 6 часов в день. Самое плохое вот в чём, как только объём проходит точку в 7Гб, интернет становится никикой, еле еле душа в теле. Может кто даст наколку как это объехать без большой крови.

saufesma
(27.01.20 20:23:55 MSK)

12 комментариев

Форум — Linux-hardware

Что это errors=remount-ro

hdd

~$ cat /etc/fstab

/ was on /dev/sda5 during installation

UUID=c9b1781c-d58d-42e6-a02d-46bd58aeb080 / ext4 errors=remount-ro 0 1 ………………………………….. о чём это говорит?

saufesma
(27.01.20 14:35:50 MSK)

4 комментария

Форум — Linux-install

Как правильно разбить диск для установки Linux

partitioning

Как всётаки это сделать, в ссылке указано моё разбиение диска и с книжки администратора Linux, с местом swap не совсем понятно, следует сразу за загрузочным томом.

https://transfer.sh/uk2qJ/file-system.txt

saufesma
(26.01.20 22:22:43 MSK)

92 комментария (стр. 2)

Форум — Development