koe_interleaver_right_size.mdl

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

	      SignalType	      "auto"
	      Interpolate	      on
	    }
	    Block {
	      BlockType		      Inport
	      Name		      "Q - length"
	      Position		      [705, 200, 735, 210]
	      Orientation	      "left"
	      NamePlacement	      "alternate"
	      Port		      "4"
	      PortWidth		      "-1"
	      SampleTime	      "-1"
	      DataType		      "auto"
	      SignalType	      "auto"
	      Interpolate	      on
	    }
	    Block {
	      BlockType		      "S-Function"
	      Name		      "demodulation"
	      Ports		      [4, 2, 0, 0, 0]
	      Position		      [480, 78, 645, 227]
	      Orientation	      "left"
	      ForegroundColor	      "blue"
	      NamePlacement	      "alternate"
	      FontName		      "helvetica"
	      FunctionName	      "s_dl_demod_buffer"
	      Parameters	      "nBuff_in,nBuff_out,nControl,nSlot"
	      PortCounts	      "[]"
	      SFunctionModules	      "''"
	      MaskDescription	      "Input sample time is one slot. \nOutput"
" sample time is one frame.\n"
	      MaskPromptString	      "Input size|Output size|Number of Slots "
"in a frame|Number of control chips to be removed"
	      MaskStyleString	      "edit,edit,edit,edit"
	      MaskTunableValueString  "on,on,on,on"
	      MaskCallbackString      "|||"
	      MaskEnableString	      "on,on,on,on"
	      MaskVisibilityString    "on,on,on,on"
	      MaskVariables	      "nBuff_in=@1;nBuff_out=@2;nSlot=@3;nCont"
"rol=@4;"
	      MaskInitialization      "%nBuff=bits_in_frame/nSlot+nControl;"
	      MaskDisplay	      "disp('DISCRET\\nDEMODULATION \\n\\nREMO"
"VING OF\\nCONTROL BITS\\n\\nBUFFERING') \nport_label('input',1,'I');\nport_la"
"bel('input',3,'Q');\nport_label('output',2,'flag');"
	      MaskIconFrame	      on
	      MaskIconOpaque	      on
	      MaskIconRotate	      "none"
	      MaskIconUnits	      "autoscale"
	      MaskValueString	      "bits_in_frame/nSlot + TPC+TFI|bits_in_f"
"rame|nSlot|TPC+TFI"
	    }
	    Block {
	      BlockType		      "S-Function"
	      Name		      "inter_deinterleaving"
	      Ports		      [2, 2, 0, 0, 0]
	      Position		      [95, 75, 235, 230]
	      Orientation	      "left"
	      ForegroundColor	      "blue"
	      NamePlacement	      "alternate"
	      FunctionName	      "s_deinterleaver"
	      Parameters	      "bits_in_frame,cols,nFrames,Int_mode"
	      PortCounts	      "[]"
	      SFunctionModules	      "''"
	      MaskPromptString	      "Inter frame interleaver mode|Bits in fr"
"ame|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"
";cols=@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|co"
"ls"
	    }
	    Block {
	      BlockType		      "S-Function"
	      Name		      "intra_deinterleaving"
	      Ports		      [2, 2, 0, 0, 0]
	      Position		      [290, 75, 445, 230]
	      Orientation	      "left"
	      ForegroundColor	      "blue"
	      NamePlacement	      "alternate"
	      FunctionName	      "s_intra_deinterleaver"
	      Parameters	      "bits_in_frame,Int_mode,nFrames"
	      PortCounts	      "[]"
	      SFunctionModules	      "''"
	      MaskPromptString	      "Intra frame interleaver mode|Bits in fr"
"ame|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		      Outport
	      Name		      "data bits"
	      Position		      [15, 110, 45, 120]
	      Orientation	      "left"
	      NamePlacement	      "alternate"
	      Port		      "1"
	      OutputWhenDisabled      "held"
	      InitialOutput	      "[]"
	    }
	    Block {
	      BlockType		      Outport
	      Name		      "flag"
	      Position		      [15, 185, 45, 195]
	      Orientation	      "left"
	      NamePlacement	      "alternate"
	      Port		      "2"
	      OutputWhenDisabled      "held"
	      InitialOutput	      "[]"
	    }
	    Line {
	      SrcBlock		      "inter_deinterleaving"
	      SrcPort		      2
	      DstBlock		      "flag"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "inter_deinterleaving"
	      SrcPort		      1
	      DstBlock		      "data bits"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "intra_deinterleaving"
	      SrcPort		      1
	      DstBlock		      "inter_deinterleaving"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "intra_deinterleaving"
	      SrcPort		      2
	      DstBlock		      "inter_deinterleaving"
	      DstPort		      2
	    }
	    Line {
	      SrcBlock		      "I"
	      SrcPort		      1
	      DstBlock		      "demodulation"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "I - length"
	      SrcPort		      1
	      DstBlock		      "demodulation"
	      DstPort		      2
	    }
	    Line {
	      SrcBlock		      "Q"
	      SrcPort		      1
	      DstBlock		      "demodulation"
	      DstPort		      3
	    }
	    Line {
	      SrcBlock		      "Q - length"
	      SrcPort		      1
	      DstBlock		      "demodulation"
	      DstPort		      4
	    }
	    Line {
	      SrcBlock		      "demodulation"
	      SrcPort		      1
	      DstBlock		      "intra_deinterleaving"
	      DstPort		      1
	    }
	    Line {
	      SrcBlock		      "demodulation"
	      SrcPort		      2
	      DstBlock		      "intra_deinterleaving"
	      DstPort		      2
	    }
	  }
	}
	Block {
	  BlockType		  SubSystem
	  Name			  "dl_TX_modulation"
	  Ports			  [1, 2, 0, 0, 0]
	  Position		  [195, 15, 385, 135]
	  ShowPortLabels	  on
	  MaskPromptString	  "Control bits|size vector|code|Inter frame i"
"nterleaver mode|Number of columns for interleaver and rows for deinterleaver|"
"Intra frame interleaver (on of off)"
	  MaskStyleString	  "edit,edit,edit,edit,edit,edit"
	  MaskTunableValueString  "on,on,on,on,on,on"
	  MaskCallbackString	  "|||||"
	  MaskEnableString	  "on,on,on,on,on,on"
	  MaskVisibilityString	  "on,on,on,on,on,on"
	  MaskVariables		  "control=@1;sizes=@2;C=@3;Inter_int_mode=@4;"
"cols=@5;Intra_int_flag=@6;"
	  MaskInitialization	  "bits_in_frame=sizes(2);nFrames=sizes(3);nSl"
"ot=sizes(5);\nnPilot=control(1);TPC=control(2);TFI=control(3);"
	  MaskDisplay		  "disp('INTERLEAVING\\nADDING CONTROL BITS\\n"
"DICRETE MODULATION\\nSPREADING\\nDownlink')"
	  MaskIconFrame		  on
	  MaskIconOpaque	  on
	  MaskIconRotate	  "none"
	  MaskIconUnits		  "autoscale"
	  MaskValueString	  "control|sizes|C|Inter_int_mode|cols|Intra_i"
"nt_flag"
	  System {
	    Name		    "dl_TX_modulation"
	    Location		    [395, 547, 1231, 901]
	    Open		    on
	    ModelBrowserVisibility  off
	    ModelBrowserWidth	    200
	    ScreenColor		    "white"
	    PaperOrientation	    "landscape"
	    PaperPositionMode	    "auto"
	    PaperType		    "usletter"
	    PaperUnits		    "inches"
	    ZoomFactor		    "100"
	    AutoZoom		    on
	    Block {
	      BlockType		      Inport
	      Name		      "bits"
	      Position		      [25, 193, 55, 207]
	      Port		      "1"
	      PortWidth		      "-1"
	      SampleTime	      "-1"
	      DataType		      "auto"
	      SignalType	      "auto"
	      Interpolate	      on
	    }
	    Block {
	      BlockType		      SubSystem
	      Name		      " add control"
	      Ports		      [0, 1, 0, 0, 0]
	      Position		      [280, 22, 395, 98]
	      FontName		      "helvetica"
	      FontSize		      12
	      ShowPortLabels	      on
	      MaskPromptString	      "Number of Pilot bits|Number of Power Co"
"ntrol bits|Number of TFI bits"
	      MaskStyleString	      "edit,edit,edit"
	      MaskTunableValueString  "on,on,on"
	      MaskCallbackString      "||"
	      MaskEnableString	      "on,on,on"
	      MaskVisibilityString    "on,on,on"
	      MaskVariables	      "nPilot=@1;nPower=@2;nTFI=@3;"
	      MaskInitialization      "nBits=nPilot+nPower+nTFI;"
	      MaskDisplay	      "disp('Add control bits:\\nPilot\\nPower"
" Control\\nTFI');"
	      MaskIconFrame	      on
	      MaskIconOpaque	      on
	      MaskIconRotate	      "none"
	      MaskIconUnits	      "autoscale"
	      MaskValueString	      "nPilot|TPC|TFI"
	      System {
		Name			" add control"
		Location		[530, 245, 896, 452]
		Open			off
		ModelBrowserVisibility	off
		ModelBrowserWidth	200
		ScreenColor		"white"
		PaperOrientation	"landscape"
		PaperPositionMode	"auto"
		PaperType		"usletter"
		PaperUnits		"inches"
		ZoomFactor		"100"
		AutoZoom		on
		Block {
		  BlockType		  Constant
		  Name			  "control bits"
		  Position		  [50, 55, 140, 85]
		  Value			  "0*(1:nBits)"
		}
		Block {
		  BlockType		  Outport
		  Name			  "Out1"
		  Position		  [190, 63, 220, 77]
		  ShowName		  off
		  Port			  "1"
		  OutputWhenDisabled	  "held"
		  InitialOutput		  "[]"
		}
		Line {
		  SrcBlock		  "control bits"
		  SrcPort		  1
		  DstBlock		  "Out1"
		  DstPort		  1
		}
	      }
	    }
	    Block {
	      BlockType		      Mux
	      Name		      "control_mux"
	      Ports		      [2, 1, 0, 0, 0]
	      Position		      [495, 103, 500, 232]
	      ShowName		      off
	      FontName		      "helvetica"
	      FontSize		      12
	      Inputs		      "2"
	      DisplayOption	      "bar"
	    }
	    Block {
	      BlockType		      "S-Function"
	      Name		      "inter_interleaving"
	      Ports		      [1, 1, 0, 0, 0]
	      Position		      [90, 150, 235, 250]
	      ForegroundColor	      "blue"
	      FunctionName	      "s_interleaver"
	      Parameters	      "bits_in_frame,cols,nFrames,Int_mode"
	      PortCounts	      "[]"
	      SFunctionModules	      "''"
	      MaskDescription	      "         INTRA FRAME INTERLEAVER\n\nThi"
"s block 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"
" interleaving is called with s-function s_interleaving. The parameters for th"
"is function are inherited from subsystem parameter box and it's initializatio"
"n. see dl_start.m"
	      MaskPromptString	      "Inter frame interleaver mode|Bits in fr"
"ame|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"
";cols=@4;"
	      MaskInitialization      "N_inter_int = bits_in_frame; %input blo"
"ck size 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|co"
"ls"
	    }
	    Block {
	      BlockType		      "S-Function"
	      Name		      "intra_interleaving"
	      Ports		      [1, 1, 0, 0, 0]
	      Position		      [280, 138, 430, 262]
	      ForegroundColor	      "blue"
	      FunctionName	      "s_intra_interleaver"
	      Parameters	      "bits_in_frame,Int_mode,nFrames,nSlots"
	      PortCounts	      "[]"
	      SFunctionModules	      "''"
	      MaskDescription	      "         INTRA FRAME INTERLEAVER\n\nThi"
"s block 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"
" interleaving is called with s-function s_interleaving. The parameters for th"
"is function are inherited from subsystem parameter box and it's initializatio"
"n. see dl_start.m"