Skip to content

Commit

Permalink
Fix #320 - QRM Station now has 2 to 6 second timeout delay
Browse files Browse the repository at this point in the history
- Previous code was creating QRM stations with ~0.1 second timeout.
- This timeout is the time between transmissions.
- timeout delay is now 2 to 6 seconds using a limited gaussian distribution
  • Loading branch information
w7sst committed Jun 9, 2024
1 parent 8ee5bd5 commit 36fe54e
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion QrmStn.pas
Original file line number Diff line number Diff line change
Expand Up @@ -58,7 +58,7 @@ procedure TQrmStation.ProcessEvent(AEvent: TStationEvent);
Dec(Patience);
if Patience = 0
then Free
else Timeout := Round(RndGaussLim(SecondsToBlocks(4), 2));
else Timeout := Round(RndGaussLim(SecondsToBlocks(4), SecondsToBlocks(2)));
end;
evTimeout:
SendMsg(msgLongCQ);
Expand Down

0 comments on commit 36fe54e

Please sign in to comment.