⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 restoration_proc.em.c

📁 实验室前辈用OPNET做的光突发交换网络的仿真实验
💻 C
📖 第 1 页 / 共 2 页
字号:
		"	op_pk_nfd_set (pkptr, \"wavelength\", wavelength_number);",
		"	",
		"	",
		"	if(op_sim_time() >= s_time)",
		"		{",
		"		gen_bcp[userid]++;",
		"		}",
		"	",
		"	//pk_count++;",
		"	//op_stat_write (pk_cnt_stathandle, pk_count);",
		"	",
		"	op_pk_send (pkptr, PK_OUT_STRM);",
		"	}",
		"}",
		"",
		"",
		"",
		"",
		"",
		PRGC_NIL);

	/* create and init prg list 'prg_lptr [16]' */
	prg_lptr [16] = (Prg_List *)prg_list_create ();
	Ema_Object_Attr_Set (model_id, obj [16], 
		"name",                 COMP_CONTENTS, "proc",
		"Enter Execs",          COMP_CONTENTS, prg_lptr [15],
		"Exit Execs",           COMP_CONTENTS, prg_lptr [16],
		"status",               COMP_TOGGLE,   EMAC_ENABLED,
		"position",             COMP_CONTENTS, obj [17],
		"initial",              COMP_TOGGLE,   EMAC_DISABLED,
		EMAC_EOL);


	/* assign attrs for object 'obj [18]' */
	/* create and init prg list 'prg_lptr [17]' */
	prg_lptr [17] = (Prg_List *)prg_list_create ();
	prg_list_strings_append (prg_lptr [17], 
		"",
		PRGC_NIL);

	/* create and init prg list 'prg_lptr [18]' */
	prg_lptr [18] = (Prg_List *)prg_list_create ();
	Ema_Object_Attr_Set (model_id, obj [18], 
		"name",                 COMP_CONTENTS, "end",
		"Enter Execs",          COMP_CONTENTS, prg_lptr [17],
		"Exit Execs",           COMP_CONTENTS, prg_lptr [18],
		"status",               COMP_TOGGLE,   EMAC_DISABLED,
		"position",             COMP_CONTENTS, obj [19],
		"initial",              COMP_TOGGLE,   EMAC_DISABLED,
		EMAC_EOL);


	/* assign attrs for object 'obj [20]' */
	Ema_Object_Attr_Set (model_id, obj [20], 
		"name",                 COMP_CONTENTS, "tr_0",
		"condition",            COMP_CONTENTS, "BEG_SIM",
		"executive",            COMP_CONTENTS, "",
		"dest state",           COMP_CONTENTS, obj [14],
		"src state",            COMP_CONTENTS, obj [12],
		"drawing style",        COMP_TOGGLE,   EMAC_ENABLED,
		"color",                COMP_CONTENTS, 0,
		"path",                 COMP_ARRAY_CONTENTS (0), obj [21],
		"path",                 COMP_ARRAY_CONTENTS (1), obj [22],
		"label pos",            COMP_CONTENTS, obj [23],
		EMAC_EOL);


	/* assign attrs for object 'obj [24]' */
	Ema_Object_Attr_Set (model_id, obj [24], 
		"name",                 COMP_CONTENTS, "tr_2",
		"condition",            COMP_CONTENTS, "BURST_ARRIVAL",
		"executive",            COMP_CONTENTS, "",
		"dest state",           COMP_CONTENTS, obj [16],
		"src state",            COMP_CONTENTS, obj [14],
		"drawing style",        COMP_TOGGLE,   EMAC_ENABLED,
		"color",                COMP_CONTENTS, 0,
		"path",                 COMP_ARRAY_CONTENTS (0), obj [25],
		"path",                 COMP_ARRAY_CONTENTS (1), obj [26],
		"path",                 COMP_ARRAY_CONTENTS (2), obj [27],
		"label pos",            COMP_CONTENTS, obj [28],
		EMAC_EOL);


	/* assign attrs for object 'obj [29]' */
	Ema_Object_Attr_Set (model_id, obj [29], 
		"name",                 COMP_CONTENTS, "tr_3",
		"condition",            COMP_CONTENTS, "default",
		"executive",            COMP_CONTENTS, "",
		"dest state",           COMP_CONTENTS, obj [14],
		"src state",            COMP_CONTENTS, obj [16],
		"drawing style",        COMP_TOGGLE,   EMAC_ENABLED,
		"color",                COMP_CONTENTS, 0,
		"path",                 COMP_ARRAY_CONTENTS (0), obj [30],
		"path",                 COMP_ARRAY_CONTENTS (1), obj [31],
		"path",                 COMP_ARRAY_CONTENTS (2), obj [32],
		"label pos",            COMP_CONTENTS, obj [33],
		EMAC_EOL);


	/* assign attrs for object 'obj [34]' */
	Ema_Object_Attr_Set (model_id, obj [34], 
		"name",                 COMP_CONTENTS, "tr_19",
		"condition",            COMP_CONTENTS, "END_SIM",
		"executive",            COMP_CONTENTS, "",
		"dest state",           COMP_CONTENTS, obj [18],
		"src state",            COMP_CONTENTS, obj [14],
		"drawing style",        COMP_TOGGLE,   EMAC_ENABLED,
		"color",                COMP_CONTENTS, 0,
		"path",                 COMP_ARRAY_CONTENTS (0), obj [35],
		"path",                 COMP_ARRAY_CONTENTS (1), obj [36],
		"label pos",            COMP_CONTENTS, obj [37],
		EMAC_EOL);


	/* assign attrs for object 'obj [13]' */
	Ema_Object_Attr_Set (model_id, obj [13], 
		"x",                    COMP_CONTENTS, (double) 150,
		"y",                    COMP_CONTENTS, (double) 270,
		EMAC_EOL);


	/* assign attrs for object 'obj [15]' */
	Ema_Object_Attr_Set (model_id, obj [15], 
		"x",                    COMP_CONTENTS, (double) 330,
		"y",                    COMP_CONTENTS, (double) 270,
		EMAC_EOL);


	/* assign attrs for object 'obj [17]' */
	Ema_Object_Attr_Set (model_id, obj [17], 
		"x",                    COMP_CONTENTS, (double) 330,
		"y",                    COMP_CONTENTS, (double) 90,
		EMAC_EOL);


	/* assign attrs for object 'obj [19]' */
	Ema_Object_Attr_Set (model_id, obj [19], 
		"x",                    COMP_CONTENTS, (double) 150,
		"y",                    COMP_CONTENTS, (double) 450,
		EMAC_EOL);


	/* assign attrs for object 'obj [21]' */
	Ema_Object_Attr_Set (model_id, obj [21], 
		"x",                    COMP_CONTENTS, (double) 178,
		"y",                    COMP_CONTENTS, (double) 270,
		EMAC_EOL);


	/* assign attrs for object 'obj [22]' */
	Ema_Object_Attr_Set (model_id, obj [22], 
		"x",                    COMP_CONTENTS, (double) 302,
		"y",                    COMP_CONTENTS, (double) 270,
		EMAC_EOL);


	/* assign attrs for object 'obj [23]' */
	Ema_Object_Attr_Set (model_id, obj [23], 
		"x",                    COMP_CONTENTS, (double) 239,
		"y",                    COMP_CONTENTS, (double) 259,
		EMAC_EOL);


	/* assign attrs for object 'obj [25]' */
	Ema_Object_Attr_Set (model_id, obj [25], 
		"x",                    COMP_CONTENTS, (double) 319,
		"y",                    COMP_CONTENTS, (double) 243,
		EMAC_EOL);


	/* assign attrs for object 'obj [26]' */
	Ema_Object_Attr_Set (model_id, obj [26], 
		"x",                    COMP_CONTENTS, (double) 290,
		"y",                    COMP_CONTENTS, (double) 173,
		EMAC_EOL);


	/* assign attrs for object 'obj [27]' */
	Ema_Object_Attr_Set (model_id, obj [27], 
		"x",                    COMP_CONTENTS, (double) 322,
		"y",                    COMP_CONTENTS, (double) 116,
		EMAC_EOL);


	/* assign attrs for object 'obj [28]' */
	Ema_Object_Attr_Set (model_id, obj [28], 
		"x",                    COMP_CONTENTS, (double) 242,
		"y",                    COMP_CONTENTS, (double) 151,
		EMAC_EOL);


	/* assign attrs for object 'obj [30]' */
	Ema_Object_Attr_Set (model_id, obj [30], 
		"x",                    COMP_CONTENTS, (double) 337,
		"y",                    COMP_CONTENTS, (double) 117,
		EMAC_EOL);


	/* assign attrs for object 'obj [31]' */
	Ema_Object_Attr_Set (model_id, obj [31], 
		"x",                    COMP_CONTENTS, (double) 360,
		"y",                    COMP_CONTENTS, (double) 181,
		EMAC_EOL);


	/* assign attrs for object 'obj [32]' */
	Ema_Object_Attr_Set (model_id, obj [32], 
		"x",                    COMP_CONTENTS, (double) 334,
		"y",                    COMP_CONTENTS, (double) 241,
		EMAC_EOL);


	/* assign attrs for object 'obj [33]' */
	Ema_Object_Attr_Set (model_id, obj [33], 
		"x",                    COMP_CONTENTS, (double) 384,
		"y",                    COMP_CONTENTS, (double) 154,
		EMAC_EOL);


	/* assign attrs for object 'obj [35]' */
	Ema_Object_Attr_Set (model_id, obj [35], 
		"x",                    COMP_CONTENTS, (double) 311,
		"y",                    COMP_CONTENTS, (double) 290,
		EMAC_EOL);


	/* assign attrs for object 'obj [36]' */
	Ema_Object_Attr_Set (model_id, obj [36], 
		"x",                    COMP_CONTENTS, (double) 171,
		"y",                    COMP_CONTENTS, (double) 430,
		EMAC_EOL);


	/* assign attrs for object 'obj [37]' */
	Ema_Object_Attr_Set (model_id, obj [37], 
		"x",                    COMP_CONTENTS, (double) 201,
		"y",                    COMP_CONTENTS, (double) 363,
		EMAC_EOL);


	/* assign attrs for object 'obj [1]' */
	Ema_Object_Attr_Set (model_id, obj [1], 
		"name",                 COMP_CONTENTS, "begsim intrpt",
		"operation",            COMP_CONTENTS, 2,
		"value",                COMP_CONTENTS_TYPE, EMAC_TOGGLE,
		"value",                COMP_TOGGLE,   EMAC_ENABLED,
		"type",                 COMP_CONTENTS, 2,
		EMAC_EOL);


	/* assign attrs for object 'obj [2]' */
	Ema_Object_Attr_Set (model_id, obj [2], 
		"name",                 COMP_CONTENTS, "doc file",
		"operation",            COMP_CONTENTS, 2,
		"value",                COMP_CONTENTS_TYPE, EMAC_STRING,
		"value",                COMP_CONTENTS, "nd_module",
		"value",                COMP_INTENDED, EMAC_DISABLED,
		"type",                 COMP_CONTENTS, 4,
		EMAC_EOL);


	/* assign attrs for object 'obj [3]' */
	Ema_Object_Attr_Set (model_id, obj [3], 
		"name",                 COMP_CONTENTS, "endsim intrpt",
		"operation",            COMP_CONTENTS, 2,
		"value",                COMP_CONTENTS_TYPE, EMAC_TOGGLE,
		"value",                COMP_TOGGLE,   EMAC_ENABLED,
		"type",                 COMP_CONTENTS, 2,
		EMAC_EOL);


	/* assign attrs for object 'obj [4]' */
	Ema_Object_Attr_Set (model_id, obj [4], 
		"name",                 COMP_CONTENTS, "failure intrpts",
		"operation",            COMP_CONTENTS, 3,
		"value",                COMP_CONTENTS_TYPE, EMAC_STRING,
		"value",                COMP_CONTENTS, "disabled",
		"value",                COMP_INTENDED, EMAC_DISABLED,
		"type",                 COMP_CONTENTS, 8,
		EMAC_EOL);


	/* assign attrs for object 'obj [5]' */
	Ema_Object_Attr_Set (model_id, obj [5], 
		"name",                 COMP_CONTENTS, "intrpt interval",
		"operation",            COMP_CONTENTS, 3,
		"value",                COMP_CONTENTS_TYPE, EMAC_TOGGLE_DOUBLE,
		"value",                COMP_TOGGLE,   EMAC_DISABLED,
		"value",                COMP_CONTENTS, (double) -1e+100,
		"value",                COMP_INTENDED, EMAC_DISABLED,
		"type",                 COMP_CONTENTS, 3,
		EMAC_EOL);


	/* assign attrs for object 'obj [6]' */
	Ema_Object_Attr_Set (model_id, obj [6], 
		"name",                 COMP_CONTENTS, "priority",
		"operation",            COMP_CONTENTS, 3,
		"value",                COMP_CONTENTS_TYPE, EMAC_INTEGER,
		"value",                COMP_CONTENTS, 0,
		"value",                COMP_INTENDED, EMAC_DISABLED,
		"type",                 COMP_CONTENTS, 0,
		EMAC_EOL);


	/* assign attrs for object 'obj [7]' */
	Ema_Object_Attr_Set (model_id, obj [7], 
		"name",                 COMP_CONTENTS, "recovery intrpts",
		"operation",            COMP_CONTENTS, 3,
		"value",                COMP_CONTENTS_TYPE, EMAC_STRING,
		"value",                COMP_CONTENTS, "disabled",
		"value",                COMP_INTENDED, EMAC_DISABLED,
		"type",                 COMP_CONTENTS, 8,
		EMAC_EOL);


	/* assign attrs for object 'obj [8]' */
	Ema_Object_Attr_Set (model_id, obj [8], 
		"name",                 COMP_CONTENTS, "subqueue",
		"operation",            COMP_CONTENTS, 2,
		"value",                COMP_CONTENTS_TYPE, EMAC_COMPOUND,
		"value",                COMP_CONTENTS, obj [9],
		"value",                COMP_INTENDED, EMAC_DISABLED,
		"type",                 COMP_CONTENTS, 14,
		EMAC_EOL);


	/* assign attrs for object 'obj [11]' */
	Ema_Object_Attr_Set (model_id, obj [11], 
		"name",                 COMP_CONTENTS, "super priority",
		"operation",            COMP_CONTENTS, 3,
		"value",                COMP_CONTENTS_TYPE, EMAC_TOGGLE,
		"value",                COMP_TOGGLE,   EMAC_DISABLED,
		"value",                COMP_INTENDED, EMAC_DISABLED,
		"type",                 COMP_CONTENTS, 2,
		EMAC_EOL);


	/* assign attrs for object 'obj [38]' */
	/* create and init prg list 'prg_lptr [19]' */
	prg_lptr [19] = (Prg_List *)prg_list_create ();
	Ema_Object_Attr_Set (model_id, obj [38], 
		"name",                 COMP_CONTENTS, "Global application packets generated (pks)",
		"description",          COMP_CONTENTS, prg_lptr [19],
		"group name",           COMP_CONTENTS, "",
		"capture mode",         COMP_CONTENTS, "normal",
		"display mode",         COMP_CONTENTS, "linear",
		"low bound",            COMP_TOGGLE,   EMAC_ENABLED,
		"low bound",            COMP_CONTENTS, (double) 0,
		EMAC_EOL);


	/* assign attrs for object 'obj [39]' */
	/* create and init prg list 'prg_lptr [20]' */
	prg_lptr [20] = (Prg_List *)prg_list_create ();
	Ema_Object_Attr_Set (model_id, obj [39], 
		"name",                 COMP_CONTENTS, "Global duplicated application packets received (pks)",
		"description",          COMP_CONTENTS, prg_lptr [20],
		"group name",           COMP_CONTENTS, "",
		"capture mode",         COMP_CONTENTS, "normal",
		"display mode",         COMP_CONTENTS, "linear",
		"low bound",            COMP_TOGGLE,   EMAC_ENABLED,
		"low bound",            COMP_CONTENTS, (double) 0,
		EMAC_EOL);


	/* assign attrs for object 'obj [40]' */
	/* create and init prg list 'prg_lptr [21]' */
	prg_lptr [21] = (Prg_List *)prg_list_create ();
	Ema_Object_Attr_Set (model_id, obj [40], 
		"name",                 COMP_CONTENTS, "outstat",
		"count",                COMP_TOGGLE,   EMAC_ENABLED,
		"count",                COMP_CONTENTS, 100,
		"description",          COMP_CONTENTS, prg_lptr [21],
		"group name",           COMP_CONTENTS, "",
		"capture mode",         COMP_CONTENTS, "normal",
		"display mode",         COMP_CONTENTS, "linear",
		"low bound",            COMP_TOGGLE,   EMAC_ENABLED,
		"low bound",            COMP_CONTENTS, (double) 0,
		EMAC_EOL);


	/* assign attrs for object 'obj [41]' */
	/* create and init prg list 'prg_lptr [22]' */
	prg_lptr [22] = (Prg_List *)prg_list_create ();
	Ema_Object_Attr_Set (model_id, obj [41], 
		"name",                 COMP_CONTENTS, "packet count",
		"description",          COMP_CONTENTS, prg_lptr [22],
		"group name",           COMP_CONTENTS, "",
		"capture mode",         COMP_CONTENTS, "",
		"display mode",         COMP_CONTENTS, "",
		"low bound",            COMP_TOGGLE,   EMAC_ENABLED,
		"low bound",            COMP_CONTENTS, (double) 0,
		EMAC_EOL);








	/* write the model to application-readable form */
	Ema_Model_Write (model_id, "Restoration_proc");

	return 0;
	}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -