- Tech
- Solution linear equation
Linear equation </ title> <meta http-equiv = "content-type" content = "text / html; charSet = GB2312"> <style> input {border: 1px solid # 618fff Width: 40; overflow: Visible;} Button {border: 1px solid # 618fff; width: 60; overflow: visible; margin-left: 2; cursor: hand; font-size: 12; filter: progid: DxImageTransform.microsoft .Gradient (startcolorstr = '# 818ff', endcolorstr = '# 618fff', gradienttype = '0');} body {font-size: 12;} </ stop> </ head></p>
<p><Body> comes from: http://superdullwolf.cnzone.net/function.html <p id = "ppp"> </ p> <input id = "member" value = "3" /> <button οnclick = " VBS: make_n_members_function> Yuan once equation </ button> <button οnclick = "vbs: gogo"> Started </ button> <script language = "vbscript"> "***** Super big wolf *** *** 'Defined Matrix DIM Matrix () DIM HAVARESULT' Does Have HavareSult = TRUEMAKE_N_MEMBERS_FUNCTION 'Generate a N-yuan one equation, the default is 3 yuan</p>
<p>Sub make_n_members_function () '****** This process generates a N-element equation, coefficient random ***** Dim n if not isnumeric (Member.Value) Then Exit Sub' N must be digital if not cint (MEMBER .Value> 1 the EXIT SUB 'must be greater than 1 if not cint (Member.Value) <50 THEN EXIT SUB' must be less than 50 n = cint (cint (met (met (met (met (met (Member.Value) 'Defines N-yuan primary equations</p>
<p>DIM I, J, STR</p>
<p>Redim Matrix (n, n) DIM Quotiety 'factor str = "" "for i = 0 to n-1 for j = 0 to n-1 quotiety = rrr () Matrix (i, j) = quotiety str = str &" < Input value = '"& quotiety &"' name = 'l_ "& i 1 &" _ "& j 1 &"' /> "str = STR &" X "& J 1 IF j <> n- 1 THEN STR = STR & " " Else Quotiety = RRR () Matrix (i, j 1) = quotiety str = str & "=" str = str & "<input value = '" & quotiety & "' name = 'R_ "& i 1 &"' /> "& vbcrf end if next Next ppp.innerhtml = str over sub function rrr () 'is used to generate -9 to 9 and then integers Randomize RRR = CINT (RND * 18) -9nd Function Sub Gogo () Start calculation of DIM A (), B (), N n = ubound (matrix) 'N is the dimension Redim A (N, N) Redim B (n) DIM Tempstr For Each Arritem in PPP.GETELEMENTSBYTAGNAME ("INPUT") Tempstr = arritem.name if (Left (Tempstr, 1)) = "L" THEN A (CINT (split (split (tempstr, "_") (1)), CINT Split (Tempstr, "_") (2)))) = CINT (Arritem.Value) Else B (Split (Tempstr, "_") (1)) = CINT (Arritem.Value) end if next Gaussj A, N, Biff hAVARESULT THEN SHOW (B) Else Alert ("Inferent Solution") End IFEND SUB</p>
<p>SUB Gaussj (A (), N, B ()) 'Gaussian Monitoring.</p>
<p>DIM IPIV (50), IndxR (50), Indox (50) for j = 1 to n ipiv (j) = 0 Next for i = 1 to n Big = 0 for j = 1 to n if IPIV (j) <> 1 THEN for K = 1 to n if IPIV (k) = 0 THEN IF ABS (A (J, K))> = BIG THEN BIG = ABS (A (J, K)) IROW = J ICOL = K end if elseif IPIV (K)> 1 Then HavareSult = FALSE EXIT SUB END IF NEXT END IF NEXT IPIV (ICOL) = IPIV (ICOL) 1 IF IROW <> ICOL THEN for L = 1 to n Dum = A (IROW, L) A (IROW, L) = a (ICOL, L) A (ICOL, L) = DUM NEXT DUM = B (IROW) B (IROW) = B (ICOL) B (ICOL) = DUM END IF INDXR (i) = irow IndXc (i) = ICOL IF A (ICOL, ICOL) = 0 Then HavareSult = FALSE EXIT SUB END IF Pivinv = 1 / A (ICOL, ICOL) A (ICOL, ICOL) = 1 for L = 1 to N A (ICOL, L) = a (ICOL, L) * Pivinv Next B (ICOL) = B (ICOL) * Pivinv for ll = 1 to n if ll <> ICOL THEN DUM = A (LL, ICOL) A (LL, ICOL) = 0 for l = 1 to n a (ll, l) = a (ll, l) - a (ICOL, L) * DUM NEXT B (LL) = B (LL) - B (ICOL) * DUM END IF NEXT NEXT for L = N to 1 Step -1 IF IndXr (L) <> Indxc (L) Then For K =</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-69142.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">
</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="69142" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
</div><div class="col text-right">Processed:
<b>0.050</b>, SQL:
<b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = 'l4CW7IDubdWDw1mo_2BeUouBgUaBpyX5KbAaE3QqqAa6hLZqU97ZODb63VekjSNTrGSRvCTeHQHopiV97WHF9_2BSg_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});
function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width();
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}
if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {
});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}
function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>');
});
}
$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});
var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });
$('#nav li[data-active="fid-1"]').addClass('active');
</script> 
