c10mfode1.mdl

来自「高等引用数学的matlab求解的配套程序」· MDL 代码 · 共 796 行 · 第 1/2 页

"	if gam>0, str=[str, 'Der  s^' num2str(gam) ];\n	else, str=[str"
", 'Int  s^{' num2str(gam) '}']; end\nelse, str=[str, 'Der  s^gam']; end"
      MaskDisplay	      "disp(str)"
      MaskIconFrame	      on
      MaskIconOpaque	      on
      MaskIconRotate	      "none"
      MaskIconUnits	      "autoscale"
      MaskValueString	      "0.8|ww|4"
      System {
	Name			"Fractional DD1"
	Location		[410, 433, 794, 614]
	Open			off
	ModelBrowserVisibility	off
	ModelBrowserWidth	200
	ScreenColor		"white"
	PaperOrientation	"landscape"
	PaperPositionMode	"auto"
	PaperType		"A4"
	PaperUnits		"centimeters"
	ZoomFactor		"100"
	Block {
	  BlockType		  Inport
	  Name			  "In1"
	  Position		  [15, 38, 45, 52]
	}
	Block {
	  BlockType		  TransferFcn
	  Name			  "Transfer Fcn"
	  Position		  [80, 27, 140, 63]
	  Numerator		  "num"
	  Denominator		  "den"
	}
	Block {
	  BlockType		  TransferFcn
	  Name			  "Transfer Fcn1"
	  Position		  [160, 25, 250, 65]
	  Numerator		  "1"
	  Denominator		  "[T 1]"
	}
	Block {
	  BlockType		  Outport
	  Name			  "Out1"
	  Position		  [280, 38, 310, 52]
	}
	Line {
	  SrcBlock		  "Transfer Fcn1"
	  SrcPort		  1
	  DstBlock		  "Out1"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "Transfer Fcn"
	  SrcPort		  1
	  DstBlock		  "Transfer Fcn1"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "In1"
	  SrcPort		  1
	  DstBlock		  "Transfer Fcn"
	  DstPort		  1
	}
      }
    }
    Block {
      BlockType		      SubSystem
      Name		      "Fractional DD2"
      Ports		      [1, 1]
      Position		      [160, 253, 240, 297]
      ShowName		      off
      TreatAsAtomicUnit	      off
      MaskPromptString	      "Derivative order gamma|Frequency range [wb,wh]|"
"Apprixmation order"
      MaskStyleString	      "edit,edit,edit"
      MaskTunableValueString  "on,on,on"
      MaskCallbackString      "||"
      MaskEnableString	      "on,on,on"
      MaskVisibilityString    "on,on,on"
      MaskToolTipString	      "on,on,on"
      MaskVarAliasString      ",,"
      MaskVariables	      "gam=@1;ww=@2;n=@3;"
      MaskInitialization      "wb=ww(1); wh=ww(2); G=ousta_fod(gam,n,wb,wh);\n"
"num=G.num{1}; den=G.den{1}; T=1/wh; str='Fractional\\n';\nif isnumeric(gam)\n"
"	if gam>0, str=[str, 'Der  s^' num2str(gam) ];\n	else, str=[str"
", 'Int  s^{' num2str(gam) '}']; end\nelse, str=[str, 'Der  s^gam']; end"
      MaskDisplay	      "disp(str)"
      MaskIconFrame	      on
      MaskIconOpaque	      on
      MaskIconRotate	      "none"
      MaskIconUnits	      "autoscale"
      MaskValueString	      "0.7|ww|4"
      System {
	Name			"Fractional DD2"
	Location		[410, 433, 794, 614]
	Open			off
	ModelBrowserVisibility	off
	ModelBrowserWidth	200
	ScreenColor		"white"
	PaperOrientation	"landscape"
	PaperPositionMode	"auto"
	PaperType		"A4"
	PaperUnits		"centimeters"
	ZoomFactor		"100"
	Block {
	  BlockType		  Inport
	  Name			  "In1"
	  Position		  [15, 38, 45, 52]
	}
	Block {
	  BlockType		  TransferFcn
	  Name			  "Transfer Fcn"
	  Position		  [80, 27, 140, 63]
	  Numerator		  "num"
	  Denominator		  "den"
	}
	Block {
	  BlockType		  TransferFcn
	  Name			  "Transfer Fcn1"
	  Position		  [160, 25, 250, 65]
	  Numerator		  "1"
	  Denominator		  "[T 1]"
	}
	Block {
	  BlockType		  Outport
	  Name			  "Out1"
	  Position		  [280, 38, 310, 52]
	}
	Line {
	  SrcBlock		  "Transfer Fcn1"
	  SrcPort		  1
	  DstBlock		  "Out1"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "Transfer Fcn"
	  SrcPort		  1
	  DstBlock		  "Transfer Fcn1"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "In1"
	  SrcPort		  1
	  DstBlock		  "Transfer Fcn"
	  DstPort		  1
	}
      }
    }
    Block {
      BlockType		      SubSystem
      Name		      "Fractional DD3"
      Ports		      [1, 1]
      Position		      [470, 53, 550, 97]
      ShowName		      off
      TreatAsAtomicUnit	      off
      MaskPromptString	      "Derivative order gamma|Frequency range [wb,wh]|"
"Apprixmation order"
      MaskStyleString	      "edit,edit,edit"
      MaskTunableValueString  "on,on,on"
      MaskCallbackString      "||"
      MaskEnableString	      "on,on,on"
      MaskVisibilityString    "on,on,on"
      MaskToolTipString	      "on,on,on"
      MaskVarAliasString      ",,"
      MaskVariables	      "gam=@1;ww=@2;n=@3;"
      MaskInitialization      "wb=ww(1); wh=ww(2); G=ousta_fod(gam,n,wb,wh);\n"
"num=G.num{1}; den=G.den{1}; T=1/wh; str='Fractional\\n';\nif isnumeric(gam)\n"
"	if gam>0, str=[str, 'Der  s^' num2str(gam) ];\n	else, str=[str"
", 'Int  s^{' num2str(gam) '}']; end\nelse, str=[str, 'Der  s^gam']; end"
      MaskDisplay	      "disp(str)"
      MaskIconFrame	      on
      MaskIconOpaque	      on
      MaskIconRotate	      "none"
      MaskIconUnits	      "autoscale"
      MaskValueString	      "-0.5|ww|4"
      System {
	Name			"Fractional DD3"
	Location		[410, 433, 794, 614]
	Open			off
	ModelBrowserVisibility	off
	ModelBrowserWidth	200
	ScreenColor		"white"
	PaperOrientation	"landscape"
	PaperPositionMode	"auto"
	PaperType		"A4"
	PaperUnits		"centimeters"
	ZoomFactor		"100"
	Block {
	  BlockType		  Inport
	  Name			  "In1"
	  Position		  [15, 38, 45, 52]
	}
	Block {
	  BlockType		  TransferFcn
	  Name			  "Transfer Fcn"
	  Position		  [80, 27, 140, 63]
	  Numerator		  "num"
	  Denominator		  "den"
	}
	Block {
	  BlockType		  TransferFcn
	  Name			  "Transfer Fcn1"
	  Position		  [160, 25, 250, 65]
	  Numerator		  "1"
	  Denominator		  "[T 1]"
	}
	Block {
	  BlockType		  Outport
	  Name			  "Out1"
	  Position		  [280, 38, 310, 52]
	}
	Line {
	  SrcBlock		  "In1"
	  SrcPort		  1
	  DstBlock		  "Transfer Fcn"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "Transfer Fcn"
	  SrcPort		  1
	  DstBlock		  "Transfer Fcn1"
	  DstPort		  1
	}
	Line {
	  SrcBlock		  "Transfer Fcn1"
	  SrcPort		  1
	  DstBlock		  "Out1"
	  DstPort		  1
	}
      }
    }
    Block {
      BlockType		      Gain
      Name		      "Gain"
      Position		      [275, 140, 305, 170]
      Gain		      "8"
    }
    Block {
      BlockType		      Gain
      Name		      "Gain1"
      Position		      [270, 200, 300, 230]
      Gain		      "26"
    }
    Block {
      BlockType		      Gain
      Name		      "Gain2"
      Position		      [270, 260, 300, 290]
      Gain		      "73"
    }
    Block {
      BlockType		      Gain
      Name		      "Gain4"
      Position		      [395, 61, 440, 89]
      Gain		      "1/90"
    }
    Block {
      BlockType		      Sum
      Name		      "Sum"
      Ports		      [5, 1]
      Position		      [355, 45, 380, 105]
      ShowName		      off
      Inputs		      "+----"
      InputSameDT	      off
      OutDataTypeMode	      "Inherit via internal rule"
    }
    Block {
      BlockType		      Outport
      Name		      "Out1"
      Position		      [570, 68, 600, 82]
    }
    Line {
      SrcBlock		      "Derivative"
      SrcPort		      1
      Points		      [0, 0; 15, 0]
      Branch {
	DstBlock		"Derivative1"
	DstPort			1
      }
      Branch {
	Points			[0, 120]
	DstBlock		"Fractional DD1"
	DstPort			1
      }
    }
    Line {
      SrcBlock		      "Derivative1"
      SrcPort		      1
      Points		      [0, 0; 10, 0]
      Branch {
	DstBlock		"Derivative2"
	DstPort			1
      }
      Branch {
	Points			[0, 60]
	DstBlock		"Fractional DD"
	DstPort			1
      }
    }
    Line {
      SrcBlock		      "Fractional DD"
      SrcPort		      1
      DstBlock		      "Gain"
      DstPort		      1
    }
    Line {
      SrcBlock		      "Gain"
      SrcPort		      1
      Points		      [10, 0; 0, -80]
      DstBlock		      "Sum"
      DstPort		      3
    }
    Line {
      SrcBlock		      "Gain1"
      SrcPort		      1
      Points		      [25, 0; 0, -130]
      DstBlock		      "Sum"
      DstPort		      4
    }
    Line {
      SrcBlock		      "Gain2"
      SrcPort		      1
      Points		      [35, 0]
      DstBlock		      "Sum"
      DstPort		      5
    }
    Line {
      SrcBlock		      "Sum"
      SrcPort		      1
      DstBlock		      "Gain4"
      DstPort		      1
    }
    Line {
      SrcBlock		      "Gain4"
      SrcPort		      1
      Points		      [5, 0]
      Branch {
	Points			[0, 0; 0, -45; -425, 0; 0, 65]
	Branch {
	  DstBlock		  "Derivative"
	  DstPort		  1
	}
	Branch {
	  Points		  [0, 180]
	  DstBlock		  "Fractional DD2"
	  DstPort		  1
	}
      }
      Branch {
	DstBlock		"Fractional DD3"
	DstPort			1
      }
    }
    Line {
      SrcBlock		      "Clock"
      SrcPort		      1
      DstBlock		      "Fcn"
      DstPort		      1
    }
    Line {
      SrcBlock		      "Fcn"
      SrcPort		      1
      DstBlock		      "Sum"
      DstPort		      1
    }
    Line {
      SrcBlock		      "Derivative2"
      SrcPort		      1
      Points		      [75, 0; 0, -30]
      DstBlock		      "Sum"
      DstPort		      2
    }
    Line {
      SrcBlock		      "Fractional DD1"
      SrcPort		      1
      DstBlock		      "Gain1"
      DstPort		      1
    }
    Line {
      SrcBlock		      "Fractional DD2"
      SrcPort		      1
      DstBlock		      "Gain2"
      DstPort		      1
    }
    Line {
      SrcBlock		      "Fractional DD3"
      SrcPort		      1
      DstBlock		      "Out1"
      DstPort		      1
    }
    Annotation {
      Name		      "c10mfode1.mdl"
      Position		      [495, 150]
      FontName		      "Arial"
      FontSize		      14
      FontWeight	      "bold"
    }
  }
}