% BY Ajay Jatav
% email id:- ajayjatav43@yahoo.in
% Chandigarh India
% create the gui and name it as timesync, drags the required item in gui and copy and paste the codes on new file.
function varargout=wsntimesync(varargin)
gui_Singleton = 1;
gui_State = struct('gui_Name', mfilename, 'gui_Singleton', gui_Singleton, 'gui_OpeningFcn', @wsntimesync_OpeningFcn, 'gui_OutputFcn', @WSNSIM_OutputFcn, 'gui_LayoutFcn', [], 'gui_Callback', []);
if (nargin && ischar(varargin{1}))
gui_State.gui_Callback = str2func(varargin{1});
end
if (nargout)
[varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:})
else
gui_mainfcn(gui_State, varargin{:})
end
end % End initialization code
% --- Executes just before WSNSim is made visible.
function wsntimesync_OpeningFcn(hObject, eventdata, handles, varargin)
GlobalVars()
clear workspace clc
handles.output = hObject; guidata(hObject, handles)
axes(handles.GridAxes); cla;
sensorLogoHandle = imshow('sensorLogo.jpg')
axis([get(sensorLogoHandle, 'XData') get(sensorLogoHandle, 'YData')])
SetSamples(handles, 'initAll', 'hide') % Set default values
if (nodesDispersedF)
ClearHandles(handles)
end
set(handles.syncType_RBS, 'Value',0)
set(handles.syncType_TPSN, 'Value',0)
set(handles.syncType_Source, 'Value',0)
set(handles.syncType_Hybrid, 'Value',0)
switch syncType
case 'RBS'
set(handles.syncType_RBS, 'Value',1)
case 'TPSN'
set(handles.syncType_TPSN, 'Value',1)
case 'source'
set(handles.syncType_Source, 'Value',1)
case 'hybrid'
set(handles.syncType_Hybrid, 'Value',1)
end
simFileInfo = dir('WSNSim.m')
set(handles.clearGrid, 'String','Quit')
set(handles.statusText, 'String','Enter Grid parameters...')
set(handles.sourceNodeID, 'String','')
set(handles.curLocX, 'String','')
set(handles.curLocY, 'String','')
set(handles.analyzedNode, 'String','')
set(handles.pwrRem, 'String','')
set(handles.WSNSim, 'Name', sprintf('WSN Simulator 2.0 - %s', simFileInfo.date))
end
% --- Outputs from this function are returned to the command line.
function varargout = WSNSIM_OutputFcn(hObject, eventdata, handles)
varargout{1} = handles.output
reqVer = '7.1.0.246 (R14) Service Pack 3'
if (version ~= reqVer) % Incorrect Matlab version detected
msgbox('Matlab R14 SP3 is required to ensure proper GUI performance.')
end
end
% ================= BUTTON FUNCTIONS =================
function editParams_Callback(hObject, eventdata, handles)
ParamEdit()
end
function recharge_Callback(hObject, eventdata, handles)
GlobalVars()
if (nodesDispersedF)
nodePower = nodePowerMax .* ones(1, nodeCount) % Maximize the power of each node
deadNodes = 0;
set(handles.depletedNodes, 'String',sprintf('%g / %.3g%%', deadNodes, 100*deadNodes/nodeCount))
UpdateAnalyzedNode(handles, closestNode)
UpdatePowerAxes(handles, 'noCalc')
axes(handles.GridAxes)
PlotGrid() % Redraw the nodes to refresh their color
end
end
function clearGrid_Callback(hObject, eventdata, handles)
GlobalVars()
if (networkSyncF) % Clear the sync lines first
set(handles.syncTime, 'String','')
set(handles.numTX, 'String','')
set(handles.numRX, 'String','')
set(handles.droppedTX, 'String','')
UpdateGridAxes(handles)
DrawFlooding(0)
PlotGrid()
networkSyncF = 0;
elseif (networkLvlDiscF) % Clear the lvl-disc lines if no sync has been performed
parent = []
closestNode = sourceNode
ClearHandles(handles)
UpdateGridAxes(handles)
PlotGrid()
set(handles.orphNodes, 'String','')
set(handles.statusText, 'String','Enter Flood parameters...')
networkLvlDiscF = 0
elseif (nodesDispersedF) % Clear nodes and reset to the opening screen
wsntimesync_OpeningFcn(hObject, eventdata, handles, 1)
axes(handles.PwrAxes); cla axis([0 1 0 1])
set(handles.orphNodes, 'String','')
set(handles.depletedNodes, 'String','')
set(handles.sourceNodeID, 'String','')
set(handles.curLocX, 'String','')
set(handles.curLocY, 'String','')
set(handles.analyzedNode, 'String','')
set(handles.pwrRem, 'String','')
set(handles.clearGrid, 'String','Quit')
nodesDispersedF = 0
else
close
end
end
function plotGrid_Callback(hObject, eventdata, handles)
GlobalVars(); clc
set(handles.clearGrid, 'String','Clear Grid')
set(handles.statusText, 'String','Initializing Network...')
if (~dataLoadedF) % Set variables here to avoid disrupting loaded values
SetSamples(handles, 'initArrays', 'hide') % Set default values
networkChangedF = 0
nodesDispersedF = 1
networkLvlDiscF = 0
networkSyncF = 0
closestNode = sourceNode
else
dataLoadedF = 0
end
UpdateGridAxes(handles)
PlotGrid()
if (~networkChangedF && networkLvlDiscF)
% Needed in case the data has been loaded and we want the flooding lines...
NetworkChangedF flag must be 0 to redraw the flooding lines
DrawFlooding(0)
end
UpdatePowerAxes(handles, 'noCalc')
ClearHandles(handles)
set(handles.depletedNodes, 'String',sprintf('%g / %.3g%%', deadNodes, 100*deadNodes/nodeCount))
set(handles.statusText, 'String','Enter Flood parameters...')
set(handles.analyzedNode, 'String',sourceNode)
set(handles.pwrRem, 'String',nodePower(sourceNode))
set(handles.flood, 'Enable','on')
set(handles.synchronize, 'Enable','on')
end
function flood_Callback(hObject, eventdata, handles)
GlobalVars(); clc
if (networkChangedF || ~nodesDispersedF || dataLoadedF)
plotGrid_Callback(hObject, eventdata, handles)
end
if (nodePower(sourceNode) < 2)
% If source node can only transmit one more time, elect a new source
ElectNewSource(handles, sourceNode)
tempStr = get(handles.statusText, 'String')
tempColor = get(handles.statusText, 'BackgroundColor')
set(handles.statusText, 'String',sprintf('Source node is depleted. New source node is %g', sourceNode))
set(handles.statusText, 'BackgroundColor','red')
pause(2)
set(handles.statusText, 'String',tempStr)
set(handles.statusText, 'BackgroundColor',tempColor)
end
parent = []
maxDistanceLow = nthroot(PtWLow/PrThresholdWLow, pathLossCoeff)
maxDistanceHigh = nthroot(PtWHigh/PrThresholdWHigh, pathLossCoeff)
closestNode = sourceNode
set(handles.statusText, 'String','Simulating flooding...')
set(handles.plotGrid, 'Enable','off')
set(handles.clearGrid, 'Enable','off')
set(handles.flood, 'Enable','off')
set(handles.synchronize, 'Enable','off')
set(handles.syncType_RBS, 'Enable','off')
set(handles.syncType_TPSN, 'Enable','off')
set(handles.syncType_Source, 'Enable','off')
set(handles.syncType_Hybrid, 'Enable','off')
set(handles.FloodTest, 'Enable','off')
set(handles.EnergyTest, 'Enable','off')
set(handles.TimeTest, 'Enable','off')
set(handles.editParams, 'Enable','off')
set(handles.recharge, 'Enable','off')
pause(0.001)
UpdateGridAxes(handles)
PlotGrid()
s = cputime
BasicDecayFlooding(handles)
floodTime = cputime - s
DrawFlooding(pauseInt)
ClearHandles(handles)
PlotGrid()
UpdatePowerAxes(handles)
UpdateAnalyzedNode(handles, closestNode)
UpdateNodeStatus(handles)
set(handles.plotGrid, 'Enable','on')
set(handles.clearGrid, 'Enable','on')
set(handles.flood, 'Enable','on')
set(handles.synchronize, 'Enable','on')
set(handles.syncType_RBS, 'Enable','on')
set(handles.syncType_TPSN, 'Enable','on')
set(handles.syncType_Source, 'Enable','on')
set(handles.syncType_Hybrid, 'Enable','on')
set(handles.FloodTest, 'Enable','on')
set(handles.EnergyTest, 'Enable','on')
set(handles.TimeTest, 'Enable','on')
set(handles.editParams, 'Enable','on')
set(handles.recharge, 'Enable','on')
set(handles.floodTime, 'String',floodTime)
set(handles.numTX, 'String',numTx)
set(handles.numRX, 'String',numRx)
if (tracebackF)
Traceback(close
Untitled.rar （2个子文件） 
Untitled.m 2KB wsntimesync.m 33KB资源评论
寒泊
- 粉丝: 86
- 资源: 1万+
最新资源
- 信捷XC PLC与力士乐VFC-x610变频器通讯程序原创可直接用于生产的程序，程序带注释，并附送触摸屏程序，有接线方式和设置，通讯地址说明等 程序采用轮询，可靠稳定 器件：信捷XC3的PLC，博世
- CMIP6 变量详细表格
- KF2EDGK系列5.08接线端子，带3D封装
- 信捷XC PLC与3台力士乐VFC-x610变频器通讯通讯 原创可直接用于生产的程序，程序带注释，并附送触摸屏程序，有接线方式和设置，通讯地址说明等 程序采用轮询，可靠稳定 器件：信捷XC3的PLC
- org.xmind.ui.mindmap-3.6.1.jar
- 16台搅拌机定时控制程序16台搅拌机定时控制，使用三菱FX系列PLC，威伦通触摸屏，具备完善的控制功能
- 微网双层优化模型matlab 采用yalmip编写三个微网的分层优化模型，考虑电价的负荷响应，综合配电网运营商收益和用户购电成本，程序运行稳定
- rv1126交叉编译工具链gcc-arm-8.3-2019.02-x86-64-arm-linux-gnueabihf.tar.xz和安装步骤
- 1960-2023年世界各国国民总收入数据
- 风储深度调峰模型matlab 考虑风储的调峰模型，采用cplex作为求解器，实现不同主体出力优化控制，程序运行稳定，有参考资料，
- 计算机系统安全性与性能评估：IOMMU在Linux环境下的性能研究及其优化策略
- 电动汽车蒙特卡洛分析matlab 通过matlab程序编写电动汽车蒙特卡洛模型，得到汽车行驶里程的概率分布曲线和充电功率曲线，程序运行可靠，有参考资料
- 考虑交通流量的电动汽车充电站规划matlab 程序采用matlab编制，采用粒子群算法，结合交通网络流量，得到最终充电站规划方案，程序运行可靠
- rustdesk-1.3.6-x86-64.msi
- 电动汽车优化模型matlab 狼群算法
- 你还在为伺服驱动器 FPGA架构苦恼吗，本方案FPGA代码实现电流环 速度环 位置环 SVPWM 坐标变 测速 分频 滤波器等，程序方便移植不同的平台，具有很高的研究价值
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
