Home
last modified time | relevance | path

Searched refs:lagrange (Results 1 – 25 of 623) sorted by relevance

12345678910>>...25

/dports/math/py-pyipopt/pyipopt-36bcb7f/examples/
H A Dhs071.py56 def eval_h(x, lagrange, obj_factor, flag, user_data = None): argument
73 values[1] += lagrange[0] * (x[2] * x[3])
75 values[3] += lagrange[0] * (x[1] * x[3])
76 values[4] += lagrange[0] * (x[0] * x[3])
78 values[6] += lagrange[0] * (x[1] * x[2])
79 values[7] += lagrange[0] * (x[0] * x[2])
80 values[8] += lagrange[0] * (x[0] * x[1])
81 values[0] += lagrange[1] * 2
82 values[2] += lagrange[1] * 2
83 values[5] += lagrange[1] * 2
[all …]
H A Dhs071_PY3.py56 def eval_h(x, lagrange, obj_factor, flag, user_data = None): argument
73 values[1] += lagrange[0] * (x[2] * x[3])
75 values[3] += lagrange[0] * (x[1] * x[3])
76 values[4] += lagrange[0] * (x[0] * x[3])
78 values[6] += lagrange[0] * (x[1] * x[2])
79 values[7] += lagrange[0] * (x[0] * x[2])
80 values[8] += lagrange[0] * (x[0] * x[1])
81 values[0] += lagrange[1] * 2
82 values[2] += lagrange[1] * 2
83 values[5] += lagrange[1] * 2
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/KS_Solvers/CG/
H A Drcgdiagg.f9047 REAL(DP), ALLOCATABLE :: lagrange(:) local
82 ALLOCATE( lagrange( nbnd ) )
110 lagrange = 0.d0
113 CALL mp_sum( lagrange( 1:m ), inter_bgrp_comm )
114 IF ( gstart == 2 ) lagrange(1:m) = lagrange(1:m) - psi(1,1:m) * spsi(1)
116 CALL mp_sum( lagrange( 1:m ), intra_bgrp_comm )
118 psi_norm = lagrange(m)
124 psi_norm = psi_norm - lagrange(j)**2
186 lagrange(1:m-1) = 0.d0
191 IF ( gstart == 2 ) lagrange(1:m-1) = lagrange(1:m-1) - psi(1,1:m-1) * scg(1)
[all …]
H A Dccgdiagg.f9051 COMPLEX(DP), ALLOCATABLE :: lagrange(:) local
94 ALLOCATE( lagrange( nbnd ) )
129 lagrange = ZERO
132 CALL mp_sum( lagrange( 1:m ), inter_bgrp_comm )
134 CALL mp_sum( lagrange( 1:m ), intra_bgrp_comm )
136 psi_norm = DBLE( lagrange(m) )
142 psi_norm = psi_norm - ( DBLE( lagrange(j) )**2 + AIMAG( lagrange(j) )**2 )
191 lagrange(1:m-1) = ZERO
201 g(:) = g(:) - lagrange(j) * psi(:,j)
202 scg(:) = scg(:) - lagrange(j) * psi(:,j)
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/
H A Dfstr_AddContactStiff.f9048 real(kind=kreal) :: lagrange local
66 lagrange = fstrMAT%Lagrange(id_lagrange)
99 real(kind=kreal) :: lagrange !< value of Lagrange multiplier local
122 if( lagrange>0.0d0 .or. iter==1 ) then
291 lagrange = fstrMAT%Lagrange(id_lagrange)
354 ctNForce(j) = lagrange*nTm(j)
359 if(fcoeff /= 0.0d0 .and. lagrange > 0.0d0)then
369 tf_final(1:3) = fcoeff*dabs(lagrange)*tangent(1:3)
412 tf_yield = fcoeff*dabs(lagrange)
444 if( lagrange < 0.d0 ) cycle
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/Gamma/
H A Dcgsolve.f9030 real(DP) :: lagrange(nbnd,nbnd) local
48 CALL calbec ( npw, evc, pu, lagrange )
50 CALL calbec ( npw, evc, u, lagrange )
53 CALL DPOTRS('U',nbnd,nbnd,overlap,nbndx,lagrange,nbnd,info)
57 2*npwx, lagrange, nbndx, 1.d0, u, 2*npwx)
105 CALL calbec ( npw, evc, pu, lagrange )
107 CALL calbec ( npw, evc, u, lagrange )
110 CALL DPOTRS('U',nbnd,nbnd,overlap,nbndx,lagrange,nbnd,info)
113 2*npwx, lagrange, nbndx, 1.d0, u, 2*npwx)
/dports/math/alberta/alberta3-920315ae1bbfd1b1fb6672d916619ac37a411e95/add_ons/albertasystems/AlbertaNum/Common/
H A Dest.cc81 const BAS_FCTS *lagrange= get_lagrange(mesh->dim,0); in init_err_dof_admin() local
82 est::const_fe_space = get_fe_space(mesh, lagrange->name, nil, lagrange, flag); in init_err_dof_admin()
92 const BAS_FCTS *lagrange= get_lagrange(0);
93 est::const_fe_space = get_fe_space(mesh, lagrange->name, nil, lagrange);
H A Dperiodic.c310 const BAS_FCTS *lagrange;
359 lagrange = get_lagrange(mesh->dim, degree);
360 TEST_EXIT(lagrange, "no lagrange BAS_FCTS\n");
361 fe_space = get_fe_space(mesh, lagrange->name,
362 NULL /* n_dof[] */, lagrange, ADM_PERIODIC);
406 lagrange->trace_bas_fcts->name,
408 lagrange->trace_bas_fcts, ADM_PERIODIC);
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/bse/
H A Dcgsolve.f9035 real(DP) :: lagrange(nbnd,nbnd) local
81 CALL calbec ( npw, evc, pu, lagrange )
83 CALL calbec ( npw, evc, u, lagrange )
86 CALL DPOTRS('U',nbnd,nbnd,overlap,nbndx,lagrange,nbnd,info)
90 2*npwx, lagrange, nbnd, 1.d0, u, 2*npwx)
139 CALL calbec ( npw, evc, pu, lagrange )
141 CALL calbec ( npw, evc, u, lagrange )
144 CALL DPOTRS('U',nbnd,nbnd,overlap,nbndx,lagrange,nbnd,info)
147 2*npwx, lagrange, nbndx, 1.d0, u, 2*npwx)
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/pw4gww/
H A Ddiago_cg.f9048 REAL (DP), ALLOCATABLE :: lagrange(:) local
86 ALLOCATE( lagrange( max_state) )
222 lagrange(:)=0.d0
225 call mp_sum(lagrange(1:m),world_comm)
229 psi_norm = lagrange(m)
235 psi_norm = psi_norm - lagrange(j)**2
306 lagrange(1:m-1)=0.d0
309 call mp_sum(lagrange(1:m-1),world_comm)
314 g(:) = g(:) - lagrange(j) * ovec(:,j)
315 scg(:) = scg(:) - lagrange(j) * ovec(:,j)
[all …]
H A Ddiago_cg_g.f9049 REAL (DP), ALLOCATABLE :: lagrange(:) local
87 ALLOCATE( lagrange( max_state) )
212 call mp_sum(lagrange(1:m),world_comm)
215 psi_norm = lagrange(m)
219 ovec(:,m) = ovec(:,m) - lagrange(j) * ovec(:,j)
221 psi_norm = psi_norm - lagrange(j)**2
279 ovec(nbegin:nend,1:m-1), nsize, scg(nbegin:nend), 1, 0.D0, lagrange, 1 )
281 call mp_sum(lagrange(1:m-1),world_comm)
286 g(:) = g(:) - lagrange(j) * ovec(:,j)
287 scg(:) = scg(:) - lagrange(j) * ovec(:,j)
[all …]
/dports/math/dune-functions/dune-functions-1882b3ec0a14b211dd077f0d5e6455495e28c35d/dune/functions/functionspacebases/test/
H A Dlagrangebasistest.cc53 auto basis = makeBasis(gridView, lagrange<3>()); in main()
75 auto basis = makeBasis(gridView, lagrange<3>()); in main()
80 auto basis = makeBasis(gridView, lagrange(2)); in main()
85 auto basis = makeBasis(gridView, lagrange<3,float>()); in main()
90 auto basis = makeBasis(gridView, lagrange<float>(2)); in main()
H A Dcompositebasistest.cc46 lagrange<1>(), in main()
47 lagrange<1>(), in main()
48 lagrange<1>() in main()
/dports/math/adol-c/ADOL-C-2.7.2/ADOL-C/src/drivers/
H A Ddriversf.c83 double* lagrange = myalloc1(m); in vec_jac_() local
85 spread1(m,flagrange,lagrange); in vec_jac_()
87 rc= vec_jac(tag,m,n,repeat,argument,lagrange, row); in vec_jac_()
90 myfree1(lagrange); in vec_jac_()
202 double *lagrange = myalloc1(m); in lagra_hess_vec_() local
206 spread1(m,flagrange,lagrange); in lagra_hess_vec_()
207 rc= lagra_hess_vec(tag,m,n,argument,tangent,lagrange,result); in lagra_hess_vec_()
211 myfree1(lagrange); in lagra_hess_vec_()
/dports/math/py-chaospy/chaospy-4.3.3/chaospy/expansion/
H A D__init__.py13 from .lagrange import lagrange
38 expansion_deprecation_warning("lagrange_polynomial", lagrange)
/dports/www/lagrange/lagrange-1.7.3/res/
H A Dlagrange.rc.in3 IDI_ICON1 ICON DISCARDABLE "${CMAKE_SOURCE_DIR}/res/lagrange.ico"
21 VALUE "InternalName", "fi.skyjake.lagrange\0"
23 VALUE "OriginalFilename", "lagrange.exe\0"
/dports/math/dune-functions/dune-functions-1882b3ec0a14b211dd077f0d5e6455495e28c35d/dune/functions/gridfunctions/test/
H A Ddiscreteglobalbasisfunctiontest.cc93 auto feBasis = makeBasis(gridView,lagrange<1>()); in main()
102 auto feBasis = makeBasis(gridView,lagrange<1>()); in main()
117 auto feBasis = makeBasis(gridView,power<2>(lagrange<2>())); in main()
137 lagrange<2>(), in main()
139 lagrange<1>(), in main()
214 auto feBasis = makeBasis(gridView,lagrange<1>()); in main()
/dports/math/openturns/openturns-1.18/python/test/
H A Dt_P1LagrangeEvaluation_std.py29 lagrange = ot.P1LagrangeEvaluation(sample) variable
35 y = lagrange(point)
37 index = lagrange.getEnclosingSimplexAlgorithm().query(point)
/dports/www/lagrange/lagrange-1.7.3/debian/
H A Dcontrol1 Source: lagrange
7 Homepage: https://gmi.skyjake.fi/lagrange/
9 Package: lagrange
/dports/math/dune-functions/dune-functions-1882b3ec0a14b211dd077f0d5e6455495e28c35d/examples/
H A Dinterpolation.cc71 lagrange<2>(), in main()
73 lagrange<1>(), in main()
130 lagrange<2>(), in main()
132 lagrange<1>() in main()
/dports/math/alberta/alberta3-920315ae1bbfd1b1fb6672d916619ac37a411e95/add_ons/albertasystems/Heat/Common/
H A Dnonlin.c69 const BAS_FCTS *lagrange; in init_dof_admin() local
75 lagrange = get_lagrange(degree); in init_dof_admin()
76 TEST_EXIT(lagrange)("no lagrange BAS_FCTS\n"); in init_dof_admin()
78 fe_space = get_fe_space(mesh, lagrange->name, nil, lagrange); in init_dof_admin()
/dports/math/alberta/alberta3-920315ae1bbfd1b1fb6672d916619ac37a411e95/demo/src/Common/
H A Dnonlin.c222 const BAS_FCTS *lagrange; in main() local
256 lagrange = get_lagrange(mesh->dim, degree); in main()
257 TEST_EXIT(lagrange, "no lagrange BAS_FCTS\n"); in main()
259 fe_space = get_fe_space(mesh, lagrange->name, lagrange, 1, ADM_FLAGS_DFLT); in main()
H A Dellipt-periodic.c706 const BAS_FCTS *lagrange; in main() local
755 lagrange = get_lagrange(mesh->dim, degree); in main()
756 TEST_EXIT(lagrange, "no lagrange BAS_FCTS\n"); in main()
757 fe_space = get_fe_space(mesh, lagrange->name, in main()
758 lagrange, 1, ADM_PERIODIC); in main()
771 lagrange = get_lagrange(mesh->dim, degree); in main()
772 TEST_EXIT(lagrange, "no lagrange BAS_FCTS\n"); in main()
773 fe_space = get_fe_space(mesh, lagrange->name, in main()
774 lagrange, 1, ADM_PERIODIC); in main()
818 lagrange->trace_bas_fcts->name, in main()
[all …]
/dports/math/dune-fem/dune-fem-d1c625e6d51167d0cce57de6adcef21f548a8f82/dune/fempy/test/
H A Dtest-tupledf.py5 from dune.fem.space import lagrange, combined, product
11 spc1 = lagrange(grid, dimRange=1, order=1)
12 spc2 = lagrange(grid, dimRange=1, order=2)
/dports/math/dune-pdelab/dune-pdelab-20c7085389d3eb4f8ca99e1bc60f7fa6036536c8/dune/pdelab/finiteelementmap/
H A Dqkdg.hh18 enum class QkDGBasisPolynomial { lagrange, legendre, lobatto, l2orthonormal}; enumerator
22 template<class D, class R, int k, int d, QkDGBasisPolynomial p = QkDGBasisPolynomial::lagrange>
37 class QkDGLocalFiniteElementMap<D,R,k,d,QkDGBasisPolynomial::lagrange>
68 return QkDGBasisPolynomial::lagrange; in polynomial()

12345678910>>...25