LEACH-in-OPNET.zip_LEACH-in-OPNET_csma_csma/ca opnet_opnet csma_

/* Process model C form file: wy_wsn_route_test.pr.c */ /* Portions of this file copyright 1992-2003 by OPNET Technologies, Inc. */ /* This variable carries the header into the object file */ const char wy_wsn_route_test_pr_c [] = "MIL_3_Tfile_Hdr_ 100A 30A modeler 7 46C3B17E 46C3B17E 1 wy-0fda98abb0ce wy 0 0 none none 0 0 none 0 0 0 0 0 0 0 0 8f3 1 "; #include <string.h> /* OPNET system definitions */ #include <opnet.h> /* Header Block */ #include <math.h> #include "wsn.h" /* Define streams */ #define OUTSTRM_TO_MAC 0 #define INSTRM_FROM_MAC 0 /* Define interrupt codes */ #define RESET_TIME_CODE 0 #define NEW_ROUND_TIME_CODE 1 #define SCHEDULE_TIME_CODE 2 #define JOIN_REQ_TIME_CODE 3 #define PACKET_TO_SEND_CODE 4 /* Define time constants */ double RESET_TIME_LENGTH; #define ROUND_TIME_LENGTH 60 /* 一轮的时间长度 */ #define SET_UP_TIME_LENGTH 1 /* set_up状态时间长度 */ #define STEADY_TIME_LENGTH 59 /* 稳定状态时间长度 */ #define JOIN_REQ_WAIT_TIME_LENGTH 0.7 #define ADV_WAIT_TIME_LENGTH 0.5 #define SLOT_LENGTH 0.01 /* member node packet send time's length once */ #define TOTAL_ROUND_N 20 double current_round_start_time; double current_state_start_time; /* Define process model transitions. */ #define TIME_TO_RESET (op_intrpt_type() == OPC_INTRPT_SELF && op_intrpt_code() == RESET_TIME_CODE) #define TIME_TO_NEW_ROUND (op_intrpt_type() == OPC_INTRPT_SELF && op_intrpt_code() == NEW_ROUND_TIME_CODE) #define TIME_TO_SCHEDULE (op_intrpt_type() == OPC_INTRPT_SELF && op_intrpt_code() == SCHEDULE_TIME_CODE) #define TIME_TO_JOIN_REQ (op_intrpt_type() == OPC_INTRPT_SELF && op_intrpt_code() == JOIN_REQ_TIME_CODE) #define JOIN_REQ_ARR (op_intrpt_type() == OPC_INTRPT_STRM && op_intrpt_strm() == INSTRM_FROM_MAC) #define ADV_ARR (op_intrpt_type() == OPC_INTRPT_STRM && op_intrpt_strm() == INSTRM_FROM_MAC) #define SCHEDULE_ARR (op_intrpt_type() == OPC_INTRPT_STRM && op_intrpt_strm() == INSTRM_FROM_MAC) #define PACKET_ARR (op_intrpt_type() == OPC_INTRPT_STRM && op_intrpt_strm() == INSTRM_FROM_MAC) #define PACKET_TO_SEND (op_intrpt_type() == OPC_INTRPT_SELF && op_intrpt_code() == PACKET_TO_SEND_CODE) /* 定义成员节点ID数组 */ #define MAX_NODE 200 int members_id [MAX_NODE]; /* 定义簇头所占比例P */ double cluster_p = 0.05; /* 发送数据的距离 */ double node_distance; /* End of Header Block */ #if !defined (VOSD_NO_FIN) #undef BIN #undef BOUT #define BIN FIN_LOCAL_FIELD(_op_last_line_passed) = __LINE__ - _op_block_origin; #define BOUT BIN #define BINIT FIN_LOCAL_FIELD(_op_last_line_passed) = 0; _op_block_origin = __LINE__; #else #define BINIT #endif /* #if !defined (VOSD_NO_FIN) */ /* State variable definitions */ typedef struct { /* Internal state tracking for FSM */ FSM_SYS_STATE /* State Variables */ Objid my_objid; Objid my_node_objid; Objid cluster_objid; Objid sink_objid; Objid min_objid; double min_distance; double frame_length; int member_i; int member_n; int current_round_r; int round_n; int cluster_id; int my_node_id; int intrpt_strm; int sink_id; double x_self; double y_self; double z_self; double x_sink; double y_sink; double z_sink; } wy_wsn_route_test_state; #define pr_state_ptr ((wy_wsn_route_test_state*) (OP_SIM_CONTEXT_PTR->mod_state_ptr)) #define my_objid pr_state_ptr->my_objid #define my_node_objid pr_state_ptr->my_node_objid #define cluster_objid pr_state_ptr->cluster_objid #define sink_objid pr_state_ptr->sink_objid #define min_objid pr_state_ptr->min_objid #define min_distance pr_state_ptr->min_distance #define frame_length pr_state_ptr->frame_length #define member_i pr_state_ptr->member_i #define member_n pr_state_ptr->member_n #define current_round_r pr_state_ptr->current_round_r #define round_n pr_state_ptr->round_n #define cluster_id pr_state_ptr->cluster_id #define my_node_id pr_state_ptr->my_node_id #define intrpt_strm pr_state_ptr->intrpt_strm #define sink_id pr_state_ptr->sink_id #define x_self pr_state_ptr->x_self #define y_self pr_state_ptr->y_self #define z_self pr_state_ptr->z_self #define x_sink pr_state_ptr->x_sink #define y_sink pr_state_ptr->y_sink #define z_sink pr_state_ptr->z_sink /* These macro definitions will define a local variable called */ /* "op_sv_ptr" in each function containing a FIN statement. */ /* This variable points to the state variable data structure, */ /* and can be used from a C debugger to display their values. */ #undef FIN_PREAMBLE_DEC #undef FIN_PREAMBLE_CODE #if defined (OPD_PARALLEL) # define FIN_PREAMBLE_DEC wy_wsn_route_test_state *op_sv_ptr; OpT_Sim_Context * tcontext_ptr; # define FIN_PREAMBLE_CODE \ if (VosS_Mt_Perform_Lock) \ VOS_THREAD_SPECIFIC_DATA_GET (VosI_Globals.simi_mt_context_data_key, tcontext_ptr, SimT_Context *); \ else \ tcontext_ptr = VosI_Globals.simi_sequential_context_ptr; \ op_sv_ptr = ((wy_wsn_route_test_state *)(tcontext_ptr->mod_state_ptr)); #else # define FIN_PREAMBLE_DEC wy_wsn_route_test_state *op_sv_ptr; # define FIN_PREAMBLE_CODE op_sv_ptr = pr_state_ptr; #endif /* Function Block */ #if !defined (VOSD_NO_FIN) enum { _op_block_origin = __LINE__ }; #endif /* End of Function Block */ /* Undefine optional tracing in FIN/FOUT/FRET */ /* The FSM has its own tracing code and the other */ /* functions should not have any tracing. */ #undef FIN_TRACING #define FIN_TRACING #undef FOUTRET_TRACING #define FOUTRET_TRACING #if defined (__cplusplus) extern "C" { #endif void wy_wsn_route_test (OP_SIM_CONTEXT_ARG_OPT); VosT_Obtype wy_wsn_route_test_init (int * init_block_ptr); VosT_Address wy_wsn_route_test_alloc (VOS_THREAD_INDEX_ARG_COMMA VosT_Obtype, int); void wy_wsn_route_test_diag (OP_SIM_CONTEXT_ARG_OPT); void wy_wsn_route_test_terminate (OP_SIM_CONTEXT_ARG_OPT); void wy_wsn_route_test_svar (void *, const char *, void **); VosT_Fun_Status Vos_Define_Object (VosT_Obtype * obst_ptr, const char * name, unsigned int size, unsigned int init_obs, unsigned int inc_obs); VosT_Address Vos_Alloc_Object_MT (VOS_THREAD_INDEX_ARG_COMMA VosT_Obtype ob_hndl); VosT_Fun_Status Vos_Poolmem_Dealloc_MT (VOS_THREAD_INDEX_ARG_COMMA VosT_Address ob_ptr); #if defined (__cplusplus) } /* end of 'extern "C"' */ #endif /* Process model interrupt handling procedure */ void wy_wsn_route_test (OP_SIM_CONTEXT_ARG_OPT) { #if !defined (VOSD_NO_FIN) int _op_block_origin = 0; #endif FIN_MT (wy_wsn_route_test ()); if (1) { Packet* pkptr; /* 一下为计算成员到簇头最近距离所需的变量 */ /* 记录两个节点的坐标信息 */ double x_src; /* 源节点 */ double