Navid Nikaein
72fd579b8e
git-svn-id: http://svn.eurecom.fr/openair4G/trunk@5281 818b1a75-f10b-46b9-bf7c-635c3b92a50f
389 lines
14 KiB
C
389 lines
14 KiB
C
/*******************************************************************************
|
|
|
|
Eurecom OpenAirInterface
|
|
Copyright(c) 1999 - 2011 Eurecom
|
|
|
|
This program is free software; you can redistribute it and/or modify it
|
|
under the terms and conditions of the GNU General Public License,
|
|
version 2, as published by the Free Software Foundation.
|
|
|
|
This program is distributed in the hope it will be useful, but WITHOUT
|
|
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
|
|
more details.
|
|
|
|
You should have received a copy of the GNU General Public License along with
|
|
this program; if not, write to the Free Software Foundation, Inc.,
|
|
51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
The full GNU General Public License is included in this distribution in
|
|
the file called "COPYING".
|
|
|
|
Contact Information
|
|
Openair Admin: openair_admin@eurecom.fr
|
|
Openair Tech : openair_tech@eurecom.fr
|
|
Forums : http://forums.eurecom.fsr/openairinterface
|
|
Address : Eurecom, 2229, route des crêtes, 06560 Valbonne Sophia Antipolis, France
|
|
|
|
*******************************************************************************/
|
|
|
|
/*! \file otg_config.h main used structures
|
|
* \brief otg structure
|
|
* \author A. Hafsaoui and Navid Nikaein
|
|
* \date 2011
|
|
* \version 0.1
|
|
* \company Eurecom
|
|
* \email: openair_tech@eurecom.fr
|
|
* \note
|
|
* \warning
|
|
|
|
*/
|
|
|
|
#include "otg_form.h"
|
|
#include "otg_vars.h"
|
|
#include "otg_kpi.h"
|
|
|
|
extern unsigned char NB_eNB_INST;
|
|
extern unsigned char NB_UE_INST;
|
|
|
|
FD_otg * form_dl, *form_ul;
|
|
FL_FORM *fclock;
|
|
unsigned int clear_cmpt_ul=0;
|
|
unsigned int clear_cmpt_dl=0;
|
|
|
|
|
|
FD_otg *create_form_otg(void)
|
|
{
|
|
FL_OBJECT *obj;
|
|
FD_otg *fdui = (FD_otg *) fl_calloc(1, sizeof(*fdui));
|
|
|
|
fdui->otg = fl_bgn_form(FL_NO_BOX, 550, 550);
|
|
obj = fl_add_box(FL_UP_BOX,0,0,900,700,"");
|
|
fdui->owd = fl_add_xyplot(FL_NORMAL_XYPLOT,50,30,450,190,"Delay(ms)");
|
|
fl_set_object_color(fdui->owd,FL_BLACK,FL_YELLOW);
|
|
fdui->throughput = fl_add_xyplot(FL_NORMAL_XYPLOT,50,300,450,190,"Throughput(Kbit/s)");
|
|
fl_set_object_color(fdui->throughput,FL_BLACK,FL_YELLOW);
|
|
|
|
|
|
obj = fl_add_button(FL_NORMAL_BUTTON,250,510,50,30,"Exit");
|
|
fl_set_object_callback(obj, exit_cb, 0);
|
|
fdui->loss_ratio=fl_add_text(FL_NORMAL_TEXT,5,510,220,20,"NB Loss pkts");
|
|
fdui->simu_time=fl_add_text(FL_NORMAL_TEXT,370,510,250,30,"Simulation Time");
|
|
|
|
|
|
fl_end_form();
|
|
fdui->otg->fdui = fdui;
|
|
return fdui;
|
|
}
|
|
|
|
//For more details about object parameters, refer to: http://xforms-toolkit.org/doc/xforms_25.html
|
|
|
|
void show_otg_form()
|
|
{
|
|
int eNB_id;
|
|
char title[255];
|
|
char *tArgv[] = { "OTG", "OTG" };
|
|
int tArgc = 2;
|
|
|
|
fl_initialize(&tArgc,tArgv,"OTG",0,0);
|
|
for (eNB_id = 0; eNB_id < NB_eNB_INST; eNB_id++) { //NB_eNB_INST
|
|
form_dl= create_form_otg ();
|
|
sprintf (title, "LTE eNB->UE (DL)");
|
|
fl_show_form (form_dl->otg, FL_PLACE_HOTSPOT, FL_FULLBORDER, title);
|
|
fl_set_form_position(form_dl->otg, 200, 200);
|
|
if (g_otg->owd_radio_access==1)
|
|
fl_set_xyplot_ybounds(form_dl->owd,0,200);
|
|
else
|
|
fl_set_xyplot_ybounds(form_dl->owd,0,400);
|
|
|
|
|
|
fl_set_xyplot_ybounds(form_dl->throughput,0,200);
|
|
|
|
|
|
|
|
form_ul= create_form_otg ();
|
|
sprintf (title, "LTE UE->eNB (UL)");
|
|
fl_show_form (form_ul->otg, FL_PLACE_HOTSPOT, FL_FULLBORDER, title);
|
|
fl_set_form_position(form_ul->otg, 850, 200);
|
|
if (g_otg->owd_radio_access==1)
|
|
fl_set_xyplot_ybounds(form_ul->owd,0,200);
|
|
else
|
|
fl_set_xyplot_ybounds(form_ul->owd,0,400);
|
|
|
|
|
|
|
|
fl_set_xyplot_ybounds(form_ul->throughput,0,200);
|
|
|
|
|
|
}
|
|
|
|
//create_form_clock();
|
|
//fl_show_form(fclock, FL_PLACE_CENTER,FL_TRANSIENT,"clocks");
|
|
//fl_do_forms();
|
|
|
|
fl_check_forms();
|
|
}
|
|
|
|
void add_tab_metric(int src, int dst, float owd, float throughput, int ctime){
|
|
|
|
if (otg_forms_info->init_forms==0){
|
|
show_otg_form();
|
|
otg_forms_info->init_forms=1;
|
|
otg_forms_info->is_data_plot_ul=-1;
|
|
otg_forms_info->is_data_plot_dl=-1;
|
|
}
|
|
|
|
if (dst<NB_eNB_INST){
|
|
//LOG_D(OTG,"direction: UL [src:%d, dst:%d] \n", src, dst);
|
|
otg_forms_info->data_owd_ul[src][dst][otg_forms_info->idx_ul[src][dst]]= owd;
|
|
otg_forms_info->data_throughput_ul[src][dst][otg_forms_info->idx_ul[src][dst]]=throughput;
|
|
otg_forms_info->data_ctime_ul[src][dst][otg_forms_info->idx_ul[src][dst]]= otg_forms_info->idx_ul[src][dst];
|
|
otg_forms_info->idx_ul[src][dst]++;
|
|
plot_graphes_ul(src, dst, ctime);
|
|
}
|
|
else{
|
|
//LOG_D(OTG,"direction: DL [src:%d, dst:%d] \n", src, dst);
|
|
otg_forms_info->data_owd_dl[src][dst][otg_forms_info->idx_dl[src][dst]]= owd;
|
|
otg_forms_info->data_throughput_dl[src][dst][otg_forms_info->idx_dl[src][dst]]= throughput;
|
|
otg_forms_info->data_ctime_dl[src][dst][otg_forms_info->idx_dl[src][dst]]= otg_forms_info->idx_dl[src][dst];
|
|
otg_forms_info->idx_dl[src][dst]++;
|
|
plot_graphes_dl(src, dst, ctime);
|
|
}
|
|
//LOG_D(OTG,"OTG_forms[src %d, dst %d] owd %f TH %f \n", src, dst, owd, throughput);
|
|
//LOG_D(OTG,"MAX_UE_eNB %d, %d \n:", NB_UE_INST, NB_eNB_INST);
|
|
}
|
|
|
|
|
|
void plot_graphes_ul(int src, int dst, int ctime) //UE -->eNB
|
|
{
|
|
|
|
int i, src_idx=1, curve_id=1;
|
|
char loss_rate[100];
|
|
char simu_time[100];
|
|
char curve_label[100];
|
|
int x_key_position=27;
|
|
int y_key_position=75;
|
|
|
|
if (otg_forms_info->idx_ul[src][dst]==MAX_SAMPLES-1){
|
|
|
|
fl_update_display(1); //the function flushes the X buffer so the drawing requests are on their way to the server
|
|
|
|
|
|
|
|
|
|
if (otg_forms_info->is_data_plot_ul == -1)
|
|
otg_forms_info->is_data_plot_ul=src;
|
|
|
|
if (otg_forms_info->is_data_plot_ul == src) {
|
|
fl_set_xyplot_data (form_ul->owd, otg_forms_info->data_ctime_ul[src][dst],
|
|
otg_forms_info->data_owd_ul[src][dst], otg_forms_info->idx_ul[src][dst], "", "time", "ms");
|
|
sprintf(curve_label, "%d%s%d", src,"-->", dst);
|
|
fl_set_xyplot_key(form_ul->owd, 0, curve_label);
|
|
fl_set_xyplot_key_position(form_ul->owd, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
fl_set_xyplot_data (form_ul->throughput, otg_forms_info->data_ctime_ul[src][dst],
|
|
otg_forms_info->data_throughput_ul[src][dst], otg_forms_info->idx_ul[src][dst], "", "time", "kbit/s");
|
|
fl_set_xyplot_key(form_ul->throughput, 0, curve_label);
|
|
fl_set_xyplot_key_font(form_ul->throughput, FL_BOLD_STYLE, FL_HUGE_SIZE);
|
|
fl_set_xyplot_key_position(form_ul->throughput, x_key_position,y_key_position , FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
|
|
|
|
otg_kpi_nb_loss_pkts();
|
|
sprintf(loss_rate, "%s%d","NB Loss pkts UL=", otg_info->total_loss_ul);
|
|
fl_set_object_label(form_ul->loss_ratio, loss_rate);
|
|
sprintf(simu_time, "%s%d","Simulation Time(ms)=", ctime);
|
|
fl_set_object_label(form_ul->simu_time, simu_time);
|
|
}
|
|
else {
|
|
fl_set_xyplot_data (form_ul->owd, otg_forms_info->data_ctime_ul[otg_forms_info->is_data_plot_ul][dst],
|
|
otg_forms_info->data_owd_ul[otg_forms_info->is_data_plot_ul][dst], otg_forms_info->idx_ul[otg_forms_info->is_data_plot_ul][dst], "", "time", "ms");
|
|
sprintf(curve_label, "%d%s%d", otg_forms_info->is_data_plot_ul,"-->", dst);
|
|
fl_set_xyplot_key(form_ul->owd, 0, curve_label);
|
|
fl_set_xyplot_key_position(form_ul->owd, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
|
|
fl_set_xyplot_data (form_ul->throughput, otg_forms_info->data_ctime_ul[otg_forms_info->is_data_plot_ul][dst],
|
|
otg_forms_info->data_throughput_ul[otg_forms_info->is_data_plot_ul][dst], otg_forms_info->idx_ul[otg_forms_info->is_data_plot_ul][dst], "", "time", "kbit/s");
|
|
sprintf(curve_label, "%d%s%d", otg_forms_info->is_data_plot_ul,"-->", dst);
|
|
fl_set_xyplot_key(form_ul->throughput, 0, curve_label);
|
|
fl_set_xyplot_key_position(form_ul->throughput, x_key_position,y_key_position , FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
otg_kpi_nb_loss_pkts();
|
|
sprintf(loss_rate, "%s%d","NB Loss pkts UL=",otg_info->total_loss_ul);
|
|
fl_set_object_label(form_ul->loss_ratio, loss_rate);
|
|
sprintf(simu_time, "%s%d","Simulation Time(ms)=", ctime);
|
|
fl_set_object_label(form_ul->simu_time, simu_time);
|
|
|
|
}
|
|
|
|
for (src_idx=1;src_idx<=NB_UE_INST;src_idx++){
|
|
if (src_idx!=otg_forms_info->is_data_plot_ul){
|
|
fl_add_xyplot_overlay(form_ul->owd,curve_id++,
|
|
otg_forms_info->data_ctime_ul[src_idx][dst],
|
|
otg_forms_info->data_owd_ul[src_idx][dst],
|
|
otg_forms_info->idx_ul[src_idx][dst],src_idx+6);
|
|
sprintf(curve_label, "%d%s%d", src_idx,"-->", dst);
|
|
fl_set_xyplot_key(form_ul->owd, curve_id-1, curve_label);
|
|
fl_set_xyplot_key_position(form_ul->owd, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
|
|
|
|
fl_add_xyplot_overlay(form_ul->throughput,curve_id++,
|
|
otg_forms_info->data_ctime_ul[src_idx][dst],
|
|
otg_forms_info->data_throughput_ul[src_idx][dst],
|
|
otg_forms_info->idx_ul[src_idx][dst],src_idx+6);
|
|
sprintf(curve_label, "%d%s%d", src_idx,"-->", dst);
|
|
fl_set_xyplot_key(form_ul->throughput, curve_id-1, curve_label);
|
|
fl_set_xyplot_key_position(form_ul->throughput,x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
}
|
|
}
|
|
|
|
|
|
for (i=0;i<otg_forms_info->idx_ul[src][dst];i++){
|
|
otg_forms_info->data_ctime_ul[src][dst][otg_forms_info->idx_ul[src][dst]]=i;
|
|
otg_forms_info->data_owd_ul[src][dst][i]= otg_forms_info->data_owd_ul[src][dst][i+1];
|
|
otg_forms_info->data_throughput_ul[src][dst][i]= otg_forms_info->data_throughput_ul[src][dst][i+1];
|
|
}
|
|
otg_forms_info->idx_ul[src][dst]--;
|
|
}
|
|
|
|
fl_check_forms();
|
|
|
|
}
|
|
|
|
|
|
|
|
void plot_graphes_dl(int src, int dst, int ctime) //eNB -->UE
|
|
{
|
|
|
|
int i, dst_idx=1, curve_id=1;
|
|
char loss_rate[100];
|
|
char curve_label[100];
|
|
char simu_time[100];
|
|
int x_key_position=27;
|
|
int y_key_position=75;
|
|
|
|
if (otg_forms_info->idx_dl[src][dst]==MAX_SAMPLES-1){
|
|
|
|
fl_update_display(1); //the function flushes the X buffer so the drawing requests are on their way to the server
|
|
|
|
|
|
|
|
if (otg_forms_info->is_data_plot_dl == -1)
|
|
otg_forms_info->is_data_plot_dl=dst;
|
|
|
|
if (otg_forms_info->is_data_plot_dl == dst) {
|
|
fl_set_xyplot_data (form_dl->owd, otg_forms_info->data_ctime_dl[src][dst],
|
|
otg_forms_info->data_owd_dl[src][dst], otg_forms_info->idx_dl[src][dst], "", "time", "ms");
|
|
sprintf(curve_label, "%d%s%d", src,"-->", dst);
|
|
fl_set_xyplot_key(form_dl->owd, 0, curve_label);
|
|
fl_set_xyplot_key_position(form_dl->owd, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
fl_set_xyplot_data (form_dl->throughput, otg_forms_info->data_ctime_dl[src][dst],
|
|
otg_forms_info->data_throughput_dl[src][dst], otg_forms_info->idx_dl[src][dst], "", "time", "kbit/s");
|
|
sprintf(curve_label, "%d%s%d", src,"-->", dst);
|
|
fl_set_xyplot_key(form_dl->throughput, 0, curve_label);
|
|
fl_set_xyplot_key_position(form_dl->throughput, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
otg_kpi_nb_loss_pkts();
|
|
sprintf(loss_rate, "%s%d","NB Loss pkts DL=",otg_info->total_loss_dl);
|
|
fl_set_object_label(form_dl->loss_ratio, loss_rate);
|
|
|
|
sprintf(simu_time, "%s%d","Simulation Time(ms)=", ctime);
|
|
fl_set_object_label(form_dl->simu_time, simu_time);
|
|
|
|
}
|
|
else {
|
|
fl_set_xyplot_data (form_dl->owd, otg_forms_info->data_ctime_dl[src][otg_forms_info->is_data_plot_dl],
|
|
otg_forms_info->data_owd_dl[src][otg_forms_info->is_data_plot_dl], otg_forms_info->idx_dl[src][otg_forms_info->is_data_plot_dl], "", "time", "ms");
|
|
sprintf(curve_label, "%d%s%d", src,"-->", otg_forms_info->is_data_plot_dl);
|
|
fl_set_xyplot_key(form_dl->owd, 0, curve_label);
|
|
fl_set_xyplot_key_position(form_dl->owd, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
fl_set_xyplot_data (form_dl->throughput, otg_forms_info->data_ctime_dl[src][otg_forms_info->is_data_plot_dl],
|
|
otg_forms_info->data_throughput_dl[src][otg_forms_info->is_data_plot_dl], otg_forms_info->idx_dl[src][otg_forms_info->is_data_plot_dl], "", "time", "kB/s");
|
|
sprintf(curve_label, "%d%s%d", src,"-->",otg_forms_info->is_data_plot_dl);
|
|
fl_set_xyplot_key(form_dl->throughput, 0, curve_label);
|
|
fl_set_xyplot_key_position(form_dl->throughput,x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
otg_kpi_nb_loss_pkts();
|
|
sprintf(loss_rate, "%s%d","NB Loss pkts DL=",otg_info->total_loss_dl);
|
|
fl_set_object_label(form_dl->loss_ratio, loss_rate);
|
|
sprintf(simu_time, "%s%d","Simulation Time(ms)=", ctime);
|
|
fl_set_object_label(form_dl->simu_time, simu_time);
|
|
}
|
|
|
|
for (dst_idx=1;dst_idx<=NB_UE_INST;dst_idx++){
|
|
if (dst_idx!=otg_forms_info->is_data_plot_dl){
|
|
fl_add_xyplot_overlay(form_dl->owd,curve_id++,
|
|
otg_forms_info->data_ctime_dl[src][dst_idx],
|
|
otg_forms_info->data_owd_dl[src][dst_idx],
|
|
otg_forms_info->idx_dl[src][dst_idx],dst_idx+6);
|
|
sprintf(curve_label, "%d%s%d", src,"-->", dst_idx);
|
|
fl_set_xyplot_key(form_dl->owd, curve_id-1, curve_label);
|
|
fl_set_xyplot_key_position(form_dl->owd, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
fl_add_xyplot_overlay(form_dl->throughput,curve_id++,
|
|
otg_forms_info->data_ctime_dl[src][dst_idx],
|
|
otg_forms_info->data_throughput_dl[src][dst_idx],
|
|
otg_forms_info->idx_dl[src][dst_idx],dst_idx+6);
|
|
sprintf(curve_label, "%d%s%d", src,"-->", dst_idx);
|
|
fl_set_xyplot_key(form_dl->throughput, curve_id-1, curve_label);
|
|
fl_set_xyplot_key_position(form_dl->throughput, x_key_position,y_key_position, FL_ALIGN_BOTTOM_LEFT);
|
|
|
|
|
|
}
|
|
}
|
|
|
|
for (i=0;i<otg_forms_info->idx_dl[src][dst];i++){
|
|
otg_forms_info->data_ctime_dl[src][dst][otg_forms_info->idx_dl[src][dst]]=i;
|
|
otg_forms_info->data_owd_dl[src][dst][i]= otg_forms_info->data_owd_dl[src][dst][i+1];
|
|
otg_forms_info->data_throughput_dl[src][dst][i]= otg_forms_info->data_throughput_dl[src][dst][i+1];
|
|
}
|
|
otg_forms_info->idx_dl[src][dst]--;
|
|
}
|
|
|
|
fl_check_forms();
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void exit_cb(FL_OBJECT *ob, long q)
|
|
{
|
|
fl_finish();
|
|
exit(0);
|
|
}
|
|
|
|
void create_form_clock(void)
|
|
{
|
|
FL_OBJECT *obj;
|
|
|
|
if (fclock)
|
|
return;
|
|
|
|
fclock = fl_bgn_form(FL_NO_BOX,500,350);
|
|
obj = fl_add_box(FL_UP_BOX,0,0,500,350,"");
|
|
|
|
obj = fl_add_clock(FL_DIGITAL_CLOCK,185,20,150,35,"");
|
|
fl_set_object_boxtype(obj,FL_ROUNDED_BOX);
|
|
fl_set_object_color(obj,FL_COL1,FL_BLACK);
|
|
fl_set_object_lsize(obj,FL_MEDIUM_SIZE);
|
|
fl_set_object_lstyle(obj,FL_BOLD_STYLE);
|
|
|
|
obj = fl_add_clock(FL_ANALOG_CLOCK,30,70,220,200,"");
|
|
fl_set_object_boxtype(obj,FL_UP_BOX);
|
|
|
|
obj = fl_add_clock(FL_ANALOG_CLOCK,260,70,220,200,"");
|
|
fl_set_object_boxtype(obj,FL_OVAL3D_UPBOX);
|
|
obj = fl_add_button(FL_NORMAL_BUTTON,375,300,110,35,"Exit");
|
|
fl_set_object_callback(obj, exit_cb, 0);
|
|
fl_end_form();
|
|
|
|
fl_scale_form(fclock, 0.7, 0.7);
|
|
}
|
|
|
|
|
|
|