Файловый архив студентов. Файловый архив студентов.
1261 вуз, 4613 предмет.
/ Регистрация
FAQ Обратная связь Вопросы и предложения
Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Брянский государственный университет им. академика И.Г. Петровского
Предмет:
[НЕСОРТИРОВАННОЕ]
Файл:

диссертация модальная логика

.pdf
Скачиваний:
17
Добавлен:
25.03.2016
Размер:
8.07 Mб
Скачать
☆

-441 -

Приложение 2

фгт1Г(Г,"(соттап(1 \"pline\" ul3 \"w\" 0.5 0.5 ul nil)\n"); fprintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n"); фгт1ад"(8егя1тр1 (polar u8 0 10))\n"); фгш1ад"(5е1я1тр2(ро1аги1 (* 1.5 pi) 10))\n"); фrintf(f,"(setq ul4 (inters u8 tmpl ul tmp2 nil))\n"); фг1п!ад"(соттапё\"рИпе\" u8 \"w\" 0.5 0.5 ul4 nil)\n"); фппеад"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n");

//зуб в зацеплении

фrintf(f,"(setq zx (polar t3 (* 0.5 pi) 10))\n"); фrintf(f,"(setq tmp (inters bp bpl t3 zx nil))\n"); фrintf(f,"(setq re (distance t3 tmp))\n"); фrintf(f,"(setq tf2 (polar tmp (* 0.5 pi) re))\n"); фrintf(f,"(setq tmpx (polar tf2 (* 1.5 pi) 10))\n"); фrintf(f,"(setq tx (inters tf2 tmpx u8 ul4 nil))\n");

фrintf(f,"(command \"pline\" tf2 \"w\" 0.5 0.5 tx nil)\n"); фrintf(f,"(command \"min-or\" \"L\" \"\" bp bpl \"N\")\n"); фrintf(f,"(setq vl4 (polar tf2 (+ (* 0.5 pi) %3.2f) 10))\n",Dell); фrintf(f,"(setq tmp (polar tfl pi 10))\n");

фrintf(f,"(setq bp2 '(384 400))\n"); фrintf(f,"(setq vl3 (inters tfl tmp bp bp2 nil))\n"); фrintf(f,"(setq tmp (polar vl4 pi 10))\n"); фrintf(f,"(setq vl5 (inters vl4 tmp bp bp2 nil))\n");

фrintf(f,"(command \"pline\" vl3 \"w\" 0.5 0.5 tfl nil)\n"); фr¡ntf(f,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фrintf(f,"(command \"pline\" tf2 \"w\" 0.5 0.5 vl4 vl5 nil)\n");

фrintf(f,"(setq zx (polar t2 (* 0.5 pi) 10))\n"); фrintf(f,"(setq tmp (inters bp bpl t2 zx nil))\n"); фrintf(f,"(setq re (distance t2 tmp))\n"); фrintf(f,"(setq ta2 (polar tmp (* 0.5 pi) re))\n");

фrintf(f,"(command \"min-or\" ta2 \"\" bp bp2 V'N\")\n");//tfl tO tal фrintf(f,"(setq vl6 (polar ta2 (+ (* 0.5 pi) %3.2f) 5))\n",De]l); фrintf(f;'(setq zx (polar vl6 pi 10))\n");

фrintf(f,"(setq vl7 (inters bp bp2 vl6 zx nil))\n"); фппгад"(command \"pline\" ta2 \"w\" 0.5 0.5 vl6 vl7 nil)\n"); фпМГ(Г,"(8е1я vl8 (polar vl7 0 %3.2f))\n",dvn2/2); фrintf(f,"(command \"mirror\" ta2 vl6 vl7 \"\" bp bp2 \"N\")\n"); фrintf(f;'(setq vl9 (polar vl7 0 %3.2f))\n",Pd2/2); фrintf(f,"(setq vl91 (polar vl9 (* 0.5 pi) 2.6))\n");

-442- Приложение 2

fprintf(f,"(setq vllO (polar vl7 (* 0.5 pi) 2.6))\n"); fprintf(f,"(setq vll 1 (polar vllO 0 %3.2f))\n",Pd/2); fprintf(f,"(setq vll2 (polar vllO 0 %3.2f))\n",PD/2); fprintf(f,"(setq V113 (polar vll2 (* 0.5 pi) %3.2f))\n",PT); фrintf(f,"(setq vll4 (polar vll 1 (* 0.5 pi) %3.2f))Vn",PT); fpriiitf(f,"(setq vll5 (polar vll4 pi %3.2f))\n",Pd/2);

fyrintf(f,"(command V'plineV vl7 \"w\" 0.5 0.5 vl9 vl91 vllO vll 1 vll4 vll5 vll4 vll3 vll2 vll 1 nil)\n"); ^rintf(f,"(setq X (distance vl7 vl5))\n");

фrintf(f,"(setq vl51 (polar vl7 (* 1.5 pi) (- x2)))\n"); фrintf(f,"(setq vl52 (polar vl51 0 %3.2f))\n",dvn2/2); фrintf(f,"(setq vl53 (polar vl5 0 (+ 2 %3.2f)))\n",dvn2/2);

фrintf(f,"(command \"pline\" vi51 \"w\" 0.5 0.5 vl52 vl53 vl52 vl8 nil)\n"); фrintf(f,"(coшmand V'plineV vll4 \"w\" 0.2 0.2 vll2 nil)\n"); фrintf(f,"(command \"pline\" vll 1 \"w\" 0.2 0.2 vll3 nil)\n");

фrintf(f,"(command \"mirror\" vrl vr4 vr5 vrlO vr9 vrl 1 vrl2 vrl3 vr8 vr6 vr3 \"\" bp bpl \"N\")\n"); фrintf(f,"(command \"'zoom\" \"Window\" '(334 385) '(433 344))");

фrintf(f,"(command \"mirror\" tf2 vl6 vl9 vUO vll3 vll4 vl7 \"\" bp bp2 \"N\")\n"); фrintf(f,"(command \"mirror\" tf2 vl4 vl3 vl5 vl51 vl52 vl53 vl8 \"\" bp bp2 \"N\")\n"); фrintf(f,"(command \"mirror\" \"C\" vl4 vl5 \"\" bp bp2 \"N\")"); • фrintf(f,"(command \"mirror\" \"C\" vlll vil3 \"\" bp bp2 \"N\")"); фгintf(f,"(command \"'zoom\" \"Previous\")");

фrintf(f,"(setq sub (- %3.2f %3.2f))\n",Pd/2,P2d/2); фпмад"(зе1я vll6 (polar vll4 (* 0.5 pi) 15))\n");

фrintf(f,"(setq vll7 (polar vll4 0 (- %3.2f %3.2f)))\n",PD2/2,Pd/2); фrintf(f,"(setq vl 18 (polar vl 17 (* 0.5 pi) 15))\n"); фrintf(f,"(command\"pline\" vll4 \"w\" 0.5 0.5 vll7 vll8 vll6 \"c\")\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фrintf(f,"(setq vll9 (polar vll6 pi sub))\n");

фrintf(f,"(setq vl20 (polar vll9 (* 0.5 pi) %3.2f))\n",P2a2); фrintf(f,"(setq vl21 (polar vl20 0 (- %3.2f %3.2f)))\n",P2D2/2,P2d/2); фr¡ntf(f,"(setq vl22 (polar vl21 (* 1.5 pi) %3.2f))\n",P2a2);

фrintf(f,"(command \"pline\" vll6 \"w\" 0.5 0.5 vll9 vl20 vl21 vl22 \"c\")\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n");

фпп1ад"(5е1я vl9 (polar vll9 pi %3.2f))\n",P2d/2); фrintf(f,"(command \"pline\" vll9 \"w\" 0.5 0.5 vl9 \"c\")\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фrintf(f,"(setq vl23 (polar vl20 (* 0.5 pi) %3.2f))\n",P2T); фrintf(f,"(setq vl24 (polar vl23 0 %3.2f))\n",(P2D-P2d)/2); фrintf(f,"(setq vl25 (polar vl24 (* 1.5 pi) %3.2f))\n",P2T);

фrintf(f,"(command \"pline\" vl20 \"w\" 0.5 0.5 vl23 vI24 vl25 \"c\")\n");

-443 -

Приложение 2

фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фrintf(f,"(setq vl26 (polar vl25 pi %3.2f))\n",(P2D-P2D2)/2); фг1п1ад"(соттапа \"pline\" vl26 \"w\" 0.5 0.5 vl21 \"c\")\n"); фпп1Г(С"(соттапё \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фпп1Г(Г,"(8е1я gl (polar vl23 pi %3.2f))\n",(P2d-40)/2); фпп1ад"(зе1я g2 (polar gl (* pi 0.5) %3.2f))\n",10.0); фпт5(Г,"(5е1я g3 (polar g2 0 %3.2f))\n",lO.0);

фпп1ад"(5е1я g4 (polar gl 0 %3.2f))\n",8.0); фпп1ад"(5е1я g5 (polar g3 (* pi 1.5) %3.2f))\n",8.0);

фrintf(f,"(command V'pIineV gl \"w\" 0.5 0.5 g2 g3 g5 g4 \"c\")\n"); фпп1Г(Г,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фпп1ад"(5е1я g6 (polar g3 0 %3.2f))\n",3.0);

фптед"(зе1я g7 (polar g6 (* pi 1.5) %3.2f))\n",5.0); фrintf(f,"(command \"pline\" g3 \"w\" 0.5 0.5 g6 g7 g5 \"c\")\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фrintf(f,"(command \"copy\" g2 g3 \"\" gl g2 \"N\")\n");

фrintf(f,"(command \"mirror\" \"C\" gl (polar g6 (* 0.5 pi) 10) \"\" bp bp2 \"N\")\n"); фrintf(f;'(setя gO (polar vl23 pi %3.2f))\n",P2d/2);

фrintf(f,"(command V'plineV vl23 \"w\" 0.5 0.5 gO \"c\")\n"); фrintf(f,"(command \"minror\" \"L\" \"\" bp bp2 \"N\")\n"); фг1п1ад"(5е1я tmp (polar g2 pi 20))\n");

фг1п1ед"(зеСя g21 (polar tmp (* 0.5 pi) IO))\n"); фг1тГ(Г;'(5е1я g22 (polar g21 0 52.9))\n"); фг1пг£(^"(зе1я g23 '(437 499))\n"); фпп1Г(Г,"(5е1я g24 (polar g23 pi 52.9))\n");

фrintf(f,"(command\"pline\" g21 \"w\" 0.5 0.5 g22 g23 g24 nil)\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp2 \"N\")\n"); фrintf(f,"(command \"pline\" vl20 \"w\" 0.2 0.2 vl24 nil)\n"); фrintf(f,"(command \"mirror\" vl20 vl24 \"\" bp bp2 \"N\")\n"); фrintf(f,"(command \"pline\" vl23 \"w\" 0.2 0.2 vl25 nil)\n"); фпп1Г(Г,"(command \"mirror\" vl23 vl25 \"\" bp bp2 \"N\")\n"); фrintf(f,"(command \"pline\" p6 \"w\" 0.2 0.2 p4 nil)\n"); фптед"(command \"mirror\" p6 p4 \"\" bp bpl \"N\")\n"); фrintf(f,"(command \"pline\" p5 \"w\" 0.2 0.2 p41 nil)\n"); фrintf(f,"(command V'mirrorV p5 p41 \"\" bp bpl \"N\")\n"); //штриховка

фг1п1Г(^"(5е1я V (polar vl53 (* 0.5 pi) 2))\n"); фппГГ(Г,"(8е1я int (inters (polar v pi 10) v bp bp2 nil))\n"); фптГ(5,"(Бе1я vl (polar v pi (* (distance v int) 2)))\n");

-444- Приложение 2

фп^адЧсоттапё \"-bhatch\" \"Р\" \"U\" \"45\" \"5\" \"М\" v vl \"\")\n"); фrintf(f,"(setq р71 (polar р7 (* 1.5 pi) 2))\n");

фпп1ед"(8е1я intl (inters (polar p71 (* 1.5 pi) 10) p71 bp bpl nil))\n"); фrintf(f,"(setq vl (polar p71 (* 1.5 pi) (* (distance p71 intl) 2)))\n"); фr¡ntf(f,"(command \"-bhatch\" \"P\" \"U\" \"-45\" \"5\" \"N\" p71 vr7 vl \"\")\n");

фrintf(f,"(setq

u21 (polar u2 pi 2))\n");

фrintf(f,"(setq

intl (inters (polar u21 (* 1.5 pi) 10) u21 bp bpl nil))\n");

фrintf(f,"(setq

vl (polar u21 (* 1.5 pi) (* (distance u21 intl) 2)))\n");

фrintf(f,"(command \"-bhatch\" \"P\" \"U\" \"30\" \"5\" \"N\" u21 vl \"\")\n"); фrintf(f,"(setq u91 (polar u9 (/ pi 4) l))\n");

фrintf(f,"(setq intl (inters (polar u91 (* 1.5 pi) 10) u91 bp bpl nil))\n"); фrintf(f,"(setq vl (polar u91 (* 1.5 pi)(* (distance u91 intl) 2)))\n"); фrintf(f,"(command\"-bhatch\" \"P\" \"U\" \"-30\" \"5\" \"N\" u91 vl \"\")\n"); фrintf(f,")\n");

fclose(f);

} •

Текст программы, предназначенньш для создания файлов zub.lsp и zub_k.lsp:

//

#include <vcl\vcl.h> #include <stdio.h> #pragrna hdrstop

extern float U,Tl,T2,nl,n2,betta_n,Kbe,h_a,C,alfa_n,Lh;

extern float Nhel ,Nhe2,Nfel .•Nfe2,Nhlim,Nflim,ZN 1 ,ZN2;

extern float 8_ЬИт1,8_ЬИт2,8_Ьр1,8_Ьр2,8_Ьр,8Ь,8_й1тЬ,У11,8_ф1;

extern float K_hb,K_fb,Del,De2,temp,Zlmin,Me,Zvl,Zv2,Zl,Z2,x,Yfsl ,Vf,Mte,Mn,Zc;

externfloatR,Re,b,PI,Del 1 ,Del2,X 1 ,X2,Xr1 ,Xr2,Hf1 ,Hf2,Del_hf,Sn 1, Sn2,k,D0;

externfloatteta_fs,teta_f1 ,teta_f2,teta_al ,teta_a2,Kal ,Ka2,d_h_ae 1 ,d_h_ae2;

extern float d_h_fel,d_h_fe2,Del_hal ,Del_ha2,H_a! ,H_a2,H_ael ,H_ae2;

extern float H_fel,H_fe2,H_fl,H_f2,H_el,H_e2,Del_al,Del_a2,Del_fl,Del_f2,Dml,Dm2;

extern float Dae 1 ,Dae2,B 1 ,B2,Vm,_Sc 1 ,_Sc2,Hc 1 ,Hc2,psi_n 1 ,psi_n2,_8n 1 ,_Sn2,_Hal ,_Ha2;

externfloatFt,S_hO,Ze,K_ha,S_h,QO,Ka,Whv,Khv,Kh,Z_e,Zh,Zr,Zv,Zl,Zxl;

-445-

Приложение 2

extern float Zx2,Shp 1 ,Shp2,Shp,_Yfs 1 ,Y_fs 1,Wfv,Kfv,Kf,KJa,S_f 1;

extern float dl,d2,Ft21,Ftl2,Frl2,Fr21,Fal2,Fa21,Koef,H_fil,H_fi2,H_ail,H_ai2;

extern float d 1 ,d2,Ft21 ,Ft 12,Fr 12,Fr21 ,Fa 12,Fa21 ,Koef,dn,dvn,dvn2,dn2;

extern float pd,pD,pD2,pd2,pa2,pT,uD,uB,ud,p2d,p2D,p2D2,p2d2,p2a2,p2T,p2d3,Pd,PD,PD2,Pd2,Pa2,PT,Pd3;

extern float P2d,P2D,P2D2,P2d2,P2a2,P2T,Lh,Hl,H2,StToch,Yd,Yg,Sf,h,N_f,Yz,Sфl;

II

.

void lisp_print(void)

{

FILE *f; f=fopen("zub.lsp","w"); фrintf(f,"(defun zubO\n"); ^fopen("zub_k.lsp","w"); // Рамка и штамп

фrintf(f,"(setq al '(10 10))\n"); фг1п1Г(£,"(5е1я a2 (polar al (/ pi 2) 420))\n"); фг1тГ(С"(5е1я аЗ (polar a2 0 594))\n"); фrintf(f,"(setq a4 (polar al 0 594) )\n"); фrintf(f,"(setq a5 (polar a4 pi 185))\n"); фrintf(f,"(setq а6 (polar a5 (/ pi 2) 55))\n"); фrintf(f,"(setq a7 (polar a4 (/ pi 2) 55))\n"); фпп1Г(£,"(зе1я a8 (polar а6 0 65))\n"); фrintf(f,"(setq a9 (polar a5 0 65))\n"); фrintf(f,"(setq alO (polar a5 (/ pi 2) 5))'ui"); фrintf(f,"(setq al 1 (polar alO (/ pi 2) 5))\n"); фrintf(f,"(setq al2 (polar al 1 (/ pi 2) 5))\n"); фrintf(f,"(setq al3 (polar al2 (/ pi 2) 5))\n"); фrintf(f,"(setq al4 (polar al3 (/ pi 2) 5))\n"); фrintf(f,"(setq al5 (polar al4 (/ pi 2) 5))\n"); фrintf(f,"(setq al6 (polar al5 (/ pi 2) 5))\n"); фrintf(f,"(setq al7 (polar al6 (/ pi 2) 5))\n"); фrintf(f,"(setq al8 (polar al7 (/ pi 2) 5))\n"); фrintf(f,"(setq al9 (polar al8 (/ pi 2) 5))\n"); фrintf(f,"(setq a20 (polar a9 (/ pi 2) 5))\n"); фrintf(f,"(setq a21 (polar a20 (/ pi 2) 5))\n");

-446- Приложение 2

fprintf(f,"(setq а22 (polar а21 (/ pi 2) 5))\n"); ^rintf(f,"(setq a23 (polar a22 (/ pi 2) 5))\n"); ^rintf(f,"(setq a24 (polar a23 (/ pi 2) 5))\n"); фrintf(f,"(setq a25 (polar a24 (/ pi 2) 5))\n"); фг1п1А:Г,"(зе1я a26 (polar a25 (/ pi 2) 5))\n"); фrintf(f,"(setq a27 (polar a26 (/ pi 2) 5))\n"); фrintf(f,"(setq a28 (polar a27 (/ pi 2) 5))\n"); фrintf(f,"(setq a29 (polar a28 (/ pi 2) 5))\n");

фпп1ад"(соттапс1 \"pline\" al \"w\" 0.58 0.58 a2 аЗ a4 a7 а6 a5 a4 al nil)\n"); фrintf(f,"(command\"line\" alO a20 nil)\n");

фг1п1ад"(соттапё\"line\" all a21 nil)\n"); фптй:^"(command \"line\" al2 a22 nil)\n"); фrintf(f,"(command \"line\" al3 a23 nil)\n"); фrintf(f,"(command \"line\" al4 a24 nil)\n");

фrintf(f,"(command \"pline\" a22 \"w\" 0.58 0.58 (polar al2 0 185) nil)\n"); фrintf(f,"(command V'plineV al5\"w\" 0.58 0.58 a25 nil)\n"); фrintf(f,"(command \"pline\" al6\"w\" 0.58 0.58 a26 nil)\n"); фrintf(f,"(command V'lineV al7 a27 nil)\n");

фrintf(f,"(command \"pline\" a27\"w\" 0.58 0.58 (polar al7 0 185) nil)\n"); фrintf(f,"(command \"line\" al8 a28 nil)\n");

фпп1ад"(command \"line\" al9 a29 nil)\n"); фrintf(f,"(command \"pline\" a9 \"w\" 0.58 0.58 a8 nil)\n"); фrintf(f,"(setq a51 (polar al5 0 7))\n");

фrintf(f,"(setq a52 (polar a5 0 17))\n"); фrintf(f,"(setq a53 (polar a5 0 40))\n"); фrintf(f,"(setq a54 (polar a5 0 55))\n"); фrintf(f,"(setq а61 (polar а6 0 7))\n"); фrintf(f,"(setq а62 (polar а6 0 17))\n"); фrintf(f,"(setq абЗ (polar а6 0 40))\n"); фrintf(f,"(setq а64 (polar а6 0 55))\n");

фrintf(f,"(command V'plineV a51 V'w\" 0.58 0.58 а61 nil)\n"); фrintf(f,"(command V'pline\" a52 \"wV' 0.58 0.58 а62 nil)\n"); фrintf(f,"(command \"plineV' a53 \"w\" 0.58 0.58 абЗ nil)\n"); фrintf(f,"(command V'plineV a54 \"w\" 0.58 0.58 а64 nil)\n"); фппгад"(5е1я аЗО (polar al7 0 135))\n");

фrintf(f,"(setq а31 (polar аЗО (* 1.5 pi) 40))\n"); фrintf(f,"(command \"pline\" аЗО \"w\" 0.58 0.58 аЗ 1 nil)\n"); фrintf(f,"(setq а32 (inters al2 a22 а31 аЗО nil))\n"); фrintf(f,"(setq аЗЗ (polar аЗО (* 1.5 pi) 5))\n");

фrintf(f,"(setq а34 (polar а32 (/ pi 2) 5))\n");

-447 -

Приложение 2

fprintf(f,"(command \"plme\" аЗЗ \"w\" 0.58 0.58 (polar аЗЗ О 50) nil)\n"); fprintf(f,"(command \"pline\" а34 \"w\" 0.58 0.58 (polar а34 0 50) nil)\n"); фг1тГ(5,"(5е1я а35 (polar аЗО О 15))\n");

^rintf(f,"(setq аЗб (polar а35 О 17))\n");

фrintf(f,"(corшnand \"plme\" а35 \"w\" 0.58 0.58 (polar а35 (* pi 1.5) 20) iiil)\n"); фrintf(f,"(coпlmand V'plineV аЗб \"w\" 0.58 0.58 (polar аЗб (* pi 1.5) 20) nil)\n"); фrintf(f,"(command \"pline\" (polar а34 0 20) \"w\" 0.58 0.58 (polar а32 0 20) nil)\n"); фrintf(f,"(command \"pline\" (polar аЗЗ 0 5) \"w\" 0.2 0.2 (polar а34 0 5) nil)\n"); фrintf(f,"(command \"pline\" (polar аЗЗ 0 10) \"w\" 0.2 0.2 (polar а34 0 10) nil)\n"); //текст

фrintf(f,"(command \"text\" (polar al5 (/ pi 1.9) 2) 2.5 0 \"Изм\")\п"); фпп1ад"(command \"text\" (polar al4 (/pi 1.9) 2) 2.5 0 \"Разраб.\")\п"); фrintf(f,"(command \"text\" (polar al3 (/ pi 1.9) 2) 2.5 0 \"Пров.\")\п"); фrintf(f,"(command \"textV' (polar al2 (/ pi 1.9) 2) 2.5 0 \"Т.контр.\")\п"); фrintf(f,"(command \"text\" (polar al 1 (/ pi 1.9) 2) 2.5 0 \"Нач.КБ\")\п"); фrintf(f,"(command V'textV (polar, alO (/ pi 1.9) 2) 2.5 0 \"Н.контр.\")\п"); фrintf(f,"(command\"text\" (polar a5 (/pi 1.9)2) 2.5 0\"Утв.\")\п"); фrintf(f,"(command \"text\" (polar (polar al5 (/ pi 2) 1) 0 8) 2.5 0 \"Лист\")\п"); фrintf(f,"(command \"text\" (polar (polar al5 (/ pi 2) 1)0 18) 2.5 0 \"N докум.\")\п"); фrintf(f,"(command \"text\" (polar (polar al4 (/ pi 2) 1)0 18) 2.5 0 \"Можевикин\")\п"); фrintf(f,"(command \"textV' (polar (polar all (/ pi 2) 1) 0 18) 2.5 0 \"Гриднев\")\п"); фrintf(f,"(command \"text\" (polar (polar alO (/ pi 2) 1)0 18) 2.5 0 \"Быковская\")\п"); фrintf(f,"(command V'textV (polar (polar a5 (/ pi 2) 1)0 18) 2.5 0 \"PoMaHeHKoV')\n"); фrintf(f,"(command V'textV (polar (polar al5 (/ pi 2) 1) 0 42) 2.5 0 \"Подп.\")\п"); фrintf(f,"(command V'textV (polar (polar al5 (/ pi 2) 1) 0 55) 2 0 \"Дата\")\п"); фптад"(command \"text\" (polar (polar аЗЗ (/ pi 2) 1) 0 2) 2.5 0 \"Лит.\")\п"); фrintf(f,"(command \"text\" (polar (polar аЗЗ (/ pi 2) 1) 0 17) 2.5 0 \"Macca\")\n"); фrintf(f,"(command \"text\" (polar (polar аЗЗ (/ pi 2) 1) 0 34) 2.5 0 \"Масшт.\")\п"); фrintf(f,"(command \"text\" (polar (polar а32 (/ pi 2) 1) 0 5) 2.5 0 \"Лист\")\п"); фrintf(f,"(command \"text\" (polar (polar а32 (/ pi 2) 1) 0 25) 2.5 0 \"Листов: l\")\n"); фriIltf(f,"(command\"text\" (polar (polar a9 (/pi 2) 10) 0 10) 4 0\"Ста)1ь 12XH3A\")\n"); фrintf(f,"(command V'textV (polar (polar a9 (/ pi 2) 2) 0 13) 4 0 VTOCT 4543-71\")\n");

фптед"(command \"text\" (polar (polar аЗ I (/ pi 2) 7) 0 3) 3 0 \"A0 Алтайдизель\")\п"); фrintf(f,"(command \"text\" (polar (polar а31 (/ pi 2) 2) 0 18) 3 0 \"СКБ\")\п"); фrintf(f,"(command \"textV (polar (polar al2 (/ pi 2) 15) 0 82) 7 0 \"Колесо\")\п"); фrintf(f,"(command \"text\" (polar (polar al2 (/ pi 2) 5) 0 80) 7 0 \"зубчатое\")\п"); фг1п1ад"(command \"textV (polar (polar al7 (/ pi 2) 3) 0 90) 8 0 V'4405-2107-25\")\n"); //таблица

фг1п1ад"(8е1я al (polar аЗ (* 1.5 pi) 20))\n"); фппгад"(зе1я a2 (polar al (* 1.5 pi) 257))\n");

-448- Приложение 2

фпп1ад"(зе1я аЗ (polar а2 р1 110))\п"); ft)rintf(f,"(setq а4 (polar аЗ (/ pi 2) 257))\п");

фптад"(соттапс1 \"рИпе\" al \"w\" 0.58 0.58 а2 аЗ а4 \"с\")\п");

фгш1ад"(8е1я t7 (polar al (* pi 1.5) 7))\n");

 

фг1пгад"(8е1я t8 (polar t7 (* pi 1.5) 8))\n");

 

фrintf(f,"(setя t9 (polar t8 (* pi 1.5) 8))\n");

 

фг{п1ед"(8егя tlO (polar t9 (* pi 1.5) 12))\n");

 

фпп1ад"(8е1я tl 1 (polar tlO (* pi 1.5) 8))\n");

 

фпп1ад"(8е1я tl2 (polar tl 1 (* pi 1.5) 8))\n");

 

фппеед"(8еГя tl3 (polar tl2 (* pi 1.5) 12))\n");

 

фг1п!ад"(8е1я tl4 (polar tl3 (* pi 1.5) 12))\n");

 

фпп1ад"(8е1я tl5 (polar tl4 (* pi 1.5) 7))\n");

 

фпп1ед"(8еГя

(polar tI5 (* pi 1.5) 12))\n");

 

фг1пгад"(5е1я tl7 (polar tl6 (* pi 1.5) 13))\n");

 

фпп1А;^"(8е1я tl8 (polar tl7 (* pi 1.5) 8))\n");

 

фптед"(8е1я tl9 (polar tl8 (* pi 1.5) 8))\n");

 

фг1п1ад"(зе1я t20 (polar tl9 (* pi 1.5) 12))V');

 

фпп1ад"(8е1я t21 (polar t20 (* pi 1.5) 1 l))\n");

фпп1ад"(8е1я t22 (polar t21 (* pi 1.5) I2))\n");

 

фпп1ад"(8е1я t23 (polar 122 (* pi 1.5) 8))\n");

 

фг1п15(^"(8е1я t24 (polar t23 (* pi 1.5) 12))\n");

 

фпп1ед"(8е1я t25 (polar t24 (* pi 1.5) 8))\n");

 

фпп1ад"(8е1я t26 (polar t25 (* pi 1.5) 8))\n");

 

фпп1ед"(8е1я t27 (polar t26 (* pi 1.5) 16))\n");

 

фппгед"(8е1я t28 (polar t27 (* pi 1.5) 8))\n");

 

фпп1ад"(8е1я t29 (polar t28 (* pi 1.5) 8))\n");

 

фппгад"(8е1я t30 (polar t29 (* pi 1.5) 8))\n");

 

фпп1ад"(8е1я t31 (polar t30 (* pi 1.5) 8))\n");

 

фпшадХсоттапё \"pline\" al \"w\" 0.58 0.58

a4 \"c\")\n");

фг1п1ад"(соттапс1 V'plineV t7 V'wV 0.58 0.58

(polar t7 pi 110) \"c\")\n");

фпп1£(Г,"(command \"pline\" t8 \"w\" 0.58 0.58

(polar t8 pi 110) \"c\")\n");

фrintf(f,"(command \"pline\" t9\"w\" 0.58 0.58

(polar t9 pi 110) \"c\")\n");

фrintf(f,"(command \"pline\" t9 \"w\" 0.58 0.58

(polar t9 pi 110) \"c\")\n");

фrintf(f,"(command \"pline\" tlO \"w\" 0.58 0.58 (polar tlO pi 110) \"c\")\n"):

фrintf(f,"(command V'plineV tl 1 \"w\" 0.58 0.58

(polar tl 1 pi 110) V'cV)\n"):

фrintf(f,"(command V'plineV tl5 \"w\" 0.58 0.58

(polar tl5 pi 110) \"c\")\n");

фrintf(f,"(command V'plineV tl6 \"wV' 0.58 0.58

(polar tl6 pi 110) \"c\")\n");

фrintf(f,"(command V'pline\" tl7 \"wV' 0.58 0.58

(polar tl7 pi 110) V'c\")\n");

фrintf(f,"(command Vpline\" tl8 \"w\" 0.58 0.58

(polar tl 8 pi 110) \"c\")\n");

фrintf(f,"(command Vpline\" tl9 \"wV' 0.58 0.58

(polar tl9 pi 110) V'c\")\n");

 

 

-449-

 

Приложение 2

 

fprmtf(f,"(command \"pline\" t20 \"w\" 0.58 0.58

(polar t20 pi 110) \"c\")\n");

fprintf(f,"(command\"pline\" t21 \"w\" 0.58 0.58

(polar t21 pi 110)\"c\")\n");

^rintf(f,"(command \"pline\" t22 \"w\" 0.58 0.58

(polar t22 pi 110) \"c\")\n");

фrintf(f,"(command \"pline\" t23 \"w\" 0.58 0.58

(polar t23 pi 110) \"c\")\n");

фrintf(f,"(command V'plineV t24 \"w\" 0.58 0.58

(polar t24 pi 110) \"cV')\n");

фrintf(f,"(command \"pline\" t25 \"w\" 0.58 0.58

(polar t25 pi 110) V'c\")\n");

фrintf(f,"(command V'plineV" t26 \"w\" 0.58 0.58

(polar t26 pi 110) \"c\")\n");

фrintf(f,"(command \"plineV t27 V'w\" 0.58 0.58

(polar t27 pi 110) \"cV)\n");

фrintf(f,"(command \"pline\" t28 VwV 0.58 0.58

(polar t28 pi 110) VcV')\n");

фrintf(f,"(command \"pline\" t30 \"w\" 0.58 0.58

(polar t30 pi 110) \"c\")\n");

фrintf(f,"(command V'plineV t31 V'w\" 0.58 0.58

(polar t31 pi 110) \"c\")\n");

фrintf(f,"(setq t5 (polar al pi 30))\n");

 

 

 

фг{п1ад"(5е1я151 (polar t5 (* 1.5 pi) 257))\n");

 

 

 

фrintf(f,"(setq t6 (polar al pi 20))\n");

 

 

 

фг1п1Г(£,"(5е1я t61 (polar t6 (* 1.5 pi) 245))\n");

 

 

 

фrintf(f,"(command V'plineV t5 VwV 0.58 0.58

t51 V'cV)\n");

 

фrintf(f,"(command V'pline\" t6 Vw\" 0.58 0.58

 

t61 V'cV')\n");

 

фг1п1ад"(8егя t32 (polar tl2 pi 90))\n");

 

 

 

фпп1ад"(5е1я t33 (polar tl3 pi 90))\n");

 

 

 

фг1тед"(5еГя t34 (polar tl4 pi 90))\n");

 

 

 

фrintf(f,"(command \"pline\" tl2 \"w\" 0.58 0.58

t32 \"c\")\n");

 

фrintf(f,"(command V'pline\" tl3 \"wV' 0.58 0.58

t33 \"cV')\n");

 

^rintf(f,"(command VpIineV tl4 \"w\" 0.58 0.58

t34 VcV')\n");

 

фrintf(f,"(command V'plineV (polar t32 (/ pi 2) 8) \"wV' 0.58 0.58

(polar t34 (* 1.5 pi) 7) \"cV')Vn");

фriпtf(f,"(setq t35 (polar t29 pi 70))\n");

 

 

 

фrintf(f,"(conmland V'plineV t29 \"wV' 0.58 0.58

(polar t29 pi 70) VcV')\n");

фrintf(f,"(command V'plineV (polar t35 (/ pi 2) 8) VwV 0.58 0.58

(polar t35 (* 1.5 pi) 8) Vc\")\n");

//шестерня

 

 

 

фrintf(f,"(setq bpO (polar (polar a5 pi 200) (/ pi 2) 200 ))\n");

 

фrintf(f,"(setq bp2 (polar bpO 0 110))\n");

 

 

 

фrintf(f,"(setq bpl (polar bp2 pi 30))\n");

 

 

 

фrintf(f,"(setq a2 (polar bpl (/ pi 2) %3.2f))\n",(Del/2));

 

фrintf(f,"(setq bp (polar a2 (+ pi %3.2f) %3.2f))\n",Dell,Re);

 

фг1тад" (command \"-layerV' \"MakeV V'l\"

\"ColorV' \"white\" \"V' \"L\" \"Center2\" \"V \"ON\" V'lV VV

)\n");

фrintf(f,"(command \"line\" bpO bp2 nil)\n"); фrintf(f,"(command \"line\" bp a2 nil)\n");

фrintf(f,"(setq a21 (polar a2 (+ pi %3.2f) %3.2f))\n",Dell,b); фrintf(f,"(setq al (polar a2 (- pi %3.2f) %3.2f))\n",Dell,H_ael); фптад"(5е1я аЗ (polara2 (- %3.2f (/pi2)) %3.2f))\n",Deil,H_fel);

 

 

-450-

 

Приложение 2

^rintf(f,"(setq

al 1 (polar a21 (- pi %3.2f) %3.2f))\n",Dell,H_ail);

fprintf(f,"(setq

а31 (polar a21 (- %3.2f (/ pi 2))

%3.2f))\n",Dell,H_fil);

fprintf(f," (command \"-layer\" \"Make\" \"2\"

\"Color\" \"white\" \"\" \"L\" \"Continuous\" \"\" \"ON\" \"2\"

\"\" )\n");

 

 

^rintf(f,"(command\"pline\" al \"w\" 0.58 0.58

аЗ а31 all \"c\")\n");

fprintf(f,"(setq

bplO (inters bpO bp al al 1 nil ))\n");

fprintf(f,"(setq

bpl 1 (inters bpO bp аЗ аЗ 1 nil ))\n");

fprintf(f,"(command \"line\" bplO al nil)\n");

 

фrintf(f,"(command \"line\" bplO аЗ nil)\n");

 

^rintf(f,"(setq

a5 (polar аЗ (- %3.2f (/pi 2)) %3.2f))\n",Dell,H_el);

фrintf(f,"(setq bp5 (polar bp 0 (- 74 (+ %3.2f (+ %3.2f %3.2f)))))\n",PT/2,Pa2/2,uB/2); фrintf(f,"(setq а6 (polar bp5 (/ pi 2) %3.2f))\n",Pd2/2);

фrintf(f,"(setq a7 (polar а6 (/ pi 2) 4))\n"); фг1тед"(зе1я a8 (polar а6 (/ pi 2) 11 ))\n");

фrintf(f,"(setq a9 (inters a8 (polar a8 pi 2) a5 (polar a5 (- 1.308) 2) nil))\n"); фrintf(f,"(command \"pline\" bp5 \"w\" 0.58 0.58 a8 a9 a5 аЗ nil)\n"); фrintf(f,")\n");

fclose(f);

}

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]
Помощь Обратная связь Вопросы и предложения Пользовательское соглашение Политика конфиденциальности