Skip to main content
. 2020 Jun 16;20(12):3406. doi: 10.3390/s20123406
Algorithm 1 Pseudo code for W-GPCR
  1. locp=getLocation(currentnode)=(xp,yp)

  2. vp=getSpeed(currentnode)

  3. neigp=getNeig(currentnode)

  4. locd=getLocation(destnode)=(xd,yd)

  5. Dpd=(xpxd)2+(ypyd)2

  6. lpd=locdlocp=(xdxp,ydyp)

  7. S=πr2

  8. G=g2cos(vp,lpd)+g3neigpS

  9. nextnode=currentnode

  10. for all neighbors of currentnode do

  11. loci=getLocation(ni)=(xi,yi)

  12. vi=getSpeed(ni)

  13. Did=(xixd)2+(yiyd)2

  14. lid=locdloci=(xdxi,ydyi)

  15. neigi=getNeig(ni)

  16. Gi=g1(1DidDpd)+g2cos(vi,lid)+g3neigiS

  17. If Gi>G then

  18. G=Gi

  19. nextnode=ni

  20. end if

  21. end for

  22. if. nextnodecurrentnode. then

  23. forward the packet to nextnode

  24. else carry the packet with currentnode

  25. end if