СОВРЕМЕННАЯ ЭЛЕКТРОНИКА 2010-5

ПРОЕКТИРОВАНИЕ И МОДЕЛИРОВАНИЕ 64 WWW.SOEL.RU СОВРЕМЕННАЯ ЭЛЕКТРОНИКА ◆ № 5 2010 угольника с выводами. Это УГОмож но отредактировать в Capture, чтобы оно соответствовало требованиям ГОСТ; ● этидвафайланадоскопироватьвката лог, где вы храните пользовательские библиотеки, и прописать к ним путь в конфигурации библиотек OrCAD. По сле этого вы можете использовать эту модельвовсехсвоихсхемныхпроектах. П РЕОБРАЗОВАНИЕ ВЫРАЖЕНИЙ ИЗ M APLE В PS PICE И ОБРАТНО Пусть имеется некоторое выражение в формате Maple. Если вы намерены использовать его для создания PSpice модели, то его нужно преобразовать в формат PSpice: >F:= `if`(5 < –15.00*sin(2*Pi*t), 5,`if`( 15.00*sin(2*Pi*t) < –5, –5, –15.00*sin(2*Pi*t))); Преобразуем выражение F в формат PSpice, воспользовавшись директивой convNET() пакета MSpice: > convNET(F,pspice); {IF(5 < –15.00*sin(2*Pi*time), 5, if( 15.00*sin(2*Pi*time) < –5, –5, –15.00*sin(2*Pi*time)))} Если вы детально исследуете чужую PSpice модель электронного прибо ра, то возникает задача исследова ния использованных в ней матема тических выражений. Для этого че рез буфер скопируем выражение PSpice в строку Maple. Можно при своить это выражение переменной, например, VALUE: >VALUE:= sin(SDT(V(4, 2))+V(3)*2*Pi*f*time)+5 E; Преобразуем выражение VALUE в формат Maple, воспользовавшись ди рективой convNET() пакета MSpice: > VALUE:= convNET(%,maple); Получаем: . Т РАНСЛЯЦИЯ УРАВНЕНИЙ К ИРХГОФА В M ATHEMATICA Mathematica – очень мощная систе ма, претендующая на роль лидера сре ди СКМ. Она имеет невероятно мощ нуюподдержку в Интернете с изобили ем примеров практически для любых задач. И если у вас есть наработки в этой системе, то MSpice позволит вам их использовать. Предположим, что вам требуется построить график АЧХ активного уз кополосного режекторного фильтра (рис. 2), построенного да базе двойно го Т моста. Пусть вам удалось скачать из Интернета шаблон для построения очень красивых графиков АЧХ, но в формате Mathematica. Поскольку па кет MSpice существует пока только для Maple, то возникает задача передачи уравнений из Maple в Mathematica. Так мы и поступим: уравнения Кирхгофа мы получим в Maple, затем передадим их в Mathematica и там решим. Получим систему уравнений Кирх гофа в Maple при мощи MSpice: > restart: with(MSpice): De vices:=[ [OP, DC1]]: ESolve(WOE,`OP PSpiceFiles/SCHE MATIC1 /SCHEMATIC1.net `); , VOUT = A 2( V 4 – VOUT ), V 3 = A 1( V 5 – V 3), , , , { VOUT , V 4, V 5, V 3, V 1, V 2}. Уравнения получены и находятся в рабочем листе Maple. При этом систе ме уравнений соответствует глобаль ная переменная с именем ODE, а спис ку неизвестных соответствует гло бальная переменная с именем ISc. Тогда для получения этих же уравне ний, но в формате Mathematica доста точно выполнить следующую дирек тиву MSpice: > convQma([ODE,ISc],mathematica); Получаем уравнения в формате Mathematica: ClearAll["Global`*"] {VOUT, V3, V5, V4, V1, V2}/ Solve[{(V2 – V4)/R2 – (V4 – V1)*s*C2==0, V5/R5 – (V5 – VOUT)/R4 == 0, V3 == A1*(V5 – V3), VOUT == A2*(V4 – VOUT), (V3 – V1)/R3 + (V4 – V1)*s*C2 – (V1 – Vвх)*s*C1 == 0, (Vвх – V2)/R1 – (V2 – V3)*s*C3 – (V2 – V4)/R2 = 0}, {VOUT, V3, V5, V4, V1, V2}]; {VOUT, V3, V5, V4, V1, V2} = %[[1]]; Теперь покажем решение этой зада чи в Mathematica: ClearAll["Global`*"] {VOUT, V3, V5, V4, V1, V2}/. Solve[{(V2 – V4)/R2 – (V4 – V1)*s*C2 == 0, V5/R5 – (V5 – VOUT)/R4 == 0, V3 == A1*(V5 – V3), VOUT == A2*(V4 – VOUT), (V3 – V1)/R3 + (V4 – V1)*s*C2 – (V1 – Vвх)*s*C1 == 0, (Vвх – V2)/R1 – (V2 – V3)*s*C3 – (V2 – V4)/R2 == 0}, {VOUT, V3, V5, V4, V1, V2}]; {VOUT, V3, V5, V4, V1, V2} = %[[1]]; A1 = A; A2 = A; C1 = Cp; C2 = Cp; C3 = 2*Cp; R1 = R; R2 = R; R3 = R/2; H = Simplify[VOUT/Vвх] OUT OPAMP R4 125 R5 9875 R3 7,95K 0 0 U2 OUT OPAMP U1 R2 15,9K R1 15,9K C2 10n C1 10n C3 20n 4 2 Out Inp Vвх 1Vac 1Vdc 3 2 5 Рис. 2. Схема фильтра ВАХ туннельного диода Vd, B 0 1 2 3 Id, мA 0 3 1 3 © СТА-ПРЕСС