Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
Топ:
Оснащения врачебно-сестринской бригады.
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...
Интересное:
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...
Дисциплины:
2019-12-26 | 134 |
5.00
из
|
Заказать работу |
|
|
[1] /*########################################################*/
[2] /*
[3] Copyright (C) 2008 by A.E.Stefanovich tel. 236-2729, 268-3916
[4] Moscow State University of the Instrumentation and Informatics
[5] MGUPI
[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic
[7] IS 5
[8] */
[9] /*########################################################*/
[10] /*
[11] File: SYS_MUS.h
[12] MUSIC
[13] */
[14] /*########################################################*/
[15] /*============================= Global Constants */
[16] /*------------- First oct. */
[17] #define D_ 262
[18] #define DD_ 277
[19] #define RB- 277
[20] #define R_ 294
[21] #define RD_ 311
[22] #define MB_ 311
[23] #define M_ 330
[24] #define F_ 349
[25] #define FD_ 370
[26] #define SB_ 370
[27] #define S_ 392
[28] #define SD_ 415
[29] #define LB_ 415
[30] #define L_ 440
[31] #define LD_ 466
[32] #define CB_ 466
[33] #define C_ 494
[34] /*------------- Coeficient frequency */
[35] #define OG 0.25 /* Big oct. */
[36] #define OL 0.5 /* Little oct. */
[37] #define O2 2 /* Second oct. */
[38] #define O3 4 /* Third oct */
[39] /*------------- Pause frequency */
[40] #define P_ 20000
[41] /*------------- Length of the whole note */
[42] #define ANDANTE 3375
[43] #define MODERATO 2250
[44] #define ALLEGRO 1700
[45] /*============================= DECLARATION */
[46] void n(float f,float l);
[47] void sonata17(float W);
[48] void sonata17r(float W);
[49] void elise(float W);
[50] /*######################################### SUB_PROGRAMMS */
[51] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[52] void n(float f,float l)
[53] {
[54] sound(f);
[55] delay(l);
[56] nosound();
[57] }
[58] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[59] void sonata17(float W)
[60] {
[61] n(L_,W/16); n(F_*O2,W/16); n(M_*O2,W/16);
[62] /*------------- 1 */
[63] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);
[64] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);
[65] n(R_*O2,W/8); n(P_,W/16); n(L_, W/16); n(F_*O2,W/16); n(R_*O2,W/16);
[66] n(M_*O2,W/8); n(P_,W/16); n(L_, W/16); n(S_*O2,W/16); n(F_*O2,W/16);
[67] /*------------- 2 */
[68] n(M_*O2,W/8); n(P_,W/16); n(L_,W/16); n(S_*O2,W/16); n(F_*O2,W/16);
[69] n(M_*O2,W/8); n(P_,W/16); n(L_,W/16); n(S_*O2,W/16); n(F_*O2,W/16);
[70] n(M_*O2,W/8); n(P_,W/16); n(L_, W/16); n(S_*O2,W/16); n(M_*O2,W/16);
[71] n(F_*O2,W/8); n(P_,W/16); n(R_*O2,W/16); n(L_*O2,W/16); n(R_*O3,W/16);
[72] /*------------- 3 */
[73] n(CB_*O2,W/8); n(P_,W/16); n(CB_,W/16); n(R_*O2,W/16); n(CB_,W/16);
[74] n(S_ *O2,W/8); n(P_,W/16); n(S_,W/16); n(CB_,W/16); n(S_*O2,W/16);
[75] n(M_,W/8); n(P_,W/16); n(M_, W/16); n(L_,W/16); n(M_*O2,W/16);
[76] n(F_*O2,W/8); n(P_,W/16); n(F_, W/16); n(L_,W/16); n(F_*O2,W/16);
[77] /*------------- 4 */
[78] n(R_*O2,W/8); n(P_,W/16); n(R_,W/16); n(L_,W/16); n(R_ *O2,W/16);
|
[79] n(DD_*O2,W/8); n(P_,W/16); n(DD_,W/16); n(L_,W/16); n(DD_*O2,W/16);
[80] n(R_ *O2,W/4);
[81] }
[82] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[83] void sonata17r(float W)
[84] {
[85] n(L_,W/16); n(F_*O2,W/16); n(M_*O2,W/16);
[86] /*------------- 1 */
[87] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);
[88] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);
[89] n(R_*O2,W/8); n(P_,W/16); n(L_, W/16); n(F_*O2,W/16); n(R_*O2,W/16);
[90] n(M_*O2,W/8); n(P_,W/16);
[91] }
[92] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[93] void elise(float W)
[94] {
[95] n(M_*O2,W/16); n(RD_*O2,W/16); n(M_*O2,W/16);
[96] /*------------- 1 */
[97] n(RD_*O2,W/16); n(M_*O2,W/16); n(C_,W/16); n(R_*O2,W/16); n(D_*O2,W/16);
[98] n(L_,W/8); n(P_,W/16);
[99] }
[100] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[101] /*#############################################################*/
* * *
15. ФАЙЛ SYS _ PRIM. H.
ГРАФИЧЕСКИЕ ПРИМИТИВЫ ПРОГРАММЫ SCONT. C.
[1] /*########################################################*/
[2] /*
[3] Copyright (C) 2008 by A.E.Stefanovich tel. 236-2729, 268-3916
[4] Moscow State University of the Instrumentation and Informatics
[5] MGUPI
[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic
[7] IS 5
[8] */
[9] /*########################################################*/
[10] /*
[11] File: SYS_PRIM.h
[12] GRAPHIC PRIMITIVES
[13] */
[14] /*########################################################*/
[15] /*============================= Declarations */
[16] /*---- Elements and devices */
[17] int E
[18] (char *t,int n,int lx,int ly,int dx,int dy,int kx,int ky);
[19] int B
[20] (char *t,int n,int lx,int ly,int dx,int dy,int kx,int ky);
[21] /*---- Primitives */
[22] int RectangleN
[23] (int left_x,int left_y,int right_x,int right_y,int n);
[24] int Rectangle2
[25] (int left_x,int left_y,int right_x,int right_y);
[26] int EllipseN
[27] (int x, int y,int stangle,int endangle,
[28] int x_radius,int y_radius,int n);
[29] int Ellipse2
[30] (int x, int y,int stangle,int endangle,
[31] int x_radius,int y_radius);
[32] /*####################################### SUB_PROGRAMMS */
[33] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[34] int E
[35] (char *t,int n,int lx,int ly,int dim_x,int dim_y,
[36] int kx,int ky)
[37] {
[38] /*---- Variable */
[39] char buf_str[80];
[40] /*---- Device */
[41] settextstyle(SMALL_FONT,HORIZ_DIR,4);
[42] setlinestyle(SOLID_LINE,0,NORM_WIDTH);
[43] setcolor(LIGHTGRAY);
[44] if(dim_x<3) dim_x=3;
[45] if(dim_y<3) dim_y=3;
[46] RectangleN(lx*kx,ly*ky,(lx+dim_x)*kx,(ly+dim_y)*ky,2);
[47] setcolor(YELLOW);
[48] settextjustify(RIGHT_TEXT,CENTER_TEXT);
[49] outtextxy((lx+dim_x-1)*kx,(ly+1)*ky,t);
[50] setcolor(WHITE);
[51] itoa(n,buf_str,10);
[52] settextjustify(LEFT_TEXT,CENTER_TEXT);
[53] outtextxy((lx+1)*kx,(ly+dim_y-1)*ky,buf_str);
[54] /*----*/
[55] return 0;
[56] }
[57] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[58] int B
[59] (char *t,int n,int lx,int ly,int dim_x,int dim_y,
[60] int kx,int ky)
[61] {
[62] /*---- Variable */
[63] char buf_str[80];
[64] /*---- Device */
[65] settextstyle(SMALL_FONT,HORIZ_DIR,4);
[66] setlinestyle(SOLID_LINE,0,NORM_WIDTH);
[67] setfillstyle(SOLID_FILL,LIGHTGRAY);
[68] if(dim_x<3) dim_x=3;
[69] if(dim_y<3) dim_y=3;
[70] bar(lx*kx,ly*ky,(lx+dim_x)*kx,(ly+dim_y)*ky);
|
[71] setcolor(YELLOW);
[72] rectangle(lx*kx,ly*ky,(lx+dim_x)*kx,(ly+dim_y)*ky);
[73] settextjustify(RIGHT_TEXT,CENTER_TEXT);
[74] outtextxy((lx+dim_x-1)*kx,(ly+1)*ky,t);
[75] setcolor(WHITE);
[76] itoa(n,buf_str,10);
[77] settextjustify(LEFT_TEXT,CENTER_TEXT);
[78] outtextxy((lx+1)*kx,(ly+dim_y-1)*ky,buf_str);
[79] /*----*/
[80] return 0;
[81] }
[82] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[83] int RectangleN
[84] (int left_x,int left_y,int right_x,int right_y,int n)
[85] {
[86] int i;
[87] for(i=0;i<n;i++)
[88] {
[89] rectangle
[90] (left_x+i,left_y+i,right_x-i,right_y-i);
[91] if((left_x+i)>=(right_x-i)) break;
[92] if((left_y+i)>=(right_y-i)) break;
[93] }
[94] /*----*/
[95] return 0;
[96] }
[97] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[98] int Rectangle2
[99] (int left_x,int left_y,int right_x,int right_y)
[100] {
[101] rectangle
[102] (left_x,left_y,right_x,right_y);
[103] rectangle
[104] (left_x+2,left_y+2,right_x-2,right_y-2);
[105] /*----*/
[106] return 0;
[107] }
[108] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[109] int EllipseN
[110] (int x, int y,int stangle,int endangle,
[111] int x_radius,int y_radius,int n)
[112] {
[113] int i;
[114] for(i=0;i<n;i++)
[115] {
[116] ellipse
[117] (x,y,stangle,endangle,x_radius-i,y_radius-i);
[118] if(x_radius<=0) break;
[119] if(y_radius<=0) break;
[120] }
[121] /*----*/
[122] return 0;
[123] }
[124] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[125] int Ellipse2
[126] (int x, int y,int stangle,int endangle,
[127] int x_radius,int y_radius)
[128] {
[129] ellipse
[130] (x,y,stangle,endangle,x_radius,y_radius);
[131] ellipse
[132] (x,y,stangle,endangle,x_radius-2,y_radius-2);
[133] /*----*/
[134] return 0;
[135] }
[136] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[137]
[138] /*########################################################*/
* * *
16. ФАЙЛ SYS _ DV 0. H.
|
|
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!