0 просмотренных постов скрыто
"Легкий" конный спорт.
Последнее время вижу множество комментариев со стороны людей, далеких от конного спорта. Большинство утверждает что сей спорт - легкий.
"Сидишь себе на лошадке и все, я так тоже могу". При этом посади человека впервые на лошадь - там же настоящий Epic Fail будет. Нет, может на шагу там нормально посидят, но есть ведь еще рысь, галоп, после элементы высшей школы для тех, кто пошел в выездку, препятствия - для тех, кто выбрал конкур и т.д.
Кто-нибудь хоть раз видел, как на первом занятии новичок ездит рысью? Или сами хотя бы раз пробовали? Что бы освоить даже рысь могут уйти месяцы (кто-то начнет галоп на 5 занятии, кто-то на 40, тут уж зависит от частоты занятий и дара к езде). Когда приходит новичок, то первым делом его учат чистить и седлать лошадь (а так же мы отбиваем денники, моем лошадей, проверяем их после каждой тренировки, покупаем мази, подкормки, лакомства - что бы любимцы были здоровы), после как правильно сесть, почему нельзя подходить к лошади сзади. А еще вас ждет куча конных терминов (вроде вальтрапа, шенкеля, трензеля, попоны, подпруги и прочего).
Я сама занимаюсь любительским конкуром, сама прошла через сложности: от первой рыси, до первого прыжка.
Да и лошадь - в среднем такое животное весит 500-700 кг, а ведь им нужно управлять. Конь при желании может вас скинуть. Множество случаев с летальными исходами, серьезными травмами.
Ребят, уважайте спортсменов, им очень трудно, у них бывают тяжелейшие травмы, но они вновь садятся в седло, без страха, горя желанием вновь прыгнуть, проскакать карьером по полю, слиться с лошадью. Мы сильнее, чем кажется, как душевно, так и физически.
Можете минусовать. Но все же больше половины людей боятся лошадей, а сами выставляют спорсменов - ничтожествами, занимающимися "легким" спортом.
"Сидишь себе на лошадке и все, я так тоже могу". При этом посади человека впервые на лошадь - там же настоящий Epic Fail будет. Нет, может на шагу там нормально посидят, но есть ведь еще рысь, галоп, после элементы высшей школы для тех, кто пошел в выездку, препятствия - для тех, кто выбрал конкур и т.д.
Кто-нибудь хоть раз видел, как на первом занятии новичок ездит рысью? Или сами хотя бы раз пробовали? Что бы освоить даже рысь могут уйти месяцы (кто-то начнет галоп на 5 занятии, кто-то на 40, тут уж зависит от частоты занятий и дара к езде). Когда приходит новичок, то первым делом его учат чистить и седлать лошадь (а так же мы отбиваем денники, моем лошадей, проверяем их после каждой тренировки, покупаем мази, подкормки, лакомства - что бы любимцы были здоровы), после как правильно сесть, почему нельзя подходить к лошади сзади. А еще вас ждет куча конных терминов (вроде вальтрапа, шенкеля, трензеля, попоны, подпруги и прочего).
Я сама занимаюсь любительским конкуром, сама прошла через сложности: от первой рыси, до первого прыжка.
Да и лошадь - в среднем такое животное весит 500-700 кг, а ведь им нужно управлять. Конь при желании может вас скинуть. Множество случаев с летальными исходами, серьезными травмами.
Ребят, уважайте спортсменов, им очень трудно, у них бывают тяжелейшие травмы, но они вновь садятся в седло, без страха, горя желанием вновь прыгнуть, проскакать карьером по полю, слиться с лошадью. Мы сильнее, чем кажется, как душевно, так и физически.
Можете минусовать. Но все же больше половины людей боятся лошадей, а сами выставляют спорсменов - ничтожествами, занимающимися "легким" спортом.
Кто разбирается в Lisp?? Длиннопост. Не минусуйте.
Как в Lispe нарисовать штрихпунктирную линию?
Вот код программы:
(defun c:QAZ(/ d l l0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16)
(graphscr)
(setvar "cmdecho" 0)
(prompt "QAZ команда, строящая шпильку по заданным размерам")(terpri)
(setq S '(0 0))
(setq q '(-20 0))
(setq d (getreal "Введите значение параметра d:"))(terpri)
(setq l (getreal "Введите значение параметра l:"))(terpri)
(setq l0 (getreal "Введите значение параметра l0:"))(terpri)
(setq p1 (polar S 0 ( 0.15 d)))
(setq p2 (polar S (/ pi 2) ( 0.15 d)))
(setq p3 (polar S (/ pi 2) (- d ( 0.15 d))))
(setq p4 (polar p1 (/ pi 2) d))
(setq p5 (polar p4 0 (- (+ l d) ( 0.3 d))))
(setq p6 (polar p3 0 (+ l d )))
(setq p7 (polar p2 0 (+ l d )))
(setq p8 (polar p1 0 (- (+ l d) (* 0.3 d))))
(setq p9 (polar S 0 d))
(setq p10 (polar p9 (/ pi 2) d))
(setq p12 (polar S 0 (+ d (- l l0))))
(setq p11 (polar p12 (/ pi 2) d))
(setq p13 (polar p2 0 d))
(setq p14 (polar p3 0 d))
(setq p15 (polar p3 0 (+ d (- l l0))))
(setq p16 (polar p2 0 (+ d (- l l0))))
(setq p17 (polar q (/ pi 2) (/ d 2)))
(setq p18 (polar p17 0 (+ l0 (+ l d))))
(defun loplop ()
;(command "_line" p17 p18 "")
(command "_line" p3 p14 p13 p2 p1 p8 p7 p16 p15 p6 "")
(command "_pline" p1 p2 p3 p4 p5 p6 p7 p8 p1 p9 p10 p11 p12 p1 p4 p5 p8 "" "Ш" 1 1 ))
(if (> l l0)
(loplop)
(prompt " Error!!"))
)
И от точки p17 до точки p18 нужно нарисовать осевую(штрих-пунктирную) линию.
Что надо вставить в программу что бы эта линия нарисовалась??
Какой код?
Я перерыл уеву кучу сайтов и не нашел, может здесь кто знает??
Вот код программы:
(defun c:QAZ(/ d l l0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16)
(graphscr)
(setvar "cmdecho" 0)
(prompt "QAZ команда, строящая шпильку по заданным размерам")(terpri)
(setq S '(0 0))
(setq q '(-20 0))
(setq d (getreal "Введите значение параметра d:"))(terpri)
(setq l (getreal "Введите значение параметра l:"))(terpri)
(setq l0 (getreal "Введите значение параметра l0:"))(terpri)
(setq p1 (polar S 0 ( 0.15 d)))
(setq p2 (polar S (/ pi 2) ( 0.15 d)))
(setq p3 (polar S (/ pi 2) (- d ( 0.15 d))))
(setq p4 (polar p1 (/ pi 2) d))
(setq p5 (polar p4 0 (- (+ l d) ( 0.3 d))))
(setq p6 (polar p3 0 (+ l d )))
(setq p7 (polar p2 0 (+ l d )))
(setq p8 (polar p1 0 (- (+ l d) (* 0.3 d))))
(setq p9 (polar S 0 d))
(setq p10 (polar p9 (/ pi 2) d))
(setq p12 (polar S 0 (+ d (- l l0))))
(setq p11 (polar p12 (/ pi 2) d))
(setq p13 (polar p2 0 d))
(setq p14 (polar p3 0 d))
(setq p15 (polar p3 0 (+ d (- l l0))))
(setq p16 (polar p2 0 (+ d (- l l0))))
(setq p17 (polar q (/ pi 2) (/ d 2)))
(setq p18 (polar p17 0 (+ l0 (+ l d))))
(defun loplop ()
;(command "_line" p17 p18 "")
(command "_line" p3 p14 p13 p2 p1 p8 p7 p16 p15 p6 "")
(command "_pline" p1 p2 p3 p4 p5 p6 p7 p8 p1 p9 p10 p11 p12 p1 p4 p5 p8 "" "Ш" 1 1 ))
(if (> l l0)
(loplop)
(prompt " Error!!"))
)
И от точки p17 до точки p18 нужно нарисовать осевую(штрих-пунктирную) линию.
Что надо вставить в программу что бы эта линия нарисовалась??
Какой код?
Я перерыл уеву кучу сайтов и не нашел, может здесь кто знает??




