Письмо 25

Добрый день!

Рассмотрим пример использования "циклического построения".

Одно из основных преимуществ такого построения - замена сложных формул набором условий и последовательная подгонка лекал.

Построим клин юбки. В качестве исходных параметров возьмем количество клиньев кл_кл, прибавки по талии и по бедрам. Длину юбки и расстояние от линии талии до линии бедер возьмем в пропорции к росту.

И так построение:

{ Ubka }

размеры;

{ ОСНОВНЫЕ ПАРАМЕТРЫ }

кл_кл:=4;

п18:=1;

п19:=5;

ди:=рз_1*0.3;

вб:=рз_1*0.1;

шир_кл_т:=(рз_18+п18)/кл_кл;

шир_кл_б:=(рз_19+п19)/кл_кл;

{ ПОСТРОЕНИЕ ЧЕРТЕЖА }

т1:=точка(10,10);

т2:=отложить(т1,0,шир_кл_т);

т3:=отложить(т1,90,ди);

т4:=отложить(т3,0,шир_кл_т);

т5:=отложить(т1,90,вб);

т6:=отложить(т2,90,вб);

лт:=отрезок[100](т1,т2);

лб:=отрезок[100](т5,т6);

лн:=отрезок[100](т3,т4);

сч_ц:=0;

ц_начало;

развести((лт,лб,лн),лт,-90,-90,-сч_ц,0,"_р");

если больше(лб_р.л,шир_кл_б) то

ц_прекратить;

иначе

сч_ц:=сч_ц+1;

конец_если;

если больше(сч_ц,300) то

ц_прекратить;

конец_если;

ц_конец;

ЗАПИСАТЬ(имя=(клин),

кд=(кл_кл,0),

полотно=верх,

контур=(ЛТ_Р,-ЛН_Р),

прибавка=1,

цвет=12);

конец

Построив конструкцию до цикла (установите курсор на строку до начала цикла и нажмите на клавишу F4) мы увидим прямоугольник. В цикле он разводится на увеличивающееся значение угла сч_ц до тех пор пока длина по линии бедер не станет больше (рз_19+п19)/кл_кл.

Измените значения кл_кл, п18, п19 и посмотрите на результат.

Продолжение в следующем письме.

 Если Вас интересует дополнительная информация   - пишите leko@lekala.info нам.

Посетите наш сайт www.lekala.info