| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp (оценивающий производительность в автокаде)

Lisp (оценивающий производительность в автокаде)

Ответ
Поиск в этой теме
Непрочитано 25.07.2009, 15:05 #1
Lisp (оценивающий производительность в автокаде)
dextron3
 
проектировшик
 
СССР
Регистрация: 01.01.2007
Сообщений: 5,143

Предыстория:

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

Алгоритм:

Нажимаешь старт вначале работы
Нажимаешь стоп в конце работы

Выдается в командной строке:
Ваша производительность 73% можно было бы работать по лучше...
количество линий 1543 в час
количество удалений 787 в час
количество копирываний 232 в час



Принцип лиспа:
количество сделанных действий разделенное на время...


Если будут вопросы буду отвечать...

буду благодарен за помощь

PS объекты должны счиатться только в автокаде, кликалка мышки не подходит...

В лиспе сидеть должна определенная констатнта равняющая 100%, чтобы потом можно было ее постоянно увеличивать, или для каждого пользователя вводиться своя...


заранее благодарен
__________________
инженер проектировшик с опттом программа авто гад образование высшие
Просмотров: 2596
 
Непрочитано 25.07.2009, 15:43
#2
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 10,288


Предыстория:

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

Помогите создать антипрогу, вот ее алгоритм:

Начертить сто линий в произвольном порядке, 5 линий в минуту.
Стереть 50 линий, 20 стираний в минуту
Скопировать линию, 10 копий в минуту

И когда начальник заглянет в мою командную строку, он увидит
Ваша производительность 120% это рекорд производительносты нашей конторы
количество линий 15430 в час
количество удалений 7870 в час
количество копирований 2320 в час

Если так делом пойдет и дальше, я вам удвою зарплату втрое, улыбнется начальник
Vova вне форума  
 
Непрочитано 25.07.2009, 16:35
#3
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


Предистория:

Стояла у нашего начальника прога, которая считала сколько я начерчу в Автокаде за день. Ну, не без помощи добрых людей, мы поставили свою антипрогу, которая имитировала нашу кипучую деятельность. Но начальник, хоть и лопух, но аппаратура при нем, и он создал на сервере предприятия каждому работнику умственного труда собственную папочку, в которую ему кладут производственые задания, а также, гад, создал архив, в который мы должны складывать выполненные работы.
Каждое производственное задание - файл с датой создания, разумеется и выполненная работа тоже файл с датой.
Теперь он целыми днями сидит в виртуальном архиве и смотрит как пополняются папки с документами по разным объектам. Прогу ему туда вставили, которая по имени работника находит все его файлы и показывает сколько и когда он их в архив положил. Эта сволочь, вызывает раз в неделю к себе в кабинет и молча показывает график производительности. Вот дата создания твоего задания, а вот дата выполнения. А у меня Леночка, дети, геморрой, повышенный уровень сахара в крови (очень часто пью чай, от нервозной обстановки)


Помогите советом! Может вирус ему в сервер запустить, или может киллеров нанять? А может кто-нибудь поможет мне и сделает за меня мою работу? Век помнить буду!

Я слышал, что спортсмены допинг используют, как думаете, поможет?

P.S. Немного поразмыслив, я понял - во всем виноваты бабы.
Supermax вне форума  
 
Непрочитано 25.07.2009, 17:10
#4
igorni


 
Регистрация: 06.02.2009
Сообщений: 775


Цитата:
Сообщение от Vova Посмотреть сообщение
...Если так делом пойдет и дальше, я вам удвою зарплату втрое, улыбнется начальник
Неа, насяльник Вам Vova этого не скажет. Он подойдет к dextron3 и скажет "Если не будет как у Vova, располовиню твою зарплату впятеро"

dextron3, я понимаю что решаться должно реакторами, но как та собака, дальше ничего сказать не могу.
igorni вне форума  
 
Автор темы   Непрочитано 25.07.2009, 19:45
#5
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


Да мне лично для себя нужно, не буду же я сам себя обманывать, просто хотел свою лень контролировать...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 25.07.2009, 20:08
#6
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


dextron3, да вы, батенька, мазохист , однако.

Я, к примеру, даже женился, чтобы себя заставить хоть что-то делать, но ничего не получилось, только хорошую девушку испортил. То я один сидел и ничего не делал, а теперь вдвоем сидим. Нет, втроем. Еще дочка родилась и выросла. Тоже с нами сидит.

Я даже фирму открыл, чтобы считаться как бы при деле, а на самом деле, чтобы не ходить ни на какую работу.

Последний раз редактировалось Supermax, 25.07.2009 в 20:13.
Supermax вне форума  
 
Непрочитано 26.07.2009, 11:12
#7
Victor


 
Регистрация: 14.06.2009
Бат-Ям
Сообщений: 295


Чтобы автокад что-то делал пока мы не в форме
Код:
[Выделить все]
(defun c:grusha( / )
(setq k1 0.1 k2 0.3)
(repeat 1000
 (setq k1 (+ k1 0.1))
 (setq k2 (+ k2 0.3))
 (setq delta 3.0)
 (setq ugol 1.0)
 (setq my_sin (* (sin (/ (* k1 ugol) 57.296))))
 (setq my_cos (* (cos (/ (* k2 ugol) 57.296))))
 (setq p1 (list my_cos my_sin ))
 (command "_.pline" p1)
 (while (< ugol 360)
   (setq ugol (+ ugol delta))
   (setq my_sin (* (sin (/ (* k1 ugol) 57.296))))
   (setq my_cos (* (cos (/ (* k2 ugol) 57.296))))
   (setq p2 (list my_cos my_sin))
   (command p2)
 )
 (command "")
 (command "delay" 10) 
 (entdel (entlast)) 
)
)

Последний раз редактировалось Victor, 26.07.2009 в 23:23.
Victor вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp (оценивающий производительность в автокаде)

Размещение рекламы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ламерские вопросы по LISP и DCL TheBuTeK LISP 7 03.07.2016 22:15
Запуск Lisp команды в новом документе BlackHarp LISP 1 26.03.2009 23:06
Как сделать фасад в Автокаде Rebel AutoCAD 19 07.11.2008 16:50
lisp, diesel, макрокоманды phantom_l LISP 11 17.07.2008 21:29
загрузка DOS прог через LISP Gaa LISP 15 12.08.2005 19:19