[gizmo_zx]

Добрый день.

Код:

[Выделить все]

; расчет падения напряжения

(defun c:raschdu (/ start text) 
	
	(setq p1 (getreal  "\nМощность: "))
	(setq dlin_1 (getstring  "\nДлинна: [10] "))
	
	(if (= dlin_1 "" )(setq dlin_1 "10") )
	(setq dlin (atof dlin_1))
	(setq cos_st (getstring  "\nКосинус: [0.95] "))
	(if (= cos_st "" )(setq cos_st "0.95") )
	(setq cos_s (atof cos_st))


	(setq u1s (getstring  "\nНапряжение: [220] "))	
	(setq names (strcat u1s))

; проблемная строчка как будет правильно !!!
; если names = "220", то u1=220, u1t=220 , dva_provod =2

 	(if ( = names "220") ((setq u1 220)(setq u1t 220)(setq dva_provod 2))); ***
	(if ( = names "380") ((setq u1 658.18 )(setq u1t 380)(setq dva_provod 1))); ***
	(if ( = names "") (setq u1 220 ))
	
	;расчет
	(setq p10 (* p1 1000))
	(setq p1_1 (/ p10 u1))
	(setq i1 (/ p1_1 cos_s))
	
	(setq text "\n I= : ")
	(setq text_t (rtos i1 2 2)) 
	(princ (strcat text text_t))

	(setq s1_0 (getstring  "\nСечение [1.5]: "))
	(if (= s1_0 "" )(setq s1_0 "1.5") )
	(setq s1 (atof s1_0))

	(setq p1_2 (* i1 dlin))
	(setq p1_3 (* p1_2 0.0175))
	(setq p1_4 (* p1_3 dva_provod));***
	(setq du1 (/ p1_4 s1))

	(setq du1_2 (/ du1 u1t)) ; ***
	(setq du1_3 (* du1_2 100))

	; вывод 
	(setq text "\n сечение= : ")
	(setq text_t (rtos s1 2 2))
	;(princ (strcat text text_t))

	(setq text "\n Длинна= : ")
	(setq text_t (rtos dlin 2 2))
	;(princ (strcat text text_t))
	
	(setq text "\n I= : ")
	(setq text_t (rtos i1 2 2)) 
	;(princ (strcat text text_t))

	(setq text "\n dU%= : ")
	(setq text_t (rtos du1_3 2 2))
	(princ (strcat text text_t))
  
	(princ)
)

[Do$]

Код:

[Выделить все]

(if ( = names "220") (PROGN (setq u1 220)(setq u1t 220)(setq dva_provod 2)))

или

Код:

[Выделить все]

(if ( = names "220") (setq u1 220 u1t 220 dva_provod 2))

[gomer]

Сообщение от gizmo_zx (setq dlin_1 (getstring "\nДлинна: [10] "))

Сообщение от gizmo_zx (setq cos_st (getstring "\nКосинус: [0.95] "))

Сообщение от gizmo_zx (setq names (strcat u1s))

[ShaggyDoc]

gizmo_zx, эту программу надо переделывать в принципе, иначе она абсолютно ненадежна - достаточно где-то не сделать ввод и все дальше ломается.

1. В начале надо присвоить какие-то значения по умолчанию всем запрашиваемым данным - самые распространенные варианты. В идеале - если восстанавливаются использованные ранее когда-то.

2. Сделать в цикле один запрос с опциями и возможностью отказа от расчета. Здесь должен и сразу результат расчета выводиться.

При выборе опций - ввод выбранного параметра. С непременной проверкой на отказ и пустой ввод. При изменении любого параметра сразу выполняется расчет и возврат к 2.

3. Убрать все эти многочисленные, но ненужные setq.

Все будет просто (для пользователя) удобно и надежно.

Ну, а конструкцию if я бы заменил на cond. Это еще и с легкой возможностью расширения.

[gizmo_zx]

Сообщение от ShaggyDoc ...

конечно здоробы это все поправить, но это моя первая программа на lisp.
Я могу писать только VB и то немного....

[Disney]

gizmo_zx, правильно, у нас у всех были первые программы, это только gomer всё знал и умел заранее
Ты начни по пунктам, как написал ShaggyDoc, а что не получиться - спрашивай.

[ShaggyDoc]

Сообщение от gizmo_zx конечно здоробы это все поправить, но это моя первая программа на lisp. Я могу писать только VB и то немного....

Так это видно. То, что первая - не страшно. У всех были первые. У всех плохие были, и это не стыдно. Плохо, когда так же пишется сотая программа.

Разумеется, многим здесь раз плюнуть написать такую программу, причем в разных вариантах. Но лучше, если ты её сам доведешь до ума с нашей помощью.

Вот сейчас она действительно написана в стиле Бейсика, причем не VB, а каких-то древних версий, наподобие GWBasic - последовательные шаги.

А надо писать, как делается в AutoCAD. Практически любая программа сразу предлагает что-то ввести (обычно точку), но при этом имеет значения по умолчанию (для штатных команд они обычно в системных переменных зашиты). Но, с помощью опций командной строки (дублируемых в контекстном меню) можно какие то исходные данные изменить.

Вот и подумай сначала - нужна ли тебе такая микро-расчетная программа в Автокад? Она же только результат по формуле вычисляет. Да на экран показывает. Здесь Автокад не нужен. Можно хоть в Excel, хоть на VB, хоть просто на калькуляторе - тот же последовательный ввод нескольких чисел.

А вот если бы, например, длину надо было измерить в чертеже, тогда смысл бы был. Первым запросом было бы указание первой точки начала "длины". Причем длину можно бы несколько раз вводить - по точкам, указанием на объект, прямым вводом. А потом, если бы еще и результат надо было в чертеж написать, то еще больше бы смысла в использовании Автокада было. Бы.

Так что думай....

[gomer]

Сообщение от Disney только gomer всё знал и умел заранее

Мне вот интересно: был ли составлен алгоритм программы, блок схема...
Программка очень смахивает на студенческую...
Неплохо бы еще автору почитать 'Учебное пособие по AutoLISP' в справке AutoCAD

[Кулик Алексей aka kpblc]

А нужна ли вообще блок-схема? Анахронизм тот еще, мне кажется...

[gomer]

А как же! Чтоб не возникало таких "программ"
Откройте любой самоучитель для игры на любом музыкальном инструменте... С чего начинается обучение? С ТЕОРИИ! Почему? Потому что лажа сразу слышна...
Блок-схемы развивают навыки мышления... позволяют не держать ВСЕ в голове, отображая программу в наглядном виде... Нужны ли они? Наверное нужны, так как до сих пор существует множество программ для составления блок-схем

В принципе тема исчерпала себя во втором посте... Я написал, где плохо... До конца не досмотрел... не захотел... Если автор поймет почему плохо, хорошо... если нет... На нет и суда нет

[Кулик Алексей aka kpblc]

gomer, я под впечатлением от Брукса и Макконнелла и не такое могу выдать

[gizmo_zx]

Всем спасибо за критику.
Конечно по возможности буду перерабатывать...
т.к. это часть (надеюсь) будущей большой програмки

[Disney]

Сообщение от gizmo_zx т.к. это часть (надеюсь) будущей большой програмки

Сразу совет, большие программки надо делать из маленьких функций, иначе к концу написания большой программы не разберёшься, что? от куда? и зачем?...