sat_ant.em.c

在opnet平台下的卫星仿真程序

#include <opnet.h>
#include <ema.h>
#include <opnet_emadefs.h>
#include <opnet_constants.h>



double dvec_0[]=
{
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5,
15.5
};
double dvec_1[]=
{
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088,
15.4088
};
double dvec_2[]=
{
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327,
15.1327
};
double dvec_3[]=
{
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645,
14.6645
};
double dvec_4[]=
{
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909,
13.9909
};
double dvec_5[]=
{
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909,
13.0909
};
double dvec_6[]=
{
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318,
11.9318
};
double dvec_7[]=
{
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627,
10.4627
};
double dvec_8[]=
{
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007,
8.6007
};
double dvec_9[]=
{
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,
6.1991,