koe_interleaver_right_size.mdl

两个Nokia研究人员写的W-CDMA的仿真代码。 包含信道编码

	      MaskPromptString	      "Intra frame interleaver mode|Bits in fr"
"ame|Number of frames |Number of Slots in a frame"
	      MaskStyleString	      "edit,edit,edit,edit"
	      MaskTunableValueString  "on,on,on,on"
	      MaskCallbackString      "|||"
	      MaskEnableString	      "on,on,on,on"
	      MaskVisibilityString    "on,on,on,on"
	      MaskVariables	      "Int_mode=@1;bits_in_frame=@2;nFrames=@3"
";nSlots=@4;"
	      MaskDisplay	      "disp('INTRA FRAME\\nINTERLEAVER\\n\\n\\"
"n1 - off \\n2 - onr');\ndisp(Int_mode)"
	      MaskIconFrame	      on
	      MaskIconOpaque	      on
	      MaskIconRotate	      "none"
	      MaskIconUnits	      "autoscale"
	      MaskValueString	      "Intra_int_flag|bits_in_frame|nFrames|nS"
"lot"
	    }
	    Block {
	      BlockType		      "S-Function"
	      Name		      "modulation"
	      Ports		      [1, 2, 0, 0, 0]
	      Position		      [575, 138, 670, 202]
	      ForegroundColor	      "blue"
	      FunctionName	      "s_dl_discmod"
	      Parameters	      "Ndisc,C,length(C),nSlot"
	      PortCounts	      "[]"
	      SFunctionModules	      "''"
	      MaskDescription	      "         DISCRETE MODULATION\n\nThe blo"
"ck performs discrete modulation to I and Q and spreading for downlink channel"
"s.\n\nThe block initialization is done in file utra.m to make sure that all t"
"he blocks get same block size (N), spreading code etc. This block calls the s"
"-function s_dl_discmod with arguments:\n\n1) nInputs -- the length of input v"
"ector  \n                 = N * K (coding ratio)  \n\n2) C -- the spreading c"
"ode"
	      MaskPromptString	      "sizes|code|Number of slots in frame"
	      MaskStyleString	      "edit,edit,edit"
	      MaskTunableValueString  "on,on,on"
	      MaskCallbackString      "||"
	      MaskEnableString	      "on,on,on"
	      MaskVisibilityString    "on,on,on"
	      MaskVariables	      "Ndisc=@1;C=@2;nSlot=@3;"
	      MaskDisplay	      "disp('DISCRETE\\n\\nMODULATION')\nport_"
"label('output',1,'I');\nport_label('output',2,'Q');"
	      MaskIconFrame	      on
	      MaskIconOpaque	      on
	      MaskIconRotate	      "none"
	      MaskIconUnits	      "autoscale"
	      MaskValueString	      "bits_in_frame/nSlot+sum(control)|C|nSlo"
"t"
	    }
	    Block {
	      BlockType		      Outport
	      Name		      "I"
	      Position		      [730, 148, 760, 162]
	      Port		      "1"
	      OutputWhenDisabled      "held"
	      InitialOutput	      "[]"
	    }
	    Block {
	      BlockType		      Outport
	      Name		      "Q"
	      Position		      [735, 178, 765, 192]
	      Port		      "2"
	      OutputWhenDisabled      "held"
	      InitialOutput	      "[]"
	    }
	    Line {
	      SrcBlock		      "modulation"
	      SrcPort		      2
	      DstBlock		      "Q"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "modulation"
	      SrcPort		      1
	      DstBlock		      "I"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "control_mux"
	      SrcPort		      1
	      DstBlock		      "modulation"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "inter_interleaving"
	      SrcPort		      1
	      DstBlock		      "intra_interleaving"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "intra_interleaving"
	      SrcPort		      1
	      DstBlock		      "control_mux"
	      DstPort		      2
	    }
	    Line {
	      SrcBlock		      " add control"
	      SrcPort		      1
	      Points		      [80, 0]
	      DstBlock		      "control_mux"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "bits"
	      SrcPort		      1
	      DstBlock		      "inter_interleaving"
	      DstPort		      1
	    }
	  }
	}
	Block {
	  BlockType		  "S-Function"
	  Name			  "inter_deinterleaving"
	  Ports			  [2, 2, 0, 0, 0]
	  Position		  [490, 304, 635, 391]
	  ForegroundColor	  "blue"
	  FunctionName		  "s_deinterleaver"
	  Parameters		  "bits_in_frame,cols,nFrames,Int_mode"
	  PortCounts		  "[]"
	  SFunctionModules	  "''"
	  MaskPromptString	  "Inter frame interleaver mode|Bits in frame|"
"Number of frames |Number of columns (for Block interleaver)"
	  MaskStyleString	  "edit,edit,edit,edit"
	  MaskTunableValueString  "on,on,on,on"
	  MaskCallbackString	  "|||"
	  MaskEnableString	  "on,on,on,on"
	  MaskVisibilityString	  "on,on,on,on"
	  MaskVariables		  "Int_mode=@1;bits_in_frame=@2;nFrames=@3;col"
"s=@4;"
	  MaskDisplay		  "disp('INTER FRAME\\nDEINTERLEAVER\\n\\n\\n1"
" - Block interleaver\\n2 - Multistage interleaver');\ndisp(Int_mode)"
	  MaskIconFrame		  on
	  MaskIconOpaque	  on
	  MaskIconRotate	  "none"
	  MaskIconUnits		  "autoscale"
	  MaskValueString	  "Inter_int_mode|bits_in_frame|nFrames|cols"
	}
	Block {
	  BlockType		  "S-Function"
	  Name			  "inter_interleaving"
	  Ports			  [1, 1, 0, 0, 0]
	  Position		  [195, 310, 340, 410]
	  ForegroundColor	  "blue"
	  FunctionName		  "s_interleaver"
	  Parameters		  "bits_in_frame,cols,nFrames,Int_mode"
	  PortCounts		  "[]"
	  SFunctionModules	  "''"
	  MaskDescription	  "         INTRA FRAME INTERLEAVER\n\nThis bl"
"ock performs the intra frame interleaver if the the Intra_int_flag is set on "
"in the upper level in the block parameter box of the subsystem. \n\nBlock int"
"erleaving is called with s-function s_interleaving. The parameters for this f"
"unction are inherited from subsystem parameter box and it's initialization. s"
"ee dl_start.m"
	  MaskPromptString	  "Inter frame interleaver mode|Bits in frame|"
"Number of frames |Number of columns (for Block interleaver)"
	  MaskStyleString	  "edit,edit,edit,edit"
	  MaskTunableValueString  "on,on,on,on"
	  MaskCallbackString	  "|||"
	  MaskEnableString	  "on,on,on,on"
	  MaskVisibilityString	  "on,on,on,on"
	  MaskVariables		  "Int_mode=@1;bits_in_frame=@2;nFrames=@3;col"
"s=@4;"
	  MaskInitialization	  "N_inter_int = bits_in_frame; %input block s"
"ize for interleaver"
	  MaskDisplay		  "disp('INTER FRAME\\nINTERLEAVER\\n\\n\\n1 -"
" Block interleaver\\n2 - Multistage interleaver');\ndisp(Int_mode)"
	  MaskIconFrame		  on
	  MaskIconOpaque	  on
	  MaskIconRotate	  "none"
	  MaskIconUnits		  "autoscale"
	  MaskValueString	  "Inter_int_mode|bits_in_frame|nFrames|cols"
	}
	Block {
	  BlockType		  "S-Function"
	  Name			  "intra_deinterleaving"
	  Ports			  [2, 2, 0, 0, 0]
	  Position		  [580, 145, 725, 245]
	  ForegroundColor	  "blue"
	  FunctionName		  "s_intra_deinterleaver"
	  Parameters		  "bits_in_frame,Int_mode,nFrames"
	  PortCounts		  "[]"
	  SFunctionModules	  "''"
	  MaskPromptString	  "Intra frame interleaver mode|Bits in frame|"
"Number of frames "
	  MaskStyleString	  "edit,edit,edit"
	  MaskTunableValueString  "on,on,on"
	  MaskCallbackString	  "||"
	  MaskEnableString	  "on,on,on"
	  MaskVisibilityString	  "on,on,on"
	  MaskVariables		  "Int_mode=@1;bits_in_frame=@2;nFrames=@3;"
	  MaskDisplay		  "disp('INTRA FRAME\\nDEINTERLEAVER\\n\\n\\n1"
" - off \\n2 - onr');\ndisp(Int_mode)"
	  MaskIconFrame		  on
	  MaskIconOpaque	  on
	  MaskIconRotate	  "none"
	  MaskIconUnits		  "autoscale"
	  MaskValueString	  "Intra_int_flag|bits_in_frame|nFrames"
	}
	Block {
	  BlockType		  "S-Function"
	  Name			  "intra_interleaving"
	  Ports			  [1, 1, 0, 0, 0]
	  Position		  [205, 133, 355, 257]
	  ForegroundColor	  "blue"
	  FunctionName		  "s_intra_interleaver"
	  Parameters		  "bits_in_frame,Int_mode,nFrames,nSlots"
	  PortCounts		  "[]"
	  SFunctionModules	  "''"
	  MaskDescription	  "         INTRA FRAME INTERLEAVER\n\nThis bl"
"ock performs the intra frame interleaver if the the Intra_int_flag is set on "
"in the upper level in the block parameter box of the subsystem. \n\nBlock int"
"erleaving is called with s-function s_interleaving. The parameters for this f"
"unction are inherited from subsystem parameter box and it's initialization. s"
"ee dl_start.m"
	  MaskPromptString	  "Intra frame interleaver mode|Bits in frame|"
"Number of frames |Number of Slots in a frame"
	  MaskStyleString	  "edit,edit,edit,edit"
	  MaskTunableValueString  "on,on,on,on"
	  MaskCallbackString	  "|||"
	  MaskEnableString	  "on,on,on,on"
	  MaskVisibilityString	  "on,on,on,on"
	  MaskVariables		  "Int_mode=@1;bits_in_frame=@2;nFrames=@3;nSl"
"ots=@4;"
	  MaskDisplay		  "disp('INTRA FRAME\\nINTERLEAVER\\n\\n\\n1 -"
" off \\n2 - onr');\ndisp(Int_mode)"
	  MaskIconFrame		  on
	  MaskIconOpaque	  on
	  MaskIconRotate	  "none"
	  MaskIconUnits		  "autoscale"
	  MaskValueString	  "Intra_int_flag|bits_in_frame|nFrames|nSlot"
	}
	Line {
	  SrcBlock		  "Buffer"
	  SrcPort		  2
	  Points		  [15, 0]
	  DstBlock		  "intra_deinterleaving"
	  DstPort		  2
	}
	Line {
	  SrcBlock		  "Width"
	  SrcPort		  1
	  Points		  [10, 0]
	  DstBlock		  "Buffer"
	  DstPort		  2
	}
	Line {
	  SrcBlock		  "Buffer"
	  SrcPort		  1
	  DstBlock		  "intra_deinterleaving"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "intra_interleaving"
	  SrcPort		  1
	  Points		  [20, 0]
	  Branch {
	    DstBlock		    "Width"
	    DstPort		    1
	  }
	  Branch {
	    Points		    [60, 0]
	    DstBlock		    "Buffer"
	    DstPort		    1
	  }
	}
	Line {
	  SrcBlock		  "inter_interleaving"
	  SrcPort		  1
	  Points		  [30, 0; 0, -35]
	  DstBlock		  "inter_deinterleaving"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "Constant12"
	  SrcPort		  1
	  DstBlock		  "inter_deinterleaving"
	  DstPort		  2
	}
	Line {
	  SrcBlock		  "data source 01 ..10"
	  SrcPort		  1
	  Points		  [15, 0]
	  Branch {
	    Points		    [0, 160; 20, 0]
	    Branch {
	      Points		      [5, 0]
	      DstBlock		      "inter_interleaving"
	      DstPort		      1
	    }
	    Branch {
	      Points		      [0, 185; 45, 0]
	      Branch {
		DstBlock		"Direct ber calculation"
		DstPort			1
	      }
	      Branch {
		Points			[290, 0]
		DstBlock		"Delayed ber calculation"
		DstPort			1
	      }
	    }
	  }
	  Branch {
	    Points		    [35, 0]
	    DstBlock		    "intra_interleaving"
	    DstPort		    1
	  }
	  Branch {
	    Points		    [0, -115]
	    DstBlock		    "dl_TX_modulation"
	    DstPort		    1
	  }
	}
	Line {
	  SrcBlock		  "inter_deinterleaving"
	  SrcPort		  1
	  Points		  [20, 0]
	  Branch {
	    Points		    [80, 0]
	    DstBlock		    "Display5"
	    DstPort		    1
	  }
	  Branch {
	    Points		    [0, 225]
	    DstBlock		    "Direct ber calculation"
	    DstPort		    2
	  }
	}
	Line {
	  SrcBlock		  "intra_deinterleaving"
	  SrcPort		  1
	  Points		  [15, 0]
	  Branch {
	    Points		    [95, 0]
	    DstBlock		    "Display4"
	    DstPort		    1
	  }
	  Branch {
	    Points		    [0, 400]
	    DstBlock		    "Delayed ber calculation"
	    DstPort		    2
	  }
	}
	Line {
	  SrcBlock		  "Delayed ber calculation"
	  SrcPort		  1
	  Points		  [0, 40]
	  DstBlock		  "Display6"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "Direct ber calculation"
	  SrcPort		  1
	  Points		  [0, 40]
	  DstBlock		  "Display7"
	  DstPort		  1
	}
      }
    }
  }
}