Merge pull request #780 from ra3xdh/779_fix

Fix Pac to match result from Ngspice and Qucsator
ra3xdh · Jun 23, 2024 · 1c83de6 · 1c83de6
2 parents 4929b41 + 0045892
commit 1c83de6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/qucs/components/source_ac.cpp b/qucs/components/source_ac.cpp
@@ -106,7 +106,7 @@ QString Source_ac::ngspice_netlist()
     double z0 = spicecompat::normalize_value(getProperty("Z")->Value).toDouble();
     double p = spicecompat::normalize_value(getProperty("P")->Value).toDouble();
     double vrms = sqrt(z0/1000.0)*pow(10, p/20.0);
-    double vamp = vrms*sqrt(2.0);
+    double vamp = 2.0*vrms*sqrt(2.0);
     QString f = spicecompat::normalize_value(getProperty("f")->Value);
 
     bool en_tran = true;
@@ -140,7 +140,7 @@ QString Source_ac::xyce_netlist()
     QString s_p = spicecompat::normalize_value(getProperty("P")->Value);
     double p = s_p.toDouble();
     double vrms = sqrt(z0/1000.0)*pow(10, p/20.0);
-    double vamp = vrms*sqrt(2.0);
+    double vamp = 2.0*vrms*sqrt(2.0);
 
     bool en_tran = true;
     if (getProperty("EnableTran")->Value == "true") {