Курсак.Програмирование№13 / Курсак.Програмирование.Минев№13 / TEXE

/*******************************************************************/
/*                  Џа®Ја ¬¬  а бзҐв  Ђ—• Ё ”—•                    */
/*              ‚лЇ®«­Ё« бв㤥­в Ја. ђ’-103 ђ ¤згЄ Ѓ.‚.            */
/*******************************************************************/

/*            Џ®¤Є«о祭ЁҐ ­Ґ®Ўе®¤Ё¬ле д ©«®ў                       */

#include <stdio.h>
#include <math.h>
#include <conio.h>

/*******************************************************************/
/*         ЋЎкпў«Ґ­ЁҐ дг­ЄжЁ© Ї®«м§®ў вҐ«п                         */
/*******************************************************************/

float ACH(float Ksi, float X); /* ђ бзҐв Ђ—• */
float FCH(float Ksi, float X); /* ђ бзҐв ”—• */
void  Tabl2(float Ksi, float ACH, float FCH,float W); /* ‚лў®¤ в Ў«Ёжл */
float Omega(float Ksi, float Q, float W0); /* ЋЇаҐ¤Ґ«Ґ­ЁҐ з бв®вл */
void  Tabl1(void); /* ‚лў®¤ и ЇЄЁ в Ў«Ёжл */
void  Tabl3(void); /* ‚лў®¤ Ї®б«Ґ¤­Ґ© бва®ЄЁ в Ў«Ёжл */

/*******************************************************************/
/*                  ѓ« ў­ п дг­ЄжЁп                                */
/*******************************************************************/

void main(void)
{

/*******************************************************************/
/*         ЋЎкпў«Ґ­ЁҐ ЇҐаҐ¬Ґ­­ле                                   */
/*******************************************************************/

  float C, /* …¬Є®бвм Є®­вга  */
  L, /* €­¤гЄвЁў­®бвм Є®­вга  */
  LS, /* €­¤гЄвЁў­®бвм бўп§Ё Є®­вга  */
  R, /* ‘®Їа®вЁў«Ґ­ЁҐ Є®­вга  */
  Q, /* „®Ўа®в­®бвм Є®­вга  */
  K, /* Љ®нддЁжЁҐ­в бўп§Ё */
  X, /* ” Єв®а бўп§Ё */
  Ksi, /* ЋЎ®ЎйҐ­­ п а ббва®©Є  */
  A, /* ‡­ зҐ­ЁҐ Ђ—• */
  F, /* ‡­ зҐ­ЁҐ ”—• */
  Om, /* ‡­ зҐ­ЁҐ з бв®вл */
  W0; /* ђҐ§®­ ­бп­ п з бв®в  Є®­вга  */

/*******************************************************************/
/*         ЏаЁбў®Ґ­ЁҐ ­ з «м­ле §­ зҐ­Ё© ЇҐаҐ¬Ґ­­л¬                                */
/*******************************************************************/

  C = 17 * pow(10,-9);
  L = 240 * pow(10,-6);
  LS = 50 * pow(10,-6);
  R = 10;

  clrscr(); /* ЋзЁй Ґ¬ нЄа ­ */

  W0 = 1 / sqrt(L * C); /* ЋЇаҐ¤Ґ«пҐ¬ १®­ ­б­го з бв®вг */
  Q = sqrt(L / C) / R; /* ЋЇаҐ¤Ґ«пҐ¬ ¤®Ўа®в­®бвм */
  K = LS / (LS + L); /* ЋЇаҐ¤Ґ«пҐ¬ Є®нддЁжЁҐ­в бўп§Ё */
  X = K * Q; /* ЋЇаҐ¤Ґ«пҐ¬ д Єв®а бўп§Ё */

  Tabl1(); /* ‚л§лў Ґ¬ дг­ЄжЁо Ї®«м§®ў вҐ«п Tabl1() */

/*******************************************************************/
/*           ‘®§¤ Ґ¬ жЁЄ«                                          */
/*******************************************************************/

  for(Ksi = -4.0; Ksi <= 4; Ksi = Ksi + 0.5)
  {

    A = ACH(Ksi, X); /* ЋЇаҐ¤Ґ«пҐ¬ §­ зҐ­Ёп Ђ—• */
    F = FCH(Ksi, X); /* ЋЇаҐ¤Ґ«Ґ«пҐ¬ §­ зҐ­Ёп ”—• */
    Om = Omega(Ksi, Q, W0); /* ЋЇаҐ¤Ґ«пҐ¬ §­ зҐ­Ёп з бв®вл */
    Tabl2(Ksi, A, F, Om); /* ‚лў®¤Ё¬ ­  нЄа ­ бва®ЄЁ в Ў«Ёжл */

  }

  Tabl3(); /* ‚л§лў Ґ¬ дг­ЄжЁо Ї®«м§®ў вҐ«п Tabl3() */

  getch(); /* Ћ¦Ё¤ Ґ¬ ­ ¦ вЁҐ Є« ўЁиЁ */

}


/*******************************************************************/
/*            ”г­ЄжЁЁ Ї®«м§®ў вҐ«п                                 */
/*******************************************************************/


/*******************************************************************/
/*            ђ бзҐв §­ зҐ­Ёп  Ђ—•                                 */
/*******************************************************************/

float ACH(float Ksi, float X)
{

  float ACH; /* ЋЎк塞 ЇҐаҐ¬Ґ­­го ACH */
  ACH = 2 * X / sqrt((1 + X * X - Ksi * Ksi) * (1 + X * X - Ksi * Ksi)+4 * Ksi * Ksi); /* ‚лзЁб«пҐ¬ Ђ—• */
  return ACH; /* ‚®§ўа й Ґ¬ §­ зҐ­Ёп */

}

/*******************************************************************/
/*            ђ бзҐв §­ зҐ­Ёп  ”—•                                 */
/*******************************************************************/

float FCH(float Ksi, float X)
{

  float FCH; /* ЋЎк塞 ЇҐаҐ¬Ґ­­го FCH */
  FCH = (3.14 / 2) - atan(2 * Ksi / (1 + X * X - Ksi * Ksi)); /* ‚лзЁб«пҐ¬ ”—• */
  return FCH; /* ‚®§ўа й Ґ¬ §­ зҐ­Ёп */

}

/*******************************************************************/
/*            ‚лў®¤ ­  нЄа ­ бва®ЄЁ в Ў«Ёжл                        */
/*******************************************************************/

void Tabl2(float Ksi, float ACH, float FCH, float W)
{

  printf ("                 є %4.1f  є  %4.3f  є   %4.3f   є   %4.3f   є\n", Ksi, W, ACH, FCH);

}

/*******************************************************************/
/*            ђ бзҐв omega                                         */
/*******************************************************************/
float Omega(float Ksi, float Q, float W0)
{

  float W, /* ‡­ зҐ­ЁҐ з бв®вл */
  W1; /* Ќ®а¬Ёа®ў ­­®Ґ §­ зҐ­ЁҐ з бв®вл */
  W1 = ((Ksi / Q) * W0 + W0 * sqrt((Ksi * Ksi) / (Q * Q) + 4.0)) / 2.0; /* ђ бзЁвлў Ґ¬ з бв®вл */
  W = W1/pow(10,6); /* Ќ®а¬Ёа㥬 §­ зҐ­Ёп з бв®вл */
  return W; /* ‚®§ўа й Ґ¬ §­ зҐ­Ёп */

}

/*******************************************************************/
/*            ‚лў®¤ ­  нЄа ­ ­ §ў ­Ёп Ё "и ЇЄЁ" в Ў«Ёжл            */
/*******************************************************************/
void Tabl1(void)
{

  printf("                           ’ Ў«Ёж  §­ зҐ­Ё© Ђ—• Ё ”—•         \n");
  printf("                 ЙНННННННЛНННННННННЛНННННННННННЛННННННННННН»\n");
  printf("                 є  Ksi  є  Omega  є    Ђ—•    є    ”—•    є\n");
  printf("                 є       є  *10^6  є           є           є\n");
  printf("                 МНННННННОНННННННННОНННННННННННОННННННННННН№\n");

}

/*******************************************************************/
/*            ‚лў®¤Ё¬ ­  нЄа ­ Ї®б«Ґ¤­Ґ© бва®ЄЁ в Ў«Ёжл              */
/*******************************************************************/
void Tabl3(void)
{

  printf("                 ИНННННННРНННННННННРНННННННННННРНННННННННННј\n");

}