西电协议分析与设计上机报告.docxVIP

西电协议分析与设计上机报告 协议分析与设计上机报告 7 proctype SENDER(chan InCh,OutCh) 8 { 9 byte SendData; 10 byte SendSeq; 11 byte ReceivedSeq; 12 SendData = MAXSEQ-1; 13 do 14 ::SendData = (SendData+1)%MAXSEQ; 15 again: if 16 ::OutCh!Msg(SendData,SendSeq) 17 ::OutCh!Err(0,0) 18 ::OutCh!Miss(0,0) 19 fi; 20 21 if 22 ::timeout - goto again 23 ::InCh?Miss(0,0) -goto again 24 ::InCh?Err(0,0) -goto again 25 ::InCh?Nak(ReceivedSeq,0) - 26 end1: goto again 27 ::InCh?Ack(ReceivedSeq,0) - 28 if 29 ::(ReceivedSeq == SendSeq) -goto progress 30 ::(ReceivedSeq != SendSeq) - 31 end2: goto again 32 fi 33 fi; 34 progress : SendSeq = 1 - SendSeq; 35 od; 36 } 37 38 proctype RECEIVER(chan InCh,OutCh) 39 { 40 byte ReceivedData; 41 byte ReceivedSeq; 42 byte ExpectedData; 43 byte ExpectedSeq; 44 45 do 46 :: InCh?Msg(ReceivedData,ReceivedSeq) - 47 if 48 ::(ReceivedSeq == ExpectedSeq) - 49 assert(ReceivedData == ExpectedData); 50 progress: ExpectedSeq = 1- ExpectedSeq; 51 ExpectedData = (ExpectedData + 1)%MAXSEQ; 52 if 53 ::OutCh!Miss(0,0) 54 ::OutCh!Ack(ReceivedSeq,0); 55 ::OutCh!Err(0,0); 56 ExpectedSeq = 1- ExpectedSeq; 57 ExpectedData = (ExpectedData + 4)%MAXSEQ; 58 fi 59 ::(ReceivedSeq!=ExpectedSeq) - 60 if 61 ::OutCh!Nak(ReceivedSeq,0); 62 ::OutCh!Err(0,0); 63 fi 64 fi 65 ::InCh?Err(0,0) - OutCh!Nak(ReceivedSeq,0); 66 ::InCh?Miss(0,0) - skip 67 od; 68 } 69 70 init 71 { 72 atomic 73 { 74 run SENDER(ReceiverToSender,SenderToReceiver); 75 run RECEIVER(SenderToReceiver,ReceiverToSender); 76 } 77 } 实验截图 一致性验证: 无进展循环验证 人为加入错误进行验证 6-6 AB协议 因为根据状态图，S3状态和S1状态一致，所以将S3状态与S1状态合并。在该过程中，一共有3种信号a,b,Err，所以我们定义mtype = {a,b,Err}。 然后定义两个信道，用于在发送方实体A和接收方实体B进行数据传输。 chan AtoB = [1] of {mtype,byte}; chan BtoA = [1] of {mtype,byte}; 主要过程为： 发送方处于S5状态，并发送报文a(0)（模拟出错用Err(0)），此时处于S4等待应答。 当接收方处于S4并接收到报文，如果是a(0)或者是a(1)则转向S1状态，并发送报文b(1)且转到S2状态；如果是Err(0)则转向S5状态，并发送报文b(0)且转到S4状态。 而发送方如果收到的应答是b(