- Code: Select all
lep:={}
lλ:={}
Request "nombre d'argument : ",n,0
For i,1,n
Request "épaisseur = ",e,0
Request "λ = ",λ,0
lep:=augment(lep,{e})
lλ:=augment(lλ,{λ})
EndFor
ça facilite les calculs après
lep:={}
lλ:={}
Request "nombre d'argument : ",n,0
For i,1,n
Request "épaisseur = ",e,0
Request "λ = ",λ,0
lep:=augment(lep,{e})
lλ:=augment(lλ,{λ})
EndFor
lep:={}
lλ:={}
Request "nombre d'argument : ",n,0
For i,1,n
Request "e"&string(i)&" = ",e,0
Request "λ"&string(i)&" = ",λ,0
lep:=augment(lep,{e})
lλ:=augment(lλ,{λ})
EndFor
sum(lep/lλ)
et le reste c'est facilecalcr:="R="&string(sri)&"+"&string(rse)
For i,1,n © il faut que n soit la dimension des listes lep et/ou lλ
calcr:=calcr&"+"&string(lep[i])&"/"&string(lλ[i])
EndFor
Text calcr © pour ne pas avoir des guillemets
Users browsing this forum: ClaudeBot [spider] and 3 guests