新しく発言する EXIT インデックスへ

合成抵抗の計算−ブリッジ回路

　　合成抵抗の計算−ブリッジ回路 山中和義 2008/08/10 11:46:01  (修正1回)
　　├別解（Δ-Y変換による） 山中和義 2008/08/10 11:49:37 
　　├合成抵抗の計算−ラダー回路 山中和義 2008/08/10 13:58:21 
　　├合成抵抗の計算-立方体状 山中和義 2008/08/13 10:06:41 
　　│└Ａ−Ｂ間、Ａ−Ｃ間の場合 山中和義 2008/08/13 10:11:27 
　　├!合成抵抗の計算-簡易回路図シミュレーショ... 山中和義 2008/08/14 14:42:47 
　　│└つづき 山中和義 2008/08/14 14:43:36 
　　│　└現状、トポロジーの処理（閉回路、節点）が... 山中和義 2008/08/14 14:51:37 
　　│　　└節点方程式を使用されては 島村1243 2008/08/16 07:15:46  (修正2回)
　　│　　　└これですね、シミュレータが計算しているの... 山中和義 2008/08/16 13:15:20  (修正1回)
　　│　　　　└つづき 山中和義 2008/08/16 13:16:16  (修正1回)
　　│　　　　　└出口の電位を０[V]にするには 島村1243 2008/08/16 22:33:58 
　　│　　　　　　└電流源を加味する部分を変更してください。 山中和義 2008/08/17 06:46:24 
　　│　　　　　　　└出来ました。 島村1243 2008/08/17 07:51:57  (修正1回)
　　│　　　　　　　　└試験問題チェック用に改造 島村1243 2008/08/17 17:17:27  (修正1回)
　　├!直流電気回路の計算-閉路電流法の行列解法 山中和義 2008/08/17 22:00:39  (修正1回)
　　│└電源が複数の場合 島村1243 2008/08/19 09:43:13 
　　│　└このように設定してください。 山中和義 2008/08/19 11:57:37 
　　│　　└正しい結果が出ました 島村1243 2008/08/19 14:16:20  (修正2回)
　　│　　　└行列計算の説明 山中和義 2008/08/19 17:54:10  (修正1回)
　　│　　　　├感謝します 島村1243 2008/08/19 18:12:30 
　　│　　　　└任意の抵抗辺に起電力も含む 島村1243 2008/08/20 10:54:20 
　　└電圧源を含む節点電位法 山中和義 2008/08/22 09:24:52
Re: 合成抵抗の計算−ブリッジ回路 返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/08/22 09:24:52
電圧源を含む節点電位法


!電気回路シミュレーション（節点電位法）

!・回路図のグラフ（節点、素子辺）を描く
!・各節点の電位を表示する
!・各素子への電流、電位を表示する

!OPTION ARITHMETIC RATIONAL !分数表示

LET xmax=5 !表示領域　※
LET ymax=5
SET WINDOW -1,xmax,-1,ymax
DRAW grid


SET TEXT background "opaque" !文字の表示属性
SET TEXT JUSTIFY "center","half"

SUB DisplayElement(el$,ev,nd1,nd2,dr$,ofs) !素子を表示する
LET x1=MOD(nd1,xmax) !起点位置
LET y1=INT((nd1)/ymax)
LET x2=MOD(nd2,xmax) !終点位置
LET y2=INT((nd2)/ymax)

IF UCASE$(dr$)="V" THEN !垂直線
LET xo=x1+ofs
PLOT LINES: x1,y1; xo,y1 !起点への足
PLOT LINES: xo,y2; x2,y2 !終点への足
PLOT LINES: xo,y1; xo,y2

LET xm=xo !中央へ
LET ym=(y1+y2)/2
PLOT TEXT, AT xm+0.05,ym: el$ !説明書き

DRAW disk WITH SCALE(0.05)*SHIFT(xo,(y1+2*y2)/3) !枝路電流の向き

ELSEIF UCASE$(dr$)="H" THEN !水平線
LET yo=y1+ofs
PLOT LINES: x1,y1; x1,yo !起点への足
PLOT LINES: x2,yo; x2,y2 !終点への足
PLOT LINES: x1,yo; x2,yo

LET xm=(x1+x2)/2 !中央へ
LET ym=yo
PLOT TEXT, AT xm,ym: el$ !説明書き

DRAW disk WITH SCALE(0.05)*SHIFT((x1+2*x2)/3,yo) !枝路電流の向き

ELSE !斜め線
PLOT LINES: x1,y1; x2,y2

LET xm=(x1+x2)/2 !中央へ
LET ym=(y1+y2)/2
PLOT TEXT, AT xm,ym: el$ !説明書き

DRAW disk WITH SCALE(0.05)*SHIFT((x1+2*x2)/3,(y1+2*y2)/3) !枝路電流の向き

END IF

DRAW circle WITH SCALE(0.13)*SHIFT(x1,y1) !端子
DRAW circle WITH SCALE(0.13)*SHIFT(x2,y2)
PLOT TEXT, AT x1,y1: STR$(nd1)
PLOT TEXT, AT x2,y2: STR$(nd2)
END SUB


!---------- ↓↓↓↓↓ ----------

!●回路図
!┌R1┬R3┐
!V4　R3　V5
!└─┴─┘

!素子: Rn,Vn,In、n:番号（連番）　※２文字目以降は番号
!値:
!端子番号（起点）: ０以上の値　※節点
!端子番号: ０以上の値　※節点
!方向: H（水平）、V（垂直）、以外は斜め
!位置: 起点からの引き出される足の長さ

LET N=4 !素子の数　※電圧源を除く
100 DATA R1,6,11,6,v,0 !6[Ω]、枝路電流は11→6と仮定する
DATA R2,12,11,12,x,0
DATA R3,8,12,6,v,1
DATA I4,9,6,11,v,-1 !9[A]、向き6→11

!※電圧源の番号は１からの連番
LET Ns=1 !電圧源の数
DATA V1,36,12,6,v,0 !36[V]、端子6:＋極

LET GND=6 !※アース

!---------- ↑↑↑↑↑ ----------

 
　　　└つづき 山中和義 2008/08/22 09:25:40 
　　　　└入力が簡単で使い易い 島村1243 2008/08/23 15:10:41

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。